资深 软件 开发 专家 多 年 经 验 结晶 ， 深 入 污 出 阐释 O 〇 Office VBA 开 发 水 及 的 工具 、 方 法 和 实践 
由 浅 入 深 训 析 Office VBA 开 发 过 程 中 遇 到 的 各 个 层面 的 问题 ， 涉 及 VBA 编 程 环 境 、 语 法 基 
础 、Excel 对 象 模型 、 窗 体 和 控件 设计 、 自 定义 工具 栏 、 加 载 宏 设计 等 
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上 有 率 


本 书 由 一 线 高 校 教师 根据 自己 十 余年 VBA 开发 经 验 编写 而 成 ， 书 中 深入 浅 出 地 介绍 
开发 方法 与 实践 。 本 书 内 容 体 系 完 善 ， 涉 及 Office 多 个 组 件 的 交互 编程 ,重点 阐释 工具 栏 设 计 和 功能 区 
案例 丰富 ， 
本 书 可 以 帮助 下 
内 容 包 括 ep 让 宏 的 编写 和 执行 
、 字 符 串 处 理 、 数 学 计算 与 日 期 处 理 、Excel VBA 对 象 模型 和 相关 对 象 、 用 户 ht 
日 工 具 栏 、Excel 加 载 安 和 经 典 编 程 实例 等 。 书 中 所 有 章节 涉及 的 程序 代码 都 给 出 了 详细 


设计 ， 


调试 和 错误 
件 设 计 、 
分 析 。 


本 书 可 作为 职场 办 公 人 员 、 


内 容 简 介 


让 读者 征 临 其 境 ， 体 会 VBA 编程 的 策略 和 魅力 。 
去 者 轻松 熟悉 Office VBA A 肌 程 ， 
、VBA 编程 环境 、VBA 语法 基础 、 


高 校 理 工科 师 生 、Offce 专业 开发 人 员 的 目 学 用 书 ， 


编程 培训 讲师 的 教学 参考 书 。 
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Oce VBA 的 


系统 学 习 VBA 编程 的 每 个 层面 。 全 书 分 为 19 
过 程 与 图 数 设计 、 


也 可 以 作为 Office 


中 


Preface 序 


Excel 无 疑 是 当今 使 用 最 广泛 的 电子 表格 处 理工 具 ， 其 易 用 、 功 能 强大 显而易见 。 依 赖 
于 Visual Basic (人 简称 VB) 简单 易学 的 特性 ，VBA ( Visual Basic for Application ) 编程 正在 滩 
入 各 个 行业 、 各 个 站 位 编制 的 Excel 电子 表格 中 。 进 入 21 世纪 以 来 ， 越 来 越 多 的 人 开 妈 学 
习 并 使 用 VBA 来 处 理 烦琐 、 重 复 的 工作 。 

VBA 的 强大 之 处 就 是 可 以 帮助 用 户 市 约 大 量 的 时 间 。 原 本 可 能 逢 要 一 整 天 或 几 天 时 间 
来 处 理 的 电子 表格 ， 现 在 用 编写 好 的 VBA 程序 只 需要 几 分 钟 其 至 几 秒 的 时 间 就 可 以 完成 。 
并 且 在 数据 发 生变 化 时 ， 可 以 再 次 执行 编 好 的 程序 得 到 想 要 的 结果 。 试 想 一 下 ， 早 上 到 公司 
之 后 ， 打 开 Excel 运行 VBA， 然 后 边 喝 咖啡 边 看 着 VBA 在 短 短 的 几 分 钟 之 内 将 你 一 天 的 数 
据 处 理工 作 目 动 完 成 ， 可 以 节省 出 更 多 的 时 间 投 入 到 更 重要 的 工作 和 学 习 中 去 ， 是 不 是 心情 
很 愉快 呢 ? 

目前 ， 国 内 大 多 数 高 校 只 开设 Office 应 用 基础 课程 ， 没 有 专业 的 VBA 谍 程 。 因 此 社会 
上 大 多 数 的 VBA 使 用 者 并 不 是 科班 出 身 的 程序 员 ， 在 学 习 过 程 中 走 过 不 少 弯 路 。 尤 其 在 查 
询 和 名 类 官方 文档 时 ， 无 法 快速 找到 所 需要 的 文档 ， 无 法 理解 文档 中 的 各 种 专业 术语 。 这 本 书 
体例 完整 、 讲 解 全 面 、 案 例 切 合 实际 ， 给 初学 VBA 的 朋友 提供 了 极 大 的 便利 。 

我 多 年 之 前 就 认识 作者 刘 永 富 博士 ， 见 证 了 他 从 一 个 小 白 逐 渐 成 为 大 神 的 过 程 。 实 际 
上 ，VBA 编程 与 他 所 学 专业 几乎 没有 任何 关系 ,但 是 出 于 工作 逢 要 和 编程 爱好 ， 他 在 努力 
提高 办 公 软 件 操作 能 力 的 同时 ， 从 零 开 始 目 学 了 VB6 ( 即 Visual Basic 6) 和 VBA 编程 。 此 
外 ， 他 非常 积 极地 在 论坛 、QQ 群 解答 网 友 提 出 的 问题 ， 分 时 技术 经 验 ， 他 目前 已 经 是 众人 
眼 里 公认 的 Office、VBA 老师 和 专家 。 

根据 我 对 他 的 了 解 ， 他 非常 热衷 于 棋 类 等 智力 游戏 ， 而 且 能 够 把 VBA 这 项 技术 很 好 地 
应 用 于 智力 游戏 的 编制 过 程 中 ， 这 -点 体现 了 比较 好 的 逻辑 思维 能 力 和 创新 能 力 。 从 另 一 个 
角度 看 ， 刘 博士 把 程序 编制 当成 爱好 和 乐趣 ， 而 不 是 任务 和 负担 ， 这 也 许 是 他 编程 能 力 突 发 
狐 进 的 根本 原因 。 

本 书 是 “ Office VBA 开发 经 由 ”的 基础 人 门 卷 ， 也 是 他 多 年 VBA 学 习 和 开发 经 验 的 总 
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结 。 这 本 书 解决 了 几乎 所 有 和 学习 VBA 的 朋友 提出 的 一 个 问题 : 这 个 Excel 功能 如 何 用 VBA 
实现 ? 书 中 不 但 讲解 了 Excel 的 各 种 常用 功能 ， 并 且 从 这 一 功能 引入 相应 的 VBA 解决 方案 ， 
可 以 帮助 大 家 有 计划 、 有 目的 地 学 习 VBA 编程 。 

相信 本 书 在 学 习 VBA 的 过 程 中 可 以 给 你 提供 极 大 的 帮助 ， 其 至 在 你 成 为 熟练 者 之 后 也 
需要 这 样 一 本 书 帮 助 查 漏 补缺， 夯实 基础 。 
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Foreword “前 


Microsoft Office 可 以 称 得 上 是 世界 上 开发 最 成 功 的 办 公 软 件 ， 目 前 微软 Office 的 用 户 已 
超过 12 亿 人 ,全球 每 7 个 人 中 就 有 一 个 使 用 Office (信息 来 源 : 微软 )。 然 而 伴随 着 Office 
版 本 的 推陈出新 ，Office 软件 的 功能 日 益 丰 军 、 强 大 。 在 信息 化 时 代 、 大 数据 时 代 的 冲击 下 ， 
数据 量 的 剧 增 给 办 公 人 员 带 来 了 巨大 的 工作 挑战 ， 以 往 传统 的 手工 办 公 方 式 经 常 显 得 提 集 
见 肘 。 

VBA 几乎 是 和 Office 办 公 软 件 同时 诞生 的 ， 微 软 公 司 开 发 VBA 编程 功能 的 初衷 就 是 为 
用 户 提 供 更 加 灵活 的 处 理 方式 ， 有 人 曾 说 “80% 的 人 只 用 了 Office 20% 的 功能 "， 确 实 如 此 ， 
Office 有 很 多 功能 通过 手工 方式 是 无 法 实现 的 ， 必 须 通 过 VBA 编程 。 近 几 年 来 ， 越 来 越 多 
的 人 开始 学 习 和 研究 Office VBA 编程 ， 十 几 年 前 招聘 岗位 要 求 应 聘 者 会 使 用 办 公 软 件 ， 而 
目前 很 多 六 位 要 求 具 有 VBA 编程 经 验 。 

虽然 VBA 不 能 和 著名 的 C、Java 语言 相提并论 ， 但 由 于 Office 办 公 软 件 的 庞大 使 用 群 
体 ，VBA 在 数据 处 理 方 面 的 便利 性 和 快捷 性 ， 使 得 这 门 语 言 在 IT 界 具 有 一 席 之 地 。 作 者 学 
习 和 人 研究 VBA 语言 有 十 多 年 ， 诬 切 体 会 到 这 门 语言 的 强大 和 受 欢 迎 程度 。 


本 书 的 背景 

目前 ， 市 面 上 VBA 编程 方面 的 书籍 为 数 不 少 ， 但 是 其 中 大 多 数 都 把 知识 点 容纳 在 一 本 
书 中 ， 这 样 就 难免 遗漏 知识 点 ， 或 者 对 知识 点 的 探讨 不 足 ， 容 易 造 成 学 习 者 存在 知识 缺陷 。 

实际 上 ，Office VBA 编程 是 基于 VB6 的 一 门 编程 语言 ， 既 有 VB6 的 语法 ， 又 涉及 
Office 的 对 象 模型 ， 产 品类 型 多 样 化， 因此 VBA 绝 非 一 门 小 语言 ， 显 然 用 一 本 书 来 诠释 
VBA 是 远 远 不 够 的 。 

为 了 满足 广大 VBA 学 习 者 的 需求 ， 作 者 经 过 实践 ， 把 Office VBA 这 一 编程 体系 细 分 为 
四 卷 : 基础 入 门 卷 (本 书 )、 中 级 进 阶 卷 、 高 级 应 用 卷 、VB6 封装 卷 。 

分 卷 书写 的 好 处 是 ， 每 一 卷 的 讲解 知识 可 以 尽 可 能 详尽 ， 让 学 员 不 存在 知识 死角 。 其 
中 ， 基 础 入 门 卷 (本 书 ) 的 编写 目标 在 于 帮助 更 多 的 VBA 编程 零 基础 人 员 熟 悉 VBA 编程 环 
境 ， 掌 握 VBA 编程 初步 和 语法 基础 ， 能 够 用 VBA 解决 实际 工作 中 遇 到 的 问题 。 另 外 ， 本 
书 特别 注重 对 Excel VBA 稼 用 对 象 模型 的 前 述 和 实例 运用 。 
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本 书 的 组 织 结构 
全 书 大 致 分 为 以 下 六 大 部 分 。 
第 一 部 分 (第 1 ~ 3 章 )， 帮助 读者 认识 VBA 编程 环境 ， 理 解 宏 是 怎么 来 的 ， 如 何 录 制 


和 修改 宏 。 


第 二 部 分 (第 4 一 8 章 ): 主要 内 容 是 VBA 的 基础 知识 ， 帮 助 读者 进一步 掌握 VBA 编 


程 特 性 ， 更 深层 次 地 理解 什么 是 过 程 、 图 数 ， 以 及 各 种 数据 类 型 的 运算 、 转 换 等 。 


第 三 部 分 (第 9 ~ 15 章 ): 主要 讲解 Excel 组 件 中 的 VBA 编程 ， 详 细 讲 述 Excel 各 种 常 


用 对 和 象 的 属性 、 方 法 以 及 事件 。 


第 四 部 分 (第 16 ~ 18 音 ): 主要 内 容 是 VBA 界面 编程 、VBA 作品 的 各 种 表现 形式 ， 


主要 包括 用 户 窗 体 和 控件 设计 、 日 定义 工具 柱 、Excel 加 载 安 等 。 庶 者 通过 学 习 这 部 分 知识 ， 
基本 可 以 设计 出 像样 的 作品 ， 以 供 他 人 使 用 。 


第 五 部 分 (第 19 章 ) : 经 典 编程 实例 ， 主 要 讲述 作者 在 实际 工作 中 如 何 用 VBA 解决 问 
与 读者 分 至 产品 设计 构思 、 代 人 码 的 实现 方法 。 

第 六 部 分 : 附录 ,包括 VBA 编程 常用 资料 ， 以 便 VBA 初学 者 查阅 、 学 习 。 
本 书 的 特点 

口 编排 合理 ， 内 容 丰 定 。 

口 针对 性 的 实例 比较 多 ， 知 识 点 讲解 透彻 。 

本 书 的 读者 对 象 

DQ 职场 办 公 人 员 。 

口 高 校 理工 科 师 生 。 

DQ Office 专业 开发 人 员 。 

D Office 编程 培训 讲师 。 

本 书 使 用 环境 

在 本 书 编写 过 程 中 ,作者 的 电脑 环境 为 Windows 7 (32 位 ) + Microsoft Office 2013。 
因此 ， 读 者 的 编程 环境 与 上 述 相同 或 相近 更 佳 。 不 过 本 书 内 容 在 OBce 2010 及 其 以 上 


本 书 配 套 资 源 包括 : 

D Excel VBA 编程 人 门 视频 (视频 文件 及 PPT 课件 、 素 材 和 源 代码 )。 
口 本 书 所 有 源 代码 文件 。 

吕 本 书 各 帝 习题 参考 答案 。 

口 开发 资源 (编程 过 程 中 用 到 的 工具 、 软 件 )。 

读者 可 访问 http://home.cnblogs.com/w/ryueifu-VBA/ 进行 下 载 。 


读者 服务 

为 方便 广大 读者 学 习 和 探讨 ， 读 者 可 以 通过 以 下 方式 与 作者 互动 交流 。 
口 Office 技术 交流 QQ 群 ， 193203228。 

D Office VBA & VSTO QQ 群 ， 61840693 。 


其 他 说 明 
书 中 所 有 源 代码 在 行 利 均 有 行 号 ， 这 是 为 了 讲解 方便 , 行 号 并 非 代码 中 的 部 分 。 每 个 代 
人 乌 段 上 方 都 留 有 源 代码 的 路 径 ( 见 下 图 )。 


14.4.1 单元 格 的 选中 和 激活 
第 14 章 

如 条 不 司 用 代码 ， 手 工 编辑 单元 格 时 ， 必 须 事先 选中 单元 格 区 域 。 一 般 情 况 
一 斌 性 选中 一 个 下 形 区 域 ， 该 算 形 区 域 最 左上 角 的 单元 格 ， 痛 景 芭 日 ， 称 作 ”* 话 : 

也 就 是 说 ， 选 中 的 区 域 可 以 是 多 个 单元 格 , 但 是 活动 单元 格 有 且 只 有 一 个 。 
区 域 后 ， 按 住 Ctrl 键 ， 可 以 继续 选择 其 他 区 域 。 

在 Excel VBA 中 ， 使 用 Range.Select 来 代替 手工 自动 选中 区 域 ， 重 新 1; 
Application.Selection 这 个 对 象 所 指 代 的 区 域 就 发 生 相 应 的 变化 。 

Range.Activate 方法 ， 则 是 油 活 单元 格 ， 如 果 访 单元 格 原 先 未 处 于 选中 状态 
活 。 激活 单元 格 后 ， 人 这 个 而 稼 忆 会 指 由 新 的 年 元 菠 。 

册 讽 洛 | 源 代 码 的 路 径 





1. Sub Testl() 


2 ActiveSheet.Range("A2:E9").Select 

行 号 3 Debug.Print "当前 所 选区 域 是 : " & Application.Selection.Address 
4. Debug.Print "活动 单元 格 是 "&& Application.ActiveCell.Address 
$5. End Sub 


根据 图 中 所 示 ， 源 文件 位 于 第 14 章 ， 文件 名 称 是 实例 文档 25.xlsm， 斜 杠 后 面 表示 该 过 
程 所 在 的 模块 名 称 : 单元 格 的 选中 和 激活 。 

另外 ， 因 为 本 书 是 黑白 印刷 ， 无 法 正常 显示 出 颜色 ， 读 者 可 以 在 实际 界面 或 相关 视频 中 
看 到 。 


致 读者 

随 着 信息 化 技术 的 普及 和 大 数据 的 快速 发 展 ， 以 往 的 手工 操作 办 公 软 件 已 经 不 能 满足 现 
代办 公 的 需求 ， 因 此 ，VBA 编程 技术 作为 Office 办 公 软 件 的 寄生 编程 语言 ， 由 于 拥有 较 大 
的 优势 越 来 越 受 到 社会 各 界 的 关注 和 育 睐 。 然 而 ， 笔 握 或 者 精通 Office VBA 编程 并 非 钨 事 ， 
造成 VBA 入 门 难 、 提 高 难 的 原因 很 多 ， 很 重要 的 一 个 原因 在 于 市 面 上 缺乏 系统 、 全 面 的 书 
籍 和 资料 ， 下 各 片面 、 对 技术 点 认识 次 度 不 够 ， 以 致 很 多 人 闫 了 纸 质 教材 ， 又 
尖 了 视频 课程 ， 还 是 不 能 得 心 应 手 地 解决 实际 问题 。 

作者 根据 自身 多 年 的 学 习 和 研究 经 验 ， 尽 量 把 编程 过 程 中 的 疑难 点 、 易 混 消 知识 点 融 人 
本 书 ， 帮 助 广大 读者 领会 VBA 的 学 习 方 法 和 思路 ， 少 走 弯 路 。 本 书 从 立意 、 写 作 到 交 稿 历 
时 一 年 之 久 ， 融 人 作者 大 量 精力 和 心血 。 衷 心 希 望 广大 读者 能 够 从 本 书 中 汲取 营养 ， 早 日 成 
为 Office VBA 编程 达 人 。 

本 书 除 了 刘 永 富 、 刘 行 之 外 ， 参 与 编写 的 人 员 还 有 重庆 市 信息 通信 咨询 设计 院 有 限 公 司 
的 林 兴 龙 、 浙 江 省 水 利 河口 研究 院 的 章 晓 桦 、 中 蹇 通信 规划 设计 有 限 公 司 的 何 明 、 中 国 石 油 
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朱 岩 松 、 祝 磊 、 节 和 有 等 。 书 中 难免 有 玻 漏 之 处 ， 欢 迎 读者 通过 清华 大 学 出 版 社 网 站 www. 
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作者 


Contents 目 录 





第 1 前 VBA 编程 慨 述 1 2.1.1 显示 “开发 工具 ”选项 卡 ……18 
1.1 VBA 应 用 领域 和 发 展现 状 ………… 1 A 6 19 
E11 美国 的 WB& 来 症 iieonn i 53 于 贡 VBA 办 纹 要 a 20 
Ll 目 本 的 WB 水 于 wm 2 2.2.1 手工 编写 第 一 个 VBA 宏 …… 20 
113 VBA 专家 考试 …………………………………….3 Be ee 21 
1.2 Office 与 VBA 的 安装 ……- 3 的 全 23 
1.2.1 安装 DAEMON Tools Lite.………… 5 2.4 ” 宏 的 执行 方法 …-……… 0 24 
1.2.2 ”Office 2003 的 安装 ……………… 6 2.4.1 使 用 “ 宏 ” 对 话 框 ………………… 25 
1.2.3 ”Office 2010 的 安装 ………………… 10 A 25 
0 12 2.4.3 ”指定 宏 到 图 形 对 象 ………………… 26 
ER 13 2.4.4 ”使 用 工作 表 事 件 运行 宏 ……… 26 
1.3.2 文件 格式 的 革新 …-…… ee 14 2.4.5 ”使 用 工作 短 事 件 运 行 宏 ……… 28 
133 ”Office 版 本 对 VBA 编程 的 2.4.6 ”指定 宏 到 功能 区 …………………… 28 
影响 0 ] 5 2.4.7 和 快速 访问 工具 栏 ……-30 
1.4 ”Office VBA 编程 开发 的 产品 类 型 …15 2.4.8 ”通过 立即 黎 口 执行 宏 ………… 31 
1.4.1 基于 Office 文件 的 编程 开发 … 15 3 31 
1.4.2 ”Visual Basic 6 封 攻 pp 16 ”第 3 将 VBA 编程 环境 » 
1.4.3 VSTO 开发- [站 
1.5 高 效 学 习 VBA 编程 ……… 1431 VBA 编辑 器 界面 介绍 32 
1.5.1 必 备 基础 A Te Se 33 
本 ee i 17 3.1.2 ”本 地 窗口 …… 有 35 
习题 … 2 17 wen 和 
.14 潭 全 36 
第 2 章 ” 宏 的 编号 和 执行 ……… 8 °° 2 


2.1 强 程 且 的 机 和 18 Si VON 38 


YI Office VBA 开发 经 典 一 一 基础 入 门 卷 


3.1.7 ”外接 程序 管理 器 -…--………………-- 39 
3.1.8 VBA 帮助 ………………… 40 
3.2 VBA 工程 管理 42 
3.2.1 ”添加 模块 …… ee 42 
3.2.2” 移 除 模块 …-…- ee 42 
3.2.3 ”导出 和 导 人 模块 …………… 43 
2 站 有 属性 ee 43 
3.2.5 工程 引用 -0 44 
RE 45 
第 4 章 VBA 语法 基础 -pp 46 
4.1 VBA 数据 类 型 ……… 46 
4.1.1 字符 串 …………… 47 
4.1.2 ”数值 型 …………… 48 
4.13 日 期 和 时 间 型 -…………………… 49 
4.1.4 ”布尔 型 49 
1 50 
4.1.6” 对象 型 …………… 50 
4.1.7 数据 类 型 的 判断 ………………… 51 
4.1.8 ”变量 声明 的 简写 形式 ………… 54 
4.1.9 变量 声明 的 初始 默认 全 54 
4.1.10 数据 类 型 的 转换 ……………… 55 
2 下 式 与 区 第 得 56 
4.2.1 算术 运算 符 ………………………………- 56 
es 57 
423 Like 运算 符 S8 
2 2 59 
4.3 ”使 用 变量 ………… ee 60 
1 60 
下 JE 60 
Se Se 1 ) 1 [5 61 
4.3.4 ”变量 的 作用 范围 和 生存 期 ……63 
4.3.5 声明 变量 的 其 他 写 人 64 


ee. 64 


“过 


4.4 ”使 用 党 


WO = 0 64 
4.4.2 ”内 置 榴 举 和 常量 -………………………… 65 
4.5 ”其 他 数据 类 型 ………………… 68 
i 68 
4.537 4 69 
453 生生 70 
4.6 使 用 InputBox 输入 对 话 框 …………… 本 
4.6.1 VBA 库 中 的 InputBox ………… 72 
4.6.2 ”Excel 库 中 的 InputBox………… 73 
4.7 使 用 MsgBox 输出 对 话 框 ………… 75 
48 J i 77 
4.9 ”条 件 选 择 结 构 ……………………………… 77 
4 TH A 78 
二 Sri 79 
ke 1 5 £1 82 
Sino | si a 
I 83 
4101 While”Wend Be 83 
0 84 
4 0 Por mon -86 
4.104 For Each 博 馈 = 
4.11 流程 跳 转 控制 语句 ……………… 88 
ee a 
4.11.2 GoSub…Return 语句 ………… 89 
4 BR 90 
村] 二 而 而 3 90 
:5 91 
.11 一 人 二 二 ee Se 
I 12 93 
4.12.3 ”使 用 Array 创建 数组 ………: | 
A MN et 
4 96 
:0 6 1 96 
De OE 97 


4.13.1 同一 行书 写 多 条 语句 98 3 134 
4.13.2 长 语句 的 续 行 书写 …………… 98 6.3.1 错误 发 生 时 跳 转 到 某 行 ……… 134 
3 用量 省 ee 98 6.3.2 ”错误 发 生 时 继续 向 下 执行 …… 136 
4.13.4 ”使 用 模块 定义 -……………………… 102 6.3.3 ”Resume 与 Resume Next 语句 … 136 
41354 用 注 种 ee 103 3 | 137 
4.13.6 ”使 用 With 结构 -…-………………… 104 
4.13.7 ”使 用 Me 关键 字 …………… 106 。 第 7 生字 符 串 处 理 ………… I 
3 107 7.1 认识 字符 串 和 140 
A 5 = :ee 140 
第 S 蔓 过程 污 国 数 设计 108 村 140 
二 国生 人 108 13 本 4 电 的 长度 es 141 
5.1.1 创建 过 程 …-…… Se 108 7.1.4 检索 子 字 符 串 的 位 置 142 
5.1.2 过程 的 运行 和 调用 ……………… 109 0 144 
.13 ES 110 72.1 字符 号 ASCIL 但 -……………… 144 
5.1.4 ”可 选 和 默认 参数 …………………… 113 2 SE 145 
5.1.5 ”参数 的 传递 方式 ……………… 113 .2.3 放生 本 es 146 
5.1.6 ”参数 数量 可 变 的 过 程 …………: 114 2 人 146 
7 WT 114 7 本 慎 swweweeeeeaeeeeee 147 
.2 115 Ti ee 147 
5.2.1 自 定 义 函 数 的 返回 值 ………… 116 es 149 
5.2.2 有 目 定 义 函 数 的 用 途 …………… 116 TA Sling BI 149 
5.2.3 ”设置 日 定义 限 数 的 说 明 信 息 … 119 CB 0 149 
5.2.4 ”为 日 定义 函数 创建 帮助 文档 … 121 74 字符 串 与 数组 ………………… 149 
3 Rt i127 RA Doll HO Sn 149 
,tt 151 
第 6 章 程序 调试 和 错误 处 理 ……… 128 0 
1 128 习题 152 
G11 时 机 1 本 奋 es 128 
612 设置 断 目 :7 130 ”第 8 革 数学 计算 号 日 期 处 理 ……… 154 
613 千 用 Stop 伟人 本 em es 130 Sl Wr ee 154 
62 I 再 ee Es 131 LT 二 请 国政 154 
21 Bri A a 132 812 用 机 a 154 
6.2.2 裔 历 错误 号 和 和 错误 描述 ………… 133 8.2 ”日 期 与 时 间 畏 数 …-…--………-……- 156 


B73 WER 133 8.2.1 返回 与 设置 当前 日 期 时 间 …… 127 


头 | Office VBA 开发 经 典 一 一 基础 入 门 卷 


8.2.2 ”计算 程序 运行 时 间 ……………… 157 
8.2.3 ”日 期 时 间 的 生成 ……………………… 158 
8.2.4 日 期 时 间 的 加 减 运 算 ……-…… 159 
8.2.5 ”计算 两 个 日 期 的 间隔 ……… “160 
S24 上 目 期 时 同 的 他 人 > 161 
避 题 …- 和 161 
第 9 盖 Excel VBA 对 象 模型 ………… 162 
Nl 1D 162 
11 属性 Re - 162 
9012 有 i 163 
i 163 
qd a 164 
092 醒 用 轴 守 古村 es 164 
ol Wi a 166 
9.2.2 集合 对 象 …-… ee 167 
3 Fed VihA 170 
gl jw 171 
2 有 要 Rs 171 
3 衣 对 铺 ， a 171 
9.3.4 单元 属 区 咸 对 象 171 
As 172 


第 10 章 ”应 用 程序 Application 对 象 … 173 


10.1 Application 对 象 重 要 成 员 …-……… 173 
10.1.1 AchveWorkbook………………………- 173 
EU CESDEGE ee 173 
10.1.3 AchveWmndow 174 
Td ee 174 
1 175 
10.1.6 COMAQUdS 176 
10.1.7 WorksheetFunction 178 
10.1.8 Commandbars -7 179 


10.2 Application 对 和 象 重 要 属性 -…-…… 180 


10.2.1 默认 文件 路 径 DefaultFilePath 


5 a … 180 
10.2.2 ”显示 剪贴 板 DisplayClipboardWindow 
属性 … 181 


10.2.3 ”启用 事件 EnableEvents 属性 … 182 
10.2.4 ”显示 “开发 工具 ”选项 卡 


ShowDevTools 属性 ………… -182 
10.2.5 人 句柄 Hwnd 属性 ……………… … 182 
10.2.6 ”标题 Caption 属性 ……………: … 183 
10.2.7 ”版 本 Version 属性 …………… … 183 
10.2.8 用 户 名 UserName 属性 ……… 184 
10.2.9 ”安装 路 径 Path 属性 ………… … 185 
10.2.10 ”状态 栏 StatusBar 属性 …… 186 


10.2.11 默认 工作 表 个 数 
SheetsInNewWorkbook 属性 … 187 
10.2.12 ”窗口 状态 WindowState 


属性 ee 187 

10.2.13 ”最 近 打 开 的 文件 
RecentFiles ---………- Rs 188 
10.3 Application 对 和 象 常 用 方法 ………… 189 


10.3.1 激活 其 他 组 件 
ActivateMicrosoftApp 方法 … 189 


10.3.2 ”设置 Excel 的 计算 模式 …… 189 
10.3.3 计算 Calculate 方法 -…-…-…… 190 
10.3.4 ”表达 式 评价 Evaluate 方法 … 190 
10.3.5 快捷 键 OnKey 方法 …………… 191 
10.3.6 ”发 送 按键 SendKeys 方法 …- 192 
10.3.7 ”运行 宏 Run 方法 ……………… 193 
10.3.8 退出 应 用 程序 Quit 方法 
10.3.9 ”定时 执行 OnTime 方法 …… 195 
10.3.10 ”撤销 Undo 方法 …………………… 196 
10.4 Application 对 象 弟 用 事件 …-… 196 
10.4.1 WorkbookBeforeClose 事件 … 198 
1042 事件 的 取消 一 199 


10.4.3 ”禁用 和 局 用 事件 199 3 5 
10.4.4 ”SheetSelectionChanege 事件 …- 199 11.4.3 ”工作 表 激 活 事 件 -……………- 3 
10.4.5 WindowActivate 事件 ………… 200 11.4.4 工作 表 石 击 事件 … 224 
10.4.6 ”归纳 总 结 …… ee. 201 11.4.5 ”工作 表 修 改 事 件 ……………… 225 
3 ee 201 11.4.6 工作 表 选 中 区 域 变更 事件 … 226 
习题 226 
第 11 并 工作 和 尖 Workbook 对 象 …… 202 

11.1 工作 短 对 象 的 表达 -pp 702 第 12 介 工作 表 Worksheet 对 象 … 227 
I I 202 12.1 工作 表 和 集合 Worksheets 对 象 …- 228 
11.1.2 利用 工作 德 名 称 ……-…………… 202 Ii RN eeseseessee “20 
11.1.3” 宏 代码 所 在 的 工作 簿 …-…… 202 EN 230 
lA TLE a 203 12.13 我 的 出 了 Ss 231 
11.2 Workbook 对 和 象 午 要 属性 ……… 204 12.2 ”Worksheet 对 和 象 常 用 属性 ……… 233 
11.2.1 文档 内 置 属性 1 233 
BuiltinDocumentProperties … 205 12.2.2 Name 与 CodeName 属性 …… 234 
11.2.2 文档 自 定义 属性 12233 一 二 个 与 后 一 人 LT“ 9 
CustomDocumentProperties … 207 12.2.4 ”应 用 程序 与 父 级 对 象 …… … 236 
11.2.3 ”工作 禾 的 名 称 和 路 径 -…-……… 208 12.2.5 工作 表 标 签 颜 色 236 
1124 TsAddin 属性 208 1226 是 否 吕 未 下 丰 条 ee 237 
11253 Sd 209 12.27 工作 表 的 可 见 性 237 
1126 TNETION LE seerem 209 12.2.8 ”页 面 设置 …………… i 238 
11.3 ”Workbook 对 象 重要 方法 ……… 214 12.3 ”工作 表 的 自动 第 选 ……… i 240 
a1 HT 214 12.3.1 工作 表 的 3 种 状态 …………… 241 
be .2 = 215 1 西历 吊 四 ee 244 
11.3.3 ”设置 工作 绽 的 打开 密码 -…… 215 12.3.3 处理 自 动 租 选 后 的 区 域 …… 245 

1 Th LT 216 12.3.4 按照 单元 格 填充 颜色 
1 216 依 选 …… … 247 
.36 SEH LI Se 217 12.3.5 ”按照 单元 格 字 体 颜 色 师 选 … 248 
11.3.7 激活 工作 清 217 12.4 ”Worksheet 对 象 稼 用 方法 ………… 248 
加 218 12.4.1 激活 和 选中 工作 表 249 
11.3.9 导出 为 PDF 文 悄 218 12.4.2 ”工作 表 的 移动 和 复制 ………… 250 
11.4 ” Workbook 对 和 象 常 用 事件 …………… 221 12.4.3 ”控制 工作 表 的 计算 ……………… 251 
11.4.1 工作 六 打开 和 关闭 前 事件 … 222 1244 芭 是 再 时 图 月 assAeee 252 


11.4.2 ”文档 事件 过 程 中 Cancel 参数 的 12.4.5 ”复制 和 粘贴 数据 ………………… 253 


关山 ”Office VBA 开发 经 典 一 一 基础 入 | j] 卷 
46 人 254 
PP WE (1) tt 255 
12.4.8 工作 表 的 预览 和 打印 …………: 256 

12.5 ”Worksheet 对 象 重 要 事件 ………: 258 
12.5.1 选中 区 域 变更 事件 ………… 259 
12.5.2 工作 表 修 改 事件 -…-…………-- 261 
12.5.3 ”工作 表 右 击 事件 263 
12.5.4 使 用 类 模块 操作 Excel 文档 
7 6 265 
i 266 
第 13 章 图表 Chart 对 象 …-………… 267 
13.1 Chart 对 象 重要 属性 ……………………- 269 
1 图 来 的 条 269 
1 四 270 
13.1.3 ”修改 图 表 数 据 源 …………… 270 
1314 BR | 
13.1.5 设置 图 表 区 与 绘图 区 格式 … 273 
13.1.6 设置 坐标 轴 格 式 …………………… 274 
13.1.7 探 作 数 据 系 刚 -=………-… 275 
13.1.8 ”所 历数 据 系 列 -…-………-……… 276 
19.19 DES 277 
13.1.10 ”操作 数据 标记 -……-………… 278 
13 1 BF 图 人 2 279 
13.2 ”Chart 对 银 常 用 方法 -……………… 280 
13.2.1 图 表 工 作 表 的 删除 280 
1 281 
i323 太守 国 直人 站 281 
13.3 “Chart 对 和 象 事件 282 
13.3.1 激活 图 表 工 作 表 的 事件 …… 282 
13.3.2 ”识别 图 表 中 的 不 同 元 素 …… 282 
4 月 动机 于 国 和 284 
i 284 
13.4.2 ”在 普通 工作 表 中 插入 图 表 … 285 


13.5 上 有 目 动 删除 图 表 ee 286 
13.5.1 ”删除 所 有 图 表 工 作 表 ……… 286 
13.5.2 ”删除 工作 表 中 所 有 图 表 对 象 … 287 
有 287 
第 14 六 单元 格 区 域 Range 对 象 … 288 
14.1 Range 对 和 象 的 表示 方法 …………… 290 
14.1.1 使 用 Cells ………… A 290 
14.1.2 ”Range 对 和 象 的 无 限 藤 套 性 … 292 
14.2 Range 对 象 的 党 用 属性 …………… 293 
1 区 区 有 由 二 ee a 293 
14.2.2 ”获取 单元 格 区 域 的 位 置 与 
We 294 
14.2.3 ”单元 格 的 地 理 位 置 ……………… 995 
14.2.4 ”单元 格 内 容 属 性 …………………… 299 
14.3 Range 的 产生 和 转化 ………………… 305 
14.3.1 引用 工作 表 已 使 用 区 域 …… 305 
14.3.2 引用 当前 连续 区 域 …---……… 306 
14.3.3 ”引用 数组 公式 区 域 .…---……-… 307 
14.3.4 引用 整 行 与 整 列 ……………… 307 
14.3.5 ”单元 格 的 俩 移 人 308 
14.3.6 ”改变 单元 格 区 域 大 小 ……… 308 
14.3.7 ”获取 最 后 一 个 非 空 单元 格 … 310 
Ee 3 
14.3.9 ”区 域 的 相交 包含 ………… i 
14.4 Range 对 象 的 第 用 方法 ……… ee 
14.4.1 单元 格 的 选中 和 激活 ……… 313 
14.4.2 ”复制 甬 切 单元 格 S15 
A MT 315 
14.4.4 ”插入 和 删除 单元 格 …………… 316 
14.4.5 目 动 调整 行 扁 列 宽 318 
dd Hop 318 
LAA 于 全 排 慰 ，weeewasaes 0 
14.4.8 ”查找 和 替换 ………………… | 


14.4.9 ”文本 分 列 ……… Re 323 
14.4.10 ”日 动 明 读 单元 格 内 容 ……… 324 
14. 和 4 Ranpe 成 员 对 象 -……----------………- 375 
14.5.1 设置 单元 格 边框 …………………… 325 
14.5.2 ”设置 单元 格 填 充 色 ……………… 328 
14.5.3 ”设置 单元 格 字 体 ………………… 330 
14.5.4 单元 格 的 对 齐 方式 331 
14.5.5 ”处理 单元 格 中 的 字符 333 
14.5.6 ”处 理 单元 格 中 的 批注 …-…… 335 
14.5.7 处理 条 件 格式 ……………………… 339 
14.5.8 ”处 理 数据 有 效 性 …………………… 344 
14.5.9 ”使 用 单元 格 样式 …………………… 348 
14.6 ”Ranege 对 象 专题 讲解 …………… 352 
14.6.1 单元 格 的 合并 与 取消 合并 … 352 
14.6.2 ”Range 与 名 称 的 使 用 …………… 354 
14.6.3 ”如 何 遍 历 单 元 格 357 
14.6.4 ”单元 格 与 数组 之 间 的 数据 
1 A 359 
14.6.5 ”单元 格 的 市 格式 查找 ……… 361 
7 362 
习题 365 


第 15 登 ” 其 他 常用 ExcelVBA 对 象 … 367 


15.1 处理 工作 表 中 的 图 片 ……………… 367 
15.1.1 搬 人 外 部 图 片 367 
15.1.2 插入 形状 ……… A 369 


15.1.3 Shape 对 象 的 引用 和 届 历 …: 370 
15.1.4 Shape 对 象 的 属性 获取 与 


更 是 是 Sa 371 
15.1.5 Shape 对 象 的 常用 方法 ………… 373 
15.2 工作 表 使 用 表单 控件 …………… 378 
Is21 WH 379 
IS23 PEN de 380 


15.2.3 使 用 复 选 框 380 


目录 区 1 


15.2.4 ”使 用 单 选 按钮 380 
1525 NEN 382 
15 20 3 382 
15.2.7 ”用 代码 目 动 插入 表单 控件 … 383 
15.2.8 ”批量 删 际 表 单 控 件 ……-…… 385 
15.3 工作 表 使 用 ActiveX 控件 ……… 386 
1531 PN E21: 
15.3.2 ”控件 的 事件 过 程 …………… 387 
15.3.3 ”月 动 插入 ActiveX 控件 …… 388 
15.3.4 工作 表 中 播放 动画 ………… 389 
15.3.5 ActiveX 控件 的 删除 ……… 390 
15.4 ”处 理工 作 表 中 的 超 链 接 …………… 391 
15 本 1] 全 建 直角 搂 se 391 
15.4.2” 通 历 工 作 表 中 的 超 链接 …… 392 
15 二 3 天 由 全 393 
15.4.4 删除 超 链接 393 
155 Baeel ME Wm se 394 
1 贡 遇 内 下 区 画 慌 i 394 
15.5.2 ”为 对 话 框 设 置 默 认 参 数 …… 395 
15.6 ”文件 选择 对 话 框 -7 395 
15.61 测 西 慌 的 类 型 395 
1562， 刘 册 但 的 局 性 396 
63 允 而 异 有 的 四 计 于 396 
I WT 396 
5 PE 398 
7 | 398 
I 400 
15.7 ”操作 目 定 义 序 列 ……… ee 401 
15.7.1 增加 用 户 目 定义 序列 ……… 402 
15.7.2 ”获取 序列 的 编号 …………… 403 
15.7.3 ”导出 全 部 序列 到 单元 格 …… 403 
15.7.4 ”删除 上 自 定 义 友 列 …………………… 404 
> £0 i 404 


XIV Office VBA 开发 经 典 一 一 基础 入 门 卷 


第 16 莉 ”用 户 窗 体 和 控件 设计 ……… 407 
[7 £5 4 7 | 407 
16.1.1 设计 的 第 一 个 窗 体 …-………… 408 
16.1.2 使 用 和 维护 控件 工具 箱 …… 411 
OW Ke .5 ee 412 
16.14 ， 相 用 局 任 寡 国 5 
16.2 和 窗 体 与 控件 的 通用 属性 ………… 413 
0 413 
16.2.2 标题 ……- NS 413 
Es 414 
end ME ere 
I | 414 
i020 请 亲信 ee 
R27 BI er 415 
W228 415 
W299 Tab] 416 
eR 417 
7. | 2 5600p en shelle 417 
16.3 ”和 窗 体 与 控件 的 通用 方法 …………… 418 
GT Ha 
16.3.2 ”移动 控件 -……………… He 418 
1633 长 变 屋 所 次 犀 419 
16.4 ” 窗 体 与 控件 的 事件 ……………… 420 
163 辐 怀 本 用 下 届 ee 和 421 
165.1 和 多 位 鸭 枢 2 1 ps 421 
16.5.2 设置 窗 体 的 字体 ……… el 
16.5.3 ”设置 窗 体 背景 图 片 …………… 421 
16.5.4 窗 体 铺 满 整个 屏 医 423 
16.5.5” 窗 体 的 局 动 和 关闭 事件 …… 423 
16.6 ”命令 按钮 使 用 技巧 424 
16.6.1 日 动 调整 按钮 大 小 …………… 424 
16.6.2 ”默认 按钮 和 退出 按钮 ……… 424 
16.6.3 ”设置 控件 的 提示 语 ………… 425 


16.6.4 ”为 按钮 设置 加 速 键 425 





16.7.2 ”标签 的 自 适 应 …………………… 426 
16.73 有 OH 426 
0 426 
El ne 427 
16.8.2 ”制作 密码 输入 框 ……………… 427 
16.8.3 ”限制 输入 长 度 ………………… 427 
(Os We 427 
16.8.5 文本 框 的 深 动 条 …………… 427 
16.8.6 ”上 自动 重 置 和 验证 文本 ……… 428 
16.8.7 内容 改变 事件 pp 429 
16.8.8 ”使 用 文本 框 的 选 定 状态 ……: 429 
16.8.9 ”文本 框 内 容 的 复制 、 粘 贴 … 430 
16.9 ”响应 键盘 按键 的 事件 …………… 431 
16.9.1 按 下 快捷 健 关 闭 窗 体 ……… 431 
16.9.2 ” 松 开 快捷 键 让 文本 框 内 容 
ee 432 
16.9.3 ”识别 和 修改 输入 的 字符 …… 433 
16. 1 SH 433 
16.10.1 增加 条 目 …………………………… 434 
16.10.2 ”删除 条 目 ………… Ee 435 
16.10.3 ”获取 组 合 框 条 目 信 息 ……… 435 
161 NE ns 436 
16.11.1 列表 框 的 单 击 事件 ………… 437 
16.11.2” 审 复 选 框 的 多 选 列 表 框 …… 438 
7 .A = Bb 7 439 
7 EE :597 0 440 





16.13.1 ”使 用 框架 
16.13.2 设置 GroupName 隔离 


7 441 
1: 442 
Ts IE 442 


16.16 ”多 标签 控件 -…… Re 443 
16.16.1 用 代码 增加 标签 445 
16.16.2 ”用 代码 删除 标签 …………… 446 
16.17 多 页 控件 -……- a 446 
16.18 ”得 动 条 ee 448 
16.19 ”旋转 按钮 ………… Ps 449 
16.20 ”图 像 控 件 -……- A 450 
4 i 7 2 451 
16.22 ”所 有 历 窗 体 上 的 控件 …………… 452 
16.22.1 运行 期 间 动态 增加 控件 …… 453 
16.22.2 ”运行 期 间 动态 删除 控件 …… 454 
16.23 ” 啊 应 姐 标 单 击 的 事件 ………… 455 
16231 判断 风 全 信守 455 
16.23.2 ”判断 键盘 辅助 键 …………… 456 
16.23.3 ”判断 单 击 位 置 …………………… 456 
16.23.4 ”移动 鼠标 的 事件 …………… 458 
16.24 ”使 用 附加 控件 -……-………--…… 458 
Ss 460 
第 卫 章 自 定 义工 具 栓 ee 462 
A I B= | 462 
17.1.1 梗 用 目 是 义 对 丁 疏 5 465 


17.1.2 ”手工 方式 进行 工具 栏 设 计 … 465 
17.1.3” 自 定义 工具 栏 的 存储 位 置 … 470 
172 LATH VD 
17.3 ”CommandBar 对 象 …………… …-…… 471 
17.3.1 CommandBar 重要 属性 …… 472 
17.3.2 CommandBar 重要 方法 …… 474 
17.4 ” CommandBarControl 对 象 …… 477 
17.4.1 授 历 工具 栏 中 所 有 控件 


yA 1 i 480 
1743 措 信 鸭 放 这 i 487 
17.4.4 控件 的 事件 本 二 人 491 


目录 斧 


17.5 创建 自 定 义工 具 栏 -…--…----……… 493 
71 重建 水 蛙 和 eeeseeseesese 493 
17.5.2 ”创建 级 联 案 单 pp 496 
3 全 是 一 了 工具 下 498 


17.5.4 调整 工具 栏 的 位 置 和 大 小 … 500 
17.5.5 ”创建 右键 菜单 ………………… 502 


17.6 上 自 定义 工具 栏 高 级 拉 术 -…--……… 505 
17.6.1 ”使 用 组 合 框 控件 …-……-…… 505 
17.62 使 用 文本 慌 控 性 和 507 
17.6.3 ”设计 用 户 窗 体 的 荣 单 509 
17.6.4” 居 历 所 有 FaceID -pp 510 
17.6.5 ”提取 Windows 系统 字体 名 称 和 

字号 列表 sawesaeesesseeeee | 

17.7 Excel 高 版 本 的 工具 栏 设计 …… 512 
17.7.1 增加 业 单 命令 ……………… 512 
I 提 关 工具 三 本 seee 513 
Li WE ee 513 
17.7.4 ”显示 Excel 2003 经 典 菜单 … 515 

3 ee Rg ee 515 

第 18 章 Excel 加 载 恬 517 

18.1 Excel 加 载 宏 对 话 框 ……………… 517 

18.2 ”加载 宏 可 以 包含 的 内 容 …---……-- 518 
La] I NM 519 
323 HS 521 
用户 而 性 ee Sl 
18.2.4 ”工具 栏 和 控件 -……… Ne S29 
LS Ha A 524 
1826 ST 524 

18.3 ”修改 加 载 宏文 件 ………………… 525 

18.4 使 用 VBA 操作 加 载 宏 …………… 526 
18.4.1 ”加 载 宏 的 重要 属性 ………… 527 
18.4.2 ”加 载 宏 的 遍历 ……………………… 528 


xy ， Office VBA 开发 经 典 一 一 基础 入 | 卷 
18.4.3 VBA 代码 中 调用 加 载 安 中 的 
| A 528 
18.4.4 ”完全 删除 加 载 宏 ……………… 530 
3 531 
第 19 半 经 典 编程 实例 ……………… EE 
| 533 
02 OM 534 
19.3 ”学 生成 绩 评 定 和 登记 --……………- .3 
04 TED 536 
195 员工 届时 量 下 538 
19.6 ”一 次 盟 数 用 于 单元 格 的 过 历 …… 539 


附 





19.7 单词 表 按 首 字母 汇总 …-……………… 
19.8 ”交叉 表 汇 总 一 一 双边 贸易 关系 … 


录 A VBA 编程 常用 资料 ………… 


A.1 Excel VBA 实用 语句 人 
Application 对 象 实用 语句 … 
Workbook 对 和 象 实 用 语句 -…… 
Worksheet 对 象 实用 语句 
Window 对 象 实用 语句 

A.1.5 Range 对 象 实用 语句 
A2 VBA 力 数 用 法 示例 
A.3 VBA 编程 疑难 问答 …………… a 


A.l.l 
FN 
.1.3 


A.l.4 


3542 
543 


345 


345 
345 
345 
546 
346 
546 
S47 
550 





VBA 是 Visual Basic for Applications 的 缩写 ， 是 指使 用 Visual Basic 6 语言 来 开发 其 他 
应 用 程序 的 编程 技术 。 该 语言 由 微软 公司 于 1993 年 开发 ， 主 要 用 来 扩展 Windows 应 用 程序 
功能 ， 特 别 是 扩展 微软 O 佳 ce 软件 。 

本 章 主 要 介绍 VBA 的 应 用 领域 和 发 展现 状 、Office 与 VBA 的 安装 、Office 版 本 、VBA 
编程 开发 的 产品 类 型 以 及 如 何 高 效 学 习 等 知识 。 


1.1 VBA 应 用 领域 和 发 展现 状 


VBA 最 大 的 特点 和 优势 就 是 用 程序 代码 的 方式 代 符 手工 操作 ， 能 够 把 一 些 重 复 、 素 杂 
的 序 动 程序 化 ， 忆 省 人 力 成 本 ， 提 高 工作 效率 。 

为 外 ，VBA 语言 的 独特 性 在 于 它 是 一 门 服务 于 应 用 程序 对 象 的 语言 ， 而 不 是 一 门 纯 粹 
的 编程 语言 。 因 此 ，VBA 与 应 用 程序 的 具体 对 象 紧 密 联 系 ， 能 够 更 直接 地 处 理 电脑 中 的 各 
种 文件 和 数据 ， 再 加 上 这 门 语言 以 VB 语法 为 基础 ， 入 门 比较 容易 。 

VBA 语 言 主 要 用 于 微软 Office 和 常用 组 件 中 ,例如 用 于 Excel 的 VBA (简称 Excel 
VBA)。PowerPoint、Word、Access 、Outlook 等 组 件 也 都 支持 VBA 编程 。 

此 外 ， 一 些 非 Office 软件 也 将 VBA 作为 开发 语言 ， 例 如 AutoCAD 、ArcGIS 等 。 

其 中 ，Excel 作为 全 球 最 有 名 的 电子 表格 软件 ， 用 户 极其 上 庞大， 因此， 相应 的 Excel 
VBA 也 非常 受 欢迎 ， 其 对 象 模 型 非常 完善 ， 人 们 对 Excel VBA 的 人 研究 也 达到 了 一 个 空前 的 


1.1.1 美国 的 VBA 水 平 


美国 的 Chip Pearson 在 Excel VBA 方 面 有 着 非常 深厚 的 技术 积淀 ， 该 英文 网 站 的 网 址 为 
http://wWwww.cpearson.comV/EXcelMalnPage.aspX。 


2 Office VBA 开发 经 典 一 一 基础 入 门 卷 


如 图 1-1 所 示 ， 该 网 站 包含 非常 多 的 免费 代码 和 源 文件 。 
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微软 的 MSDN 其 实 就 是 面 回 Office 开发 的 一 个 庞大 的 帮助 体系 ,例如 下 面 的 链接 介绍 
Office 功能 区 的 定制 ， 具体 网 址 是 https://msdn.microsoft.com/en-us/library/aa338202.aspx。 

美国 的 John Walkenbach 出 版 了 有 关 Excel 以 及 VBA 的 图 书 六 十 余 本 ， 其 最 新 的 VBA 书 
籍 为 Excel 2013 Power Programming With VBA4。 它 的 主页 为 http://spreadsheetpage.com/。 
网 页 截图 如 图 1-2 所 示 。 


Coaanloads Blaag 


J-Walk & Assorciates is a small company Swned by me: John Walkenbach. ve been using spreadsheets since the early days of VisiCalc. Ive writben 
mamy Excel books, and | olso developed Power Ublity Pak, a popular add-in for Microsoft Excel, [more sbout Johnl 


This sRe contains informatisn about my bawks and Excel-related products, PLUS lats SF Free bps, dowrnloads, and sther stufft For Excel mavens. 
Explore the meny at the top;, and dig around, There's an excellent chance that yeu ll find semething yeu didn't know， 





图 1-2 ”John Walkenbach 的 主页 


1.1.2 日 本 的 VBA 水 平 


Office TANAKA 是 日 本 Excel MVP 田中 部 (太太 加 上 避 台 ) 的 个 人 网 站 ( 见 图 1-3)， 
网 址 为 : http://officetanaka.net/。 


Office TANAKA 
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图 1-3 田中 至 的 主页 


田中 享 被 认为 是 日 本 VBA 第 一 人 ， 经 第 在 日 本 举办 大 型 YBA 现场 授课 ,门票 紧张 程 
度 堪 比 演唱 会 。 


第 1 章 VBA 编程 概述 (3) 
田中 部 在 VBA 领域 影响 极 大 ， 就 连 微软 公司 在 日 本 举办 的 Excel VBA 专家 考试 用 的 参 
考 书 ， 也 都 是 由 田中 享 编写 的 。 
1.1.3 VBA 专家 考试 


微软 公司 除了 微软 办 公 软 件 认 证 考试 (MOS) 以 外 ， 还 在 个 别 国 家 实施 VBA 专家 考试 。 
日 本 每 年 不 定期 地 举办 VBA 方面 的 认证 考试 ( 见 图 1-4)， 考 试 的 官方 链接 为 http:/vbae. 
odyssey-com.co.jp/index.html., 
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1-4 VBA 专家 考试 主页 
1-5 是 作者 在 2012 年 获得 的 Excel VBA 专家 证 书 。 


VBA Expert 
Excel VBA Standard 


刘 永富 


三 南音 ， 上 开头 腾 本 音 格 者 上 上 上 志 攻 证 | 求 十 
殿 驻 日 i 2012 和 7 月 加 日 





图 1-5 VBA 专家 证 书 


1.2 ”Office 与 VBA 的 安装 


进行 VBA 编程 开发 之 前 ， 自 先 要 在 电脑 中 安 Office 软件 。 下 面 将 介绍 Office 第 用 版 
本 的 安 闻 过 程 。 

微软 公司 开发 的 Office 办 公 软 件 拥 有 世界 上 最 多 的 用 户 ， 主 要 组 件 包 括 : 

口 Microsoft Word (文字 处 理 )。 

口 Microsoft Excel (公式 计算 、 表 格 数据 处 理 )。 

口 Microsoft PowerPoint (幻灯 所 演示 )。 
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口 Microsoft Access ( 数据库)。 
口 Microsoft Outlook (电子 邮件 )。 
口 Microsoft FrontPage (网 幢 编 辑 )。 
口 Microsoft Visio〔 流 程 图 绘制 )。 
自 1984 年 微软 公司 着 手 开发 Office 以 来 ， 目 前 主要 使 用 的 版 本 见 表 1-1。 
表 1-1 Office 版 本 及 系统 需求 
Office 版 本 版 本 号 系统 要 求 


Office 2003 Windows XP 及 其 以 上 
Office 2007 Windows XP 及 其 以 上 
Office 2010 Windows XP 及 其 以 上 
Office 2013 Windows 7 及 其 以 上 
Office 2016 Windows 7 SP1 及 其 以 上 


根据 作者 使 用 的 经 验 ， 如 果 您 的 系统 是 Windows XP， 可 以 安装 Office 2003/2007/2010 ; 
如 果 您 的 系统 是 Windows 7， 可 以 安装 Office 2013 及 其 以 下 任何 版 本 ; 如 果 您 想 使 用 Office 
2016， 则 建议 更 换 系 统 为 Windows 10 后 青 安 疙 。 当 然 ， 菏 些 情况 下 Windows 7 系统 中 也 能 
安装 Office 2016。 

微软 Office 各 版 本 包含 的 组 件 不 尽 相 同 ， 例 如 FrontPage 只 有 在 Office 2003 中 才能 看 
到 。 目 前 使 用 最 频繁 的 办 公 软 件 有 Word 、Excel 和 PowerPoint。 此 外 ， 数 据 库 软 件 Access 
以 及 电子 邮件 Outlook 的 用 户 也 不 少 。 

要 开始 进行 VBA 编程 ， 读 者 需要 具备 独立 安装 微软 Office 的 能 力 ， 由 于 Office 2007 以 
上 各 版 本 的 安装 步骤 大 至 相同， 因此 下 面 主 要 讲述 Office 2003 和 Offce 2010 的 安装 过 程 。 
读者 可 根据 自身 需求 来 选择 Office 的 版 本 和 要 安装 的 Office 组 件 。 

如 果 中 的 安装 文件 已 经 解压 ， 则 可 以 直接 双击 setup.exe 文件 启动 安装 过 程 。 图 1-6 为 
Office 2013 的 安装 文件 内 容 。 
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过 是 后 方 问 的 柱 加 


i 库 


ee 并 n admin Td 1 
本 本 号 
车 视 须 间 3 有 ss 入 - 
图 图 片 le | 加 国 EE. 2 E 
如 | bi, | 
3 "ahi- TNEH2TI-t nh i wl corkhz lt nt UR.EN-iTi 


Tutlook.zh-cn 


setup.ewe 悖 性 日 期 : 2012/10y1 18:13 着 建 日 期 : 2017/3/2 20:38 
应 用 程序 Kh: 202 KB 





图 1-6 Office 2013 安装 文件 的 内 容 
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微软 提供 的 Office 安 淡 文件 ， 通 党 是 扩展 名 为 .iso 的 压缩 包 ， 这 种 压缩 包 不 能 耳 接 找到 
setup.exe 安装 主 文件 。 奈 缩 包 的 大 小 通 稼 在 1GB 左右 ， 如 果 解 压缩 后 安装 ， 则 会 占用 大 量 磁 
检 空 间 。 为 了 市 约 磁 盘 ， 可 以 不 解压 就 安 汛 O 才 ce， 这 就 需要 用 到 虚拟 光驱 软件 。 

以 下 先 介绍 虚拟 光驱 软件 DAEMON Tools Lite 的 安家 和 使 用 。 


1.2.1 安装 DAEMON Tools Lite 


从 本 书 配 套 资 源 下 载 该 软件 ,或 者 在 百度 中 搜 。 von | 
索 并 下 载 该 软件 的 安装 程序 ， 双 击 DAEMON _Tools_ DAEMON Toos Lite 
Lite V10.1.0.74.1435028673.exe 文件 ， 启 动 DAEMON 
Tools Lite 的 安装 回 导 机 er 


制作 光盘 耻 像 关 件 入 愤 拟 虚 拟 说 盘 的 便捷 工具 


语言 : 





单 击 “下 一 步 ” 按 钮 ， 进 入 “许可 类 型 ”对 话 [Cnce Grpied Ch) 
框 ( 见 图 1-8)。 

在 这 个 对 话 框 中 ， : 一 定 要 选择 “ 鲍 费 许可 ” 单 点 击 下 一 步 来 同意 过 虞 侍 用 省 夫 说 和 隐私 可 下 熏 
选 按钮 ， 然 后 单 击 “ 下 一 步 ” 按 钮 ， 进 入 如 图 1-9 
所 示 的 对 话 框 。 图 1-7 DAEMON Tools Lite 安装 界面 1 


在 “文件 关联 ”中 ， 取消 勾 选 所 有 扩展 名 类 型 ， 并 且 癌 下 拖 动 深 动 条 ， 取 消 安装 各 种 额 
外 软件 ( 见 图 1-10)。 


| DAEMON Tools Lite 辣 DaEMION Tools Lite [| | | 


许可 类 型 明达 
请 选择 证 可 当 刑 。 迁 择 你 想 要 安装 DAEMON Toals Lits 的 功能 。 


二 芋 信息 要 宏 枚 有 组 件 ， 并 取消 你 趟 想 要 的 过 装 组 件 。 单 击 (下 一 步 交 =」 撤 镭 绯 





已 商业 许可 证 * 终身 升级 
这 身 更 新 * 包 棋 3 自 FC。 247 志 持 。 


[| DAEMON Toals Lite 内 校训 和 件 
* 恬 江 联 


已 商业 许可 还 
捏 其 沟 珊 业 目 的 伟 用 将 应 用 程式 的 许可 证 。 


避免 费 许 可 i 
由 襄 作 羽 忻 提 世 ,不 悍 证 提供 质 术 支持 。 描 杜 





图 1-8 DAEMON Tools Lite 安装 界面 2 图 1-9 DAEMON Tools Lite 安装 界面 3 
接 看 单 击 “下 一 步 ” 按 钮 ， 进 入 如 图 1-11 所 示 安 装 过 程 。 
半 DAEMON Tools Lite ee 乔 DAEMON Tools Lite [ji | 


组 意 


8 正在 安装 
选择 你 起 要 安装 DAEMON Todla Uite 的 功能 。 请 稍 屋 正 在 宕 装 DABMON Tooks Lite 。 





a 并 取消 你 生息 要 的 宏 装 租 件 。 单 击 [下 一 步 娩 > 1 按 馈 下 正在 更 新 忠 氟 语音 
Im 


| 

六 加 实 装 百度 工具 疾 和 抽 址 疙 ， 让 上 由 搜索 更 便捷 呈 工 三 避 ) 

一 癌 ] 究 硅 百 度 浏览 误 ， 体 验 万 二 应 用 

一 癌 ] 灼 引 址 导航 haol23 设 汶 首 页 

图 人 hao123 示 加 | 蜡 面 
工 


: 岂 接 方式 
一 加 苑 许 DAEMON Toals Lite 长 送 攻 娩 的 统计 吉 据 





符 动 你 的 民 标 指 社 到 组 件 过 上 ， 硕 可 见 到 它 的 挡 珠 = 


Disc Solt Ltd 


= 





图 1-10 DAEMON Tools Lite 安装 界面 4 图 1-11 DAEMON Tools Lite 安装 界面 5 


6 Office VBA 开发 经 典 一 一 基础 入 门 卷 


在 弹出 的 对 话 框 中 单 击 “ 安 疙 ”按钮 即 可 ( 见 图 1-12)。 
然后 等 待 5 分 钟 左右 ， 出 现 如 图 1-13 所 示 安 装 成 功 对 话 框 。 
出 DaEMoN Tocls Lite 加 | 村 


DAEMON Tools Lite 
已 成 功 的 车 成 突 茶 


Windows 实 全 
您 想 安 装 这 个 设备 软件 中? 


名 称 : Disc Soft Ltd 存储 控制 器 
人 发 布 者 ; Disc Soft lt 


运行 DaEMON Tools LitefR) 


访问 CAEMONTeas Lits 主 喇 


上 一 步 四 | 各 寺 志 Ba| 





始终 信任 来 自 "Disc Soft Ltd" 的 软件 内 。 


咽 您 谈 仅 从 可 信 的 发 布 者 安装 驱动 程序 软件 。 我 如何 兢 定 记 些 设备 软件 可 | 浴 安 全 
安 闭 ? 





1-12 ”DAEMON Tools Lite 安装 界面 6 图 1-13 ”Daemon Tools Lite 安装 界面 7 
如 果 现 在 立刻 使 用 DAEMON Tools Lite， 人 勾 选 “运行 DAEMON Tools Lite” 复 选 框 
后 ， 单 击 “ 完 成 ”按钮 即 可 。 


1.2.2 ”Office 2003 的 安装 
安装 好 DAEMON Tools Lite 后 ， 双 击 其 图 标 启 动 虚 拟 光 驱 软 件 。 工 具 窗 口 启动 后 , 单 
击 左下 角 的 “快速 装载 ”按钮 ( 见 图 1-14)。 


> we 映像 iSCSI 
甘 营 
加 咸 到 SC 

个 swe 

ns 

四 虑 执 HDD 


< Us 





1-14 DAEMON Tools Lite 装载 界面 


在 弹出 的 文件 选择 对 话 框 中 选择 Office 2003 中 文 版 的 iso 安 妆 文件 ， 单 击 “ 打 开 ” 近 钮 


( 见 图 1-15 ) 。 
DAEMON Tools Lite 界面 左下 角 的 光驱 图 标 变 为 “(HH: ) OFFICE 11”( 见 图 1-16)。 
同时 打开 电脑 的 资源 管理 絮 窗 口 ， 会 看 到 电脑 的 硬盘 分 区 列表 中 多 了 一 个 H 盘 。 多 册 


来 的 互 盘 就 是 虚拟 盘 〈( 见 图 1-17)。 
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| 
| 出 计算 机 ， 软 件 系统 ， Microscft Dffice 2003 届 体 中 文本 完 闻 版 -| 他 || 站 去 Microson ofsee 2003.. P| 


BE cn_office professional_enterprise_edition_2003 united_states xB6 cd 489879.so 2017/414 1021 





更 


韵 件 名 出 cn_office protessional_anterprise_editon 2003 unmited_states x86 rd 4898794 = | 所 有 了 映 刀 [mds;.mdxe bat; 





1-15 选择 Office 2003 安装 锯 


映像 SCSI 


(HS OFFISEL1 





图 1-16 ”装载 安装 文件 成 功 
此 时 ， 单 击 DAEMON Tools Lite 左下 角 的 瑟 盘 图 标 ， 或 者 双击 资源 管理 寓 中 的 耳 极 ， 
都 会 月 动 激活 Offce 2003 安装 主 文件 ， 出 现 如 图 1-18 所 示 的 安装 界面 。 


SE Hn ， 
给 妇 后 动 汗 K 。 洒 纠 属性 藉 搞 屋 性 名 环 或 两 内 程 计 “篇 旦 同 昨 驱动 下。 打开 这 刊 面 板 如 国 声 


Niecrosofi DEFice Trofessijonal Fdition 2003 





i = 
本 产品 窗 乌 
4 砷 熏 |5) 
劝 动 避 9 至 统 IC:] 
ce | | 
cr 5 所 号 右 B 可 月 . 并 6 58 > B636Bg 睛 ,其 111 68 
教 加 (Dn 作品 (EY 


| cn | 
1 上 GE 可 月 . 共 1732 6 228 5B 可 用 . 共 251 G 昌 j 中 视 访 25 的 产品 宣 划 * 意 可 以 在 长 真品 正 书 睛 上 或 在 
网 和 各: 和 全 


人 基 这 和 性 旧 
用 . 共 214 68 EI 


a 有 可 生动 存 俩 的 褒 遇 [二 


ED-Rel 下 动量 1H3 总 FFICE4L 
= 可 达 动 三 本 (En 0) oy im ,#550 Mo 
ee CFS 


a 其 他 寻 ) 


百 座 网 息 
观 主 天 行 百度 网 二 





BY Ts 由 ee 交 件 卫 综 ; CDFS ee : ee = = 
图 1-17 虚拟 光盘 界面 图 1-18 ”Office 2003 安装 界面 1 


Applications, 
选项 〈 见 图 1-23)。 


Office VBA 开发 经 暴 一 一 基础 入 门 卷 


在 “产品 密 钥 ”处 输入 25 个 字符 的 产 


品 密 钥 ， 然 后 单 击 “下 一 步 ”按钮 。 


在 “用 户 信 息 ” 中 输入 用 户 名 、 缩 号 、 单 位 名 称 后 ， 单 击 “ 下 一 步 ” 按 钮 ( 见 图 1-19)。 
在 弹出 的 窗口 中 选择 “日 定义 安 凌 ” 单 选 按 钮 ， 在 “ 安 沪 位 置 ” 中 指定 一 个 安 站 路 径 ， 


接着 单 击 “ 下 一 步 ” 按 钮 ( 见 图 1-20)。 


用 户 色 上 : 
入 写 (I]: 
单位 血 ]: 


et a 有关 Microsoft 的 | 林 丰 有 是 保护 隐 直 驴 才 据 安 主 


中 Frenne a 
图 1-19 ”Office 2003 安装 界面 2 


接 下 来 进入 组 件 选 择 窗 口 ( 见 图 1-21)。 
在 这 个 窗口 中 ， 除 了 勾 选 需要 安装 的 组 件 外 ， 
级 自 定 义 ” 复 选 框 ， 接 着 单 击 “ 下 一 步 ” 按 钮 进入 高 级 自 定 义 窗口 ( 见 图 1-22)。 


erriorval Editicrm 2003 


Et Dffice 200% 应 用 程 碌 : 


Nerdy 贺 PublLishe) 

列 Excel 让 图 scess th) 

| PawarFoint (EF] 国 回 InEeFath I 

| Dotlooke in) 

InfoPath 需要 尾 用 有 Ecrosoft Iataraat 了 ?Lorar B.0 或 时 襄 瞩 本 。 
C 本 过 反 挛 阳 程 序 的 训 刀 和 定义 器 


C5， 的 所 又 广 间 343 MP 
:的 可 用 次 间 85 缉 


图 1-21 Office 2003 安装 界面 4 











agoral Editicorn 2003 


光明 
[ 些 
Tos be 和 


总 最 小 鹿 装 加 
别 自 赴 党 专 装 诺 ) 


汪 臣 : InfoPath 条 这 信用 Ni 


清关 全 少年“ 调 富 和 和 


图 1-20”Office 2003 安装 界面 3 


还 需要 勾 选 左下 角 的 “选择 应 用 程序 的 高 


uccioreal Edqaticrn 2003 
请 泛 择 永 用 程序 和 工具 由 E 丫 这 项 。 
TR 7 rosoft Office Dutlook 


| 

| 

| 

可 | Microsoft Dffice Fhrd 
| 时 ee THToFaLT | 
| 

| 

| 

| 

| 

| 

| 

| 


C5， 的 后 又 广 i 间 362 MB 
:的 可 用 次 间 85 最 


Emoa md 
图 1-22 ”Office 2003 安装 界面 5 


在 这 个 窗口 中 ， 依 次 展开 Microsoft Office 一 “Office 共享 功能 ”一 Visual Basic for 


注意 : 在 这 个 窗口 中 ,如果 选择 的 是 “不 安 洲 ”， 


VBA 编程 功能 。 


并 展开 “Visual Basic for Applications ” 


万 点 ， 单 击 “ 从 本 机 运行 全 部 程序 


则 安装 完 Office 后 ， 将 无 法 使 用 


接着 单 击 “下 一 步 ” 按 钮 ， 进 入 如 图 1-24 所 示 界 面 。 
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it ULTELce< ProEessiormal EqItlcon O03 


1 tt DitiElce ProEesslrrmal Editicn S003 
pit 
高 鸭 自 定 交 耻 | 


博 送 择 应 用 程序 和 工具 的 安装 选项 。 
窜 装 程序 准 音 就 结 ， 将 执行 岂 下 性 : 
中 -| 快捷 方志 - 新建 和 打开 0fEice 字 簿 | 
Of 


=- 去 装 且 下 出 民 eofl ntffies 2009 应 用 程序 
sa Nerd 届 束 机 运行 
图 Breal 届 吉 机 运行 ; 
Ea FoworFuint 【相机 机 运行 2 
ww Datlnck (不可 用 1 
¥w Fublisher 上 中 可用) 


! | Cess Lh 用 ) 
启明 | ofa t 不 可 有 图) 
i 

E: 的 所 下 误 间 352 NE 


Cc: 的 可 用 于 间 35 喇 


(EB)[F Em > [ wm | | 


E: 的 所 四 芋 间 352 NE 
E: 的 可 用 空间 35 本 





图 1-23 ”Office 2003 安装 界面 6 图 1-24 ”Office 2003 安装 界面 7 
有 f 击 “安装 ”按钮 ， 进 入 正式 安装 过 程 ( 见 图 1-25 )。 
大 约 等 待 $ 分 钟 后 ， 安 装 过 程 结束 。 单 击 电 脑 的 “开始 ”按钮 ， 在 所 有 程序 列表 中 可 以 
看 到 刚刚 安装 的 Office 2003 ( 见 图 1-26)。 








正在 得 电 恒 立 件 


国 Wicrascft Diffce Exce| 2003 
Mlicroeoft Offioe Poverpeint 20d 
正在 县 电 纺 件 : 5EIVT. CH Microsoft Ches Word 2003 
BB Microsoft Offics 工具 
BE hicroeoft Cffice 2013 
点 Nicroscft Wisual Basic G0 中京 嵌 
BB Microsott Visual Sourcesete 
bE Microsoft Web Publishirg 





图 1-25”Office 2003 安装 界面 8 图 1-26 ”Office 2003 安装 界面 9 
到 此 ，O 香 ce 2003 已 经 安装 成 功 ， 但 是 需要 在 DAEMON 中 堵 载 虚拟 光盘 ， 因 此 将 鼠标 移 


动 到 DAEMON Tools Lite 界面 中 瑟 盘 上 方 ， 待 出现 x 标记 时 单 击 ， 二 载 光 盘 ( 见 图 1-27)。 




















{HY OFFKCELL 





图 1-27 缀 载 光 盘 


10 ”Office VBA 开发 经 典 一 一 基础 入 门 卷 


另外 ,也 可 以 完全 退出 DAEMON Tools Lite 窗口 ， 然 后 在 资源 管理 需 中 右 击 也 和 嚼 ,在 
弹出 的 快捷 菜单 中 选择 “弹出 ”命令 ( 见 图 1-28 ) 。 


驱动 (A:) 





= 55.8 GB 可 用 , 共 60.0 GB 85.3 GB 可 用 . : 
坝 程 【Do 作品 在 Compress and email.., 
| es 是 出 “ 扫 搓 病毒 {电脑 管家 ] 


19.6 GB 可 用 ， 共 172 GB 228 GB 可 用 ,3 Compress to "Archive,.rar” a 


软件 {及 和 拌 出 ( 
24.9 GB 可 用 , 共 214 GE 披 制 (CO) 

4 有 可 徒 动 存储 的 吝 备 (2) 创建 快 控 方式 (SY 
一 = 可 种 动 磺 卓 (G3 BY a | 
mm CDFS 

2 苦 他 站 ) 


百度 网 盘 
Gn 作品 (E3 ly 双击 运行 再 度 网 要 


a BD-RGOM 驱动 器 全 名 FFICE1L1L 可 月 衬 间 : 0 字 节 
虽 梧 “CD 驱动 器 总 雯 小: 58B MB 





图 1-28 弹出 光盘 


1.2.3 Office 2010 的 安装 


与 Office 2003 的 安装 过 程 一 样 ， 用 DAEMON Tools Lite 来 快速 装载 SW DVD5 offce 
Professional Plus 2010w SP1 W32 ChnSimp CORE MLF X17-76734.iso 安装 文件 ， 会 在 
左下 角 出 现 “(F:)OFFICE14” 图 标 ( 见 图 1-29 )。 


EY DAEMON Tecls Ute 10.1 


映 情 iSCSI 


.3 


[及 QFFICEl14 愧 速 苇 载 





1-29 ”装载 Offce 2010 安装 包 
单 击 “(F:)Office14” 图 标 ， 启 动 Office 2010 的 安装 向 导 ( 见 图 1-30)。 
勾 选 如 下 对 话 框 中 “我 接受 此 协议 的 条 慰 ” 复 选 框 ， 单 击 “ 继 续 ” 按 钮 ( 见 图 1-31)。 
在 弹出 的 对 话 框 中 选择 “日 定 义 ” 选 项 ( 见 图 1-32)。 


在 弹出 的 对 话 杠 中 分 为 升级 、 安 猴 选 项 、 文 
件 位 置 、 用 户 信息 四 个 选项 卡 。 选 择 “ 升 级 ” 选 
项 卡 ， 如 果 电 脑 中 已 经 安装 过 其 他 版 本 的 Offfice， 
则 需要 选择 是 删除 所 有 量 期 版 本 ， 还 是 保留 所 有 
早期 版 本 ， 因 为 同一 台电 脑 允 许 同时 安 沪 多 个 版 
本 的 Office ( 见 图 1-33)。 

然后 选择 “ 安 狗 选项 ”选项 卡 ( 见 图 1-34)。 
假如 只 需要 安装 Excel 和 Word 两 个 组 件 ， 则 把 
其 他 组 件 前 面 的 三 角 下 拉 莱 单 展 开 ， 选 择 “ 不 
可 用 。 





ss Microsott Ofce Professional Plus 2010 


| 后 阅读 Microsoft 软 忻 详 可 证 条 款 


证 二: 信用 六 术 件 时 ， 雪 开 寺 于 讼 软件 时 阳 世 的 并 本 内 议 让 的 蒜 玫 和 东信 = 
: 3 户 ， 本 可 协 说 ， 
a 果 TL3ILH ! 时 FF 了 

, i ee 
ELAIDOL FIN TM., 1 RT CH 


还 于 了 JUST 可 所 
信用 访 鸭 件 。 


图 1-31 Office 2010 安装 界面 2 


ia Microsoft Officre Professional Plus 2010 
| 升 架 中 立 忻 悦 置 让 ] | 用 户 信息 点 ) 
[由 升级 早期 版 本 


安装 程序 在 计划 机 上 药性 恒 了 早 朗 版 机 的 了 crosoEt DEFices 
后 几时 所 有 早期 让 本 他) = 
[部 保留 所 在 早期 版本 的。 
汪 保本 喀 下 列 应 用 程序 种]: 
中 | Nieroroft DfEics becosr 
?Nicerocetit OfEiees Exeawel 
?Nicrosott DfEice Fowerfomnt 
站 Niceroscft DEice Foed 


图 1-33” Office 2010 安装 界面 4 








第 1 草 VBA 编程 概述 他 


a Picrosott 总 有 ce 2010 
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突 著 程序 正在 准备 省 要 的 文件 ， 荫 稍 候 
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出 Microsott Gffice Profsssional Plus 2010 


< 昌 、 选 择 所 需 的 安装 


请 在 下 面 选择 需要 的 Wicreseit ffice Professional Plus 2010 
实 装 其 型 。 


升 起 眉 ) 
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| Microsoft OFFice Professional Plus 2010 


| 刊 强 有 四 | 安装 迁 顺 下 实 忻 刀 置 各 | 用 户 信息 台 | 


自 定 所 Nierarcaft Difica 疆 夺 上 8DE 行 方式 六 


Eh 


昌 田 田 曙 田 田 田 而 
区 区 | 区 隐 区 | 区 血 了 区 
二 | 本 | 司 | 本 | 于 | 司 司 


也 是 3 癌 训 Wicrosnft 所 生 9 轻便 诗 间 总 大小 : 1.95 号 
3 可用 服 二 给 字 间 : 27.7T7 呈 
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同时 ， 还 要 确保 最 下 面 的 “Office 共有 至 功 能 ”以 及 “ Office 工具 ”处 于 全 部 安 半 状态 ， 


否则 不 能 使 用 VBA 编程 功能 。 


接着 选择 “文件 位 置 ”选项 卡 。 默 认 的 安装 路 径 是 C:\Program Files\Microsoft Office\。 
但 是 为 了 不 和 其 他 已 经 安装 的 Office 软件 发 生 冲 突 ， 手工 在 后 面 添加 OBce2010\， 如 图 1-35 


所 示 。 


亿 Office VBA 开发 经 典 一 一 基础 入 门 卷 


接着 选择 “用 户 信 息 ” 选 项 卡 。 输 入 必要 的 用 户 信 息 后 ， 单 击 右 下 角 的 “立即 安装 ” 按 
钮 ， 进 入 正式 的 安装 过 程 ( 见 图 1-36)。 


sal icrosoft OfFice Professional Plus 2010 a Microsott Ofce Protessional Plus 2010 


| 逢 轨 旭 | 去 睹 洁 项 而 ) | 浆 件 位 置 加 | 用 户 信息 上 ) 升级 如] | 去 装 丢 [而 好 1 | 富 忻 伪 置 全 ?| 用 户 信 息 蝶 ] 


EA 选择 文件 位 置 EE 
3 上 =| 


sf OE ce Professional Elns 2n0in0s 妇 果 要 在 其 
请 半 的 EE 浏览" ”放生 堪 振 信 吕 " 衬 久 你 的 全 着 纠 与 和 组 织 。 
Nierosoft DfEies 程序 使 用 此 信息 吕 别 竺 Dffiea 共 宇 不 档 中 直行 更 中 的 尖 品 " 


Ci NPE pgram Filacs NiaracaFt OFFias"D EFLa eds 洒 5 
主 名 全 [ri | 


本 直 宏 茜 源 所 有 楷 空间 : 395 妥 乌 写 加) | 
程序 立 则 谣 杰 空间: 1 14 二 
所 替 驱 动 器 主 闻 总 二: 小 : 1.35 吕 公司 i :ere Pe Ru | 
胎 用 驱动 串 识 闻 : 27. 名 号 





图 1-35 Office 2010 安装 界面 6 图 1-36 Office 2010 安装 界面 7 
在 弹出 的 对 话 框 中 可 以 看 到 安装 进度 ( 见 图 1-37)。 
这 个 安装 过 程 大 约 持续 15 分 钟 ， 中 途 一 定 要 耐心 等 待 ， 不 要 退出 ， 直 到 出 现 安装 完成 
的 提示 界面 ( 见 图 1-38)。 





BaOffiee 


和 ee Difice Professional Plus 2010° 
得 留 村 请 打 " 菜单， 政和 到 JILeresgezt Dice 京 件 到 ， 申 


完成 0ffice 体验 
* 联机 行 屠 并 共计 上 候 的 二 


息 的 台所 
获取 免费 的 产品 更新 、 帮 助 和 培训 


= 
正和 福安 沪 Wicrosof1i DEfina Profursional Plur O10D... 硅 往 联机 io) | 
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Office 2013 和 Office 2016 的 安装 步骤 与 Office 2010 几乎 完全 一 样 ， 此 处 不 再 重复 讲解 。 
微软 公司 自 2017 年 10 月 10 日 起 ， 不 再 为 Office 2007 提供 服务 ， 因 此 本 书 不 推荐 安装 。 


提示 : DAEMON Tools Lite 这 款 虚 拟 光 驱 软 件 ， 除 了 用 于 Office 的 安装 外 ， 还 可 以 
用 于 Visual Studio、SQL Server 等 大 型 软件 的 安装 。 只 要 安装 包 的 格式 是 iso 的 压缩 
包 ， 基 本 都 可 以 用 DAEMON 来 装载 。 


1.3 Office 版 本 


在 十 几 年 前 Office 2003 的 功能 足以 应 对 日 常 办 公 ， 但 微软 公司 一 人 
版 本 的 更 新 。 随 着 信息 时 代 的 来 临 ， 微 软 公 司 几 乎 每 隔 三 年 就 推出 一 个 新 版 本 。 迄 今 为 止 ， 
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已 经 连续 推出 2007、2010、2013 、2016 四 个 版 本 。 

很 多 Office 新 老 用 户 以 及 计划 学 习 VBA 的 人 员 经 第 面 对 Office 版 本 的 选择 而 犹 耽 不 
决 。 其 实 ， 软 件 的 版 本 越 新 ， 代 表 它 的 功能 越 全 面 ,但 是 往往 有 更 苛刻 的 系统 要 求 ， 因 此 要 
根据 电脑 的 配置 情况 来 选择 安装 。 

下 面 介 绍 不 同 的 Office 版 本 的 界面 和 文件 格式 的 差异 。 


1.3.1 界面 的 变化 


微软 Office 软件 从 2007 版 本 起 ， 界 面 由 传统 的 菜单 人 性、 工具 栏 模式 改变 为 功能 区 模式 。 
Excel 2003 、Excel 2013 的 界面 分 别 如 图 1-39 和 图 1-40 所 示 。 


ft DEELcE 
Dr ir 
有 法 使 用 Exeal 的 最 新 
硬 自动 内 辐 站 更 痢 此 列 去 
其 人 也 .. 


11 


Es 
可 光 
王 到 
6 
要 型 
而 潮 
3 
一 一 


不 例 : “日 夫 个 副本 























H= 


至 
是 
于 
误 


下 Wi Shectl Sbeet2/ ShectIA ta x sheetd 


| sheet | 命 
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1.3.2 ”文件 格式 的 革新 


从 Office 2007 版 开始 ，Office 文件 格式 出 现 了 四 位 以 上 的 扩展 名 ， 表 1-2 展示 了 稼 用 组 
件 的 文档 类 型 及 其 部 分 扩展 名 。 


表 1-2 Office 文档 类 型 及 其 部 分 扩展 名 


ome Ome 007 BE RE 
Word 
Excel 下 竹本 一 > .Xlsx .Xlsm 
Excel 加 载 宏 ee .Xlam 








Access 





如 果 是 在 高 级 版 本 的 Office 中 另存 文档 ， 则 既 可 以 保存 为 三 位 扩展 名 文件 ， 也 可 以 保存 
为 四 位 以 上 扩展 名 文件 ， 但 是 需要 注意 的 是 ， 在 OfBce 2003 中 不 能 打开 四 位 以 上 扩展 名 的 
文件 ， 除 非 另外 安装 兼容 包 。 

需要 特别 注意 的 是 ，Office 2007 以 上 的 文档 通 第 扩展 名 最 后 一 个 字母 是 x 或 者 mm。 审 有 
x 的 文件 无 法 保存 VBA 工程 ， 而 带 有 了 的 文档 可 以 保存 VBA 宏 代 但 。 

在 Excel 2013 中 新 建 一 个 工作 禾 ， 单 击 “ 男 存 为 ”按钮 (快捷 键 为 【 F12 】)， 弹 出 “ 另 
存 为 ”对 话 框 。 从 “保存 类 型 ”下 拉 列 表 框 ( 见 图 1-41) 可 以 看 出 ，Excel 2013 中 可 以 把 工 
作 短 另存 为 很 多 种 格式 ， 用 户 可 以 根据 需求 进行 选择 。 


Excel 97-2003 总 杨 ("| 
也 相 尾 | 出 雪梨 分 更 | 作 .txt) 
nicods tt 


Strict 总 pen 其 ML 电子 表格 人 t,xlsx0) 
训 忻 名 DpenDocumen i ,可 sl 





图 1-41 Excel 2013“ 另 存 为 ”对 话 框 
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1.3.3 ”Office 版 本 对 VBA 编程 的 影响 


相信 很 多 人 会 疑惑 ， 安 装 了 不 恰当 的 Office 版 本 ， 会 不 会 对 VBA 的 学 习 有 影响 ?前 面 
已 经 介绍 过 ，Office 2007 及 其 以 上 版 本 采用 了 功能 区 界面 ， 因 此 ，VBA 作品 的 界面 设计 也 
随 之 发 生变 化 ， 基 本 很 少 使 用 传统 的 集 单 和 工具 栏 方式 。 

男 外 ， 新 版 的 Office 软件 的 VBA 对 象 模 型 、 对 和 象 成 员 也 会 发 生 一 些微 妙 的 变化 。 例 
如 ，Excel 2003 VBA 中 Application.FileSearch 语句 ， 该 句 在 高 版 本 Office 中 不 可 用 。 再 如 
Application.CommandBars.Execute Mso 方法 用 于 执行 一 个 控件 ， Range.RemoveDuplicates 方 
法 用 于 数据 的 去 重 ， 这 些 方法 都 是 Excel 2007 以 上 版 本 才 支 持 的 ， 因 此 ，VBA 代码 的 可 用 
性 与 Office 的 版 本 有 非常 重要 的 关系 。 

从 总 体 上 来 说 ，Office 版 本 虽然 不 同 ， 但 是 在 VBA 编程 方法 和 思路 上 基本 大 同 小 措 。 

最 后 总 结 一 点 ， 究 竟 安 装 哪 一 个 版 本 的 Office，, 一 是 取决 于 电脑 和 系统 的 配置 条 件 ， 二 
是 根据 个 人 喜好 和 操作 熟练 程度 。 

按照 作者 的 使 用 经 验 ，Offhice 2003 虽然 曾经 辉 焊 ,但 其 用 户 日 益 锐 减 ，Office 2007 同 
样 也 濒临 灭绝 。0O 特 ce 2010、Office 2013 、Office 2016 这 些 新 版 本 都 是 大 热 所 趋 ， 推 荐 使 用 。 


1.4 Offce VBA 编程 开发 的 产品 类 型 
即将 要 开始 VBA 的 学 习 了 ， 需 要 明确 一 下 学 习 、 开 发 的 具体 目标 ， 这 样 才能 有 的 放 矢 。 


1.4.1 基于 Office 文件 的 编程 开发 


VBA 代码 书写 在 Office 文档 中 ， 保 存 有 VBA 工程 的 文档 在 应 用 程序 中 打开 后 ， 就 可 以 
使 用 其 中 的 VBA 功能 。 为 了 让 VBA 开发 的 功能 可 以 在 整个 应 用 程序 都 有 效 ， 可 以 把 文档 
男 存 为 相应 的 模板 或 加 载 宏 。 

表 1-3 列 出 了 可 以 存储 VBA 宏 代 码 的 Office 文档 以 及 加 载 宏 的 扩展 名 。 


表 1-3 可 以 存储 VBA 宏 代 码 的 Office 文档 以 及 加 载 宏 的 扩展 名 


组 件 应 用 程序 级 【模板 或 加 载 宏 ) 


Excel 扩展 名 为 .xls、.xlsm 扩展 名 为 .xla、.xlam 
Access 扩展 名 为 .mdb、.accdb 扩展 名 为 .mda、.mde、.accda、.accde 
PowerPoint 扩展 名 为 .ppt、.pptm 扩展 名 为 .ppa、.ppam 
Word 扩展 名 为 .doc、.docm 扩展 名 为 .dot、.dotm 





注 : Word 组 件 中 没有 加 载 宏 这 一 说 法 ， 取 而 代 之 的 是 模板 。 


也 就 是 说 ， 无 论 是 文档 级 ， 还 是 加 载 安 ,实质 上 都 是 Ofiee 文档 。 如 果 单 从 性 能 上 讲 ， 
基于 Office 文档 的 开发 非常 简单 、 易 用 ， 效 率 也 很 高 ， 但 唯一 的 缺点 是 代码 安全 性 太 低 。 虽 
然 VBA 工程 可 以 设置 密码 保护 ， 但 是 利用 其 他 工具 可 以 轻松 破解 ， 其 中 的 代码 可 以 被 他 人 
一 览 无 余 。 
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当然 ， 对 于 Office VBA 的 初学 者 ， 自 先是 打 好 VBA 编程 的 基础 ， 姑 且 不 考虑 代 但 安全 
性 问题 。 本 书 中 所 有 章节 都 是 基于 Office 文件 的 VBA 编程 。 

如 宁 要 把 自己 的 VBA 作品 让 客户 付费 使 用 ， 则 需要 制作 COM 加 载 项 或 动态 链接 库 ， 
这 些 产品 的 扩展 名 通常 为 .dl， 他 人 无 法 看 到 源 代码 。 


1.4.2” Visual Basic 6 封装 


使 用 Visual Basic 6 开发 的 动态 链接 库 ， 可 以 很 好 地 封 痛 目 定义 困 数 、 过 程 、 窗 体 等 ， 
还 可 以 开发 Office 组 件 的 外 接 程 序 ， 以 及 VBA 集成 开发 环境 (VBIDE) 的 外 接 程 序 。 这 部 
分 内 容 本 书 暂 不 做 介绍 。 


1.4.3 VSTO 开 友 


VSTO 是 Visual Studio Tools for Office 的 和 伽 称 ， 就 是 利用 Visual Studio 开发 Office 插件 。 
VSTO 是 目前 微软 公司 最 新 推出 的 O0 值 ce 开发 技术 。 
无 论 是 Visual Basic 6 封装 ， 还 是 VSTO 开发 ， 都 必须 掌握 好 OFfice VBA 的 编程 基础 。 


1.5 ” 遍 效 学 习 VBA 编程 


相信 很 多 读者 读 到 这 里 ， 对 VBA 还 是 很 阳 生 ， 难 以 厘清 头绪 。 事 实 上 ，VBA 语言 是 基 
于 Visual Basic 6 的 语法 ，Visual Basic 6 本 二 就 是 一 门 体系 庞大 的 大 型 编程 语言 ， 筷 握 其 语 
法 基础 实 属 不 易 。 另 外 ， 还 需要 理解 Office VBA 对 象 模型 中 各 个 常用 对 象 的 诸多 特性 。 

但 是 ,可 以 把 VBA 编程 莹 多 的 知识 点 简化 为 如 下 两 点 。 

(1) VBA 作品 的 基本 组 成 单位 其 实 是 过 程 ( Subroutine )， 一 个 过 程 是 由 若干 行 代码 组 成 
的 。 换 言 之 ， 一 个 VBA 作品 是 否 优秀 ， 关 键 是 看 其 中 的 过 程 设 计 得 好 坏 。 

(2) 界面 设计 。 界 面 是 为 了 运行 或 调用 过 程 方便 而 设计 的 用 户 接 口 ， 换 句 话 说， 不 能 让 
用 户 一 直 从 VBA 编辑 器 中 运行 过 程 。 





1.5.1 必 备 基础 


自 先 编程 者 要 有 一 定 的 英语 基础 。VBA 代码 中 的 内 置 关键 字 、 变 量 名 称 等 大 多 数 是 
由 英文 单词 组 成 的 。 本 书 配套 资中 列举 了 VBA 编程 常用 英文 单词 ， 这 些 单词 是 按照 词性 
分 类 的 。 

其 次 ， 编 程 者 对 Office 软件 的 操作 比较 熟练 。 如 果 用 户 没有 弄 明 日 Excel 单元 格 的 插 
和 人 和 删除 操作 ， 那 么 学 习 这 方面 的 VBA 语句 ， 例 如 xlUp、xlToLeft 这 些 枚 举 前 量 ， 就 比 
较 困 难 。 

如 果 读 者 有 其 他 语言 的 编程 经 验 ， 那 么 学 习 VBA 就 比较 容易 上 手 。 在 学 习 语法 基础 方 
面 比 编程 和 基础 的 人 要 容易 得 多 。 
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1.5.2 ”学 习 计 划 


为 了 让 和 零 基础 的 读者 快速 找到 学 习 方法 ,更 好 地 利用 本 书 ， 制订 如 下 学习 计 划 ， 如 


表 1-4 VBA 学 习 计 划 表 
学 习 阶 段 对 应 本 书 章节 建 议 用 时 
第 一 阶段 : 熟悉 和 了 解 VBA 编程 环境 ， 会 录制 和 查看 宏 1 周 
第 二 阶段 : 学 习 VBA 语法 基础 ， 重 点 掌握 基本 数据 类 型 、 
变量 的 赋值 、 数 字 以 及 字符 种 相 关 转 换 运算 、 顺 序 结构 、| 第 4 章 、 第 7 章 、 第 8 章 4 周 
条 件 选择 结构 、 循 环 结构 
第 三 阶段 : 过 程 与 函数 设计 、 程 序 调试 和 错误 处 理 2 周 


第 四 阶段 处理 Excel 对 象 ， 理 解 主要 对 象 的 层级 关系 ，| 第 9~15 章 











常用 对 象 的 属性 、 方 法 和 事件 运用 (结合 实际 情况 选择 性 学 习 ) 
第 五 阶段 : 界面 设计 ， 主 要 包括 用 户 窗 体 和 工具 栏 设计 | 第 16 草 和 第 17 章 4 周 





(选择 性 学 习 ) 


第 六 阶段 ， 加载 宏 制作 ， 这 一 部 分 实际 上 是 以 前 所 学 知识 | 18 二 1 周 
的 综合 运用 _ 


结合 学 习 计 划 表 ,用 5 个 月 左右 时 间 可 以 掌握 本 书 的 大 部 分 内 容 。 学 完 本 书 ， 谈 者 可 以 
熟练 地 使 用 Excel VBA 解决 工作 中 遇 到 的 问题 ， 并 且 可 以 发 布 自己 制作 的 工作 禾 、 加 载 宏 ， 
供 其 他 人 使 用 。 


习题 


1. 假设 电脑 中 安 狠 了 Offce 2013 ， 那 么 该 软件 的 安 闻 路 径 在 哪里 ? Excel 2013 的 局 动 
文件 在 什么 地 方 ? 

2. Office 2013 的 版 本 号 是 多 少 ? 如 何 查看 ? 

3. 假设 在 Excel 2013 中 新 建 了 一 个 工作 注 ， 保存 该 工作 和 锭 时， 如何 正确 选择 扩展 名 ? 
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安装 好 Office 以 后 ， 为 了 更 方便 地 开展 VBA 编程 ， 需 要 按照 如 图 2-1 所 示 的 步骤 进行 
相关 设 定 。 


显示 “开发 工具 ”选项 卡 


宏 安全 性 设置 


打开 VBA 编 辑 器 (VBE) 


插入 标准 模块 


图 2-1 VBA 编程 设 定 


2.1 顷 程 前 的 说 是 


为 了 避免 受到 恶意 VBA 宏 病 毒 的 谚 击 ，Office 默认 的 宏 安 全 性 是 “禁用 所 有 宏 ”。 但 对 
于 即将 进行 VBA 开发 的 人 员 ， 太 高 的 宏 安 全 性 不 便于 程序 的 调试 和 运行 。 

通过 “ Excel 选项 ”对 话 框 可 以 更 改 宏 安 全 性 的 级 别 ， 但 通过 “开发 工具 ”选项 卡 设 定 
更 为 方便 。 


2.1.1 显示 “开发 工具 ”选项 卡 


“开发 工具 ”选项 卡 中 的 大 部 分 命令 都 和 VBA 编程 有 关 ， 因 此 在 进行 VBA 编程 之 前 ， 要 调 
出 该 选项 卡 。 对 于 Excel 2013 版本， 选择“ 文件” 一 “选项 ”命令 ， 弹 出 “Excel 选项 ”对 话 框 。 

切换 到 “日 定义 功能 区 ”， 在 对 话 框 右 侧 勾 选 “开发 工具 ” 复 选 框 ， 单 击 “ 确 定 ” 按 钮 
( 见 图 2-2)。 
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2-2 显示 “开发 工具 ”选项 卡 
关闭 “Excel 选项 ”对 话 杠 后， 在 Excel 顶部 可 以 看 到 “开发 工具 ”选项 卡 〈 见 图 2-3 )。 


工作 得 1 - Excsl 
开 冶 ” 括 A 而 5 布局 汉 。 孝 损 。 审 同 机 四 | 开发 TI 月 tm 
各 | 录制 宏 P= A 回 属 性 有 EE 限时 尾 性 国 导 六 
一 上 | 加 出 得 9 几 这 医 ， 加 x 品 主 相信 轩 国 Re 到 导出 EF 
宏 加 天 项 CR 加载 项 。 糙 和 设计 档 式 对 “” =- ws 
总 二 安全 性 = 同 执行 对话 怎 Er 
莫 了 鸯 L 倍 改 





图 2-3“ 开 发 工具 ”选项 卡 
在 该 选项 卡 中 的 “代码 ”组 中 有 5 个 命令 按钮 与 VBA 编程 紧密 相关 。 
口 Visual Basic: 打开 VBA 编辑 兹 。 
口 宏 : 打开 宏 列 表 。 
口 录制 宏 : 把 Excel 中 的 操作 录制 为 宏 代 码 。 
OD 使 用 相对 引用 : 录制 宏 的 设 定 。 
口 宏 安 全 性 : 打开 安安 全 性 对 话 框 。 


2.1.2 ”设置 安安 全 性 


在 Excel 中 选择 “开发 工具 ”一 “代码 ”一 “ 宏 安 全 性 ”命令 ， 弹 出 宏 安 全 性 对 话 框 ， 
选择 “启用 所 有 宏 ” 单 选 按 钮 ( 见 图 2-4)。 











图 2-4 宏 安 全 性 设置 
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如 果 涉 及 VBA 工程 方面 的 编程 ， 还 需要 勾 选 “信任 对 VBA 工程 对 象 模 型 的 访问 ” 复 
选 杠 ， 单 击 “ 确 定 ” 按 钮 ， 关 闭 对 话 框 即 可 。 


2.2 ”开始 VBA 宏 编 程 


宏 (Macro) 是 指 一 系列 语句 组 成 的 VBA 过 程 。 在 VBA 程序 中 ,不 带 参 数 的 过 程 
(Sub) 是 可 以 直接 执行 的 ， 这 种 可 以 直接 执行 的 过 程 也 称 作 宏 。 

从 本 节 起 ,我 们 将 真正 地 从 Office 的 手工 操作 者 变 身 为 Office VBA 的 程序 员 。 下 面 分 
别 介绍 手工 编写 代码 和 录制 宏 。 


2.2.1 手工 编写 第 一 个 VBA 安 


VBA 宏 代 人 码 需 要 打开 VBA 编辑 各 (VBA Editor，VBE) 才能 编号 和 修改 。 打 开 VBA 
编辑 需 通 常 有 两 种 方法 : 一 种 是 选择 “开发 工具 ”一 “代码 ”一 “Visual Basic ”命令 ; 男 
一 种 是 在 Excel 工作 表 界 面 直接 按 下 快捷 键 【 Alt+F11 ]】。 

打开 VBA 编辑 器 后 ， 编 辑 器 左 侧 窗 格 为 “工程 资源 管理 器 ” 窗 格 ， 该 窗 格 中 包含 了 应 
用 程序 所 有 的 VBA 工程 结构 ， 一 个 工作 秒 就 有 一 个 VBA 工程 。 

VBA 过 程 ， 一 般 要 书写 在 标准 模块 中 ， 因 此 ， 用 鼠标 右 击 VBA 工程 ， 在 弹出 的 快捷 菜 
单 〈 即 右键 菜单 ) 中 选择 “插入 ”一 “模块 ”命令 ( 见 图 2-5)， 就 自动 插入 了 一 个 标准 模块 ， 
并 打开 该 模块 的 代码 窗 格 。 


:位 件 旧 。 纺 霹 人 视图 W。 插入 们 格式 (DO) 请 斌 ID) 运行 (R) 工具 中 外 禄 程 床 册 备品 AI) ”和 护 助 (H) 
:国峰 :加 | 续 区 丘 | 相 H 忆 | na 岂 | 避 留 泡 二 | 人 @| 





图 2-5 插入 模块 操作 
在 该 模块 中 编写 一 个 最 简单 的 VBA 过 程 ( 见 图 2-6)。 





图 2-6 编写 第 一 个 VBA 过 程 
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单 击 VBA 编辑 器 上 面 工 具 栏 中 的 三 角 按 钮 ， 执 行 该 过 程 ， 然 后 按 下 快捷 键 【 Alt+F11 ]】 
返回 到 Excel 工作 表 界 面 ， 会 看 到 单元 格 Al 的 内 容 变 成 了 “Hello VBA ” 。 上 此刻， 你 一 定 觉 
得 太 不 可 思议 了 ! 

此 外 ， 运 行 一 个 VBA 过 程 ， 还 可 以 按 下 快捷 键 【F5 】 来 执行 ， 按 下 快捷 键 【F8 】 单 步 
调试 运行 。 

对 于 VBA 的 初学 者 ， 还 不 具备 VBA 语法 基础 ， 直 接 编写 代码 有 困难 ，VBA 还 提供 了 
一 个 “录制 宏 ” 的 方法 ， 可 以 把 Office 的 动作 行为 录制 为 宏 代码 。 


2.2.2 录制 宏 


Office 的 常用 组 件 Excel、Word、PowerPoint (PPT 仅 限 2003 版 ) 提供 了 录制 宏 的 功能 ， 
通过 录制 宏 ， 可 以 把 大 多 数 的 操作 日 动 生成 VBA 代码 。 

录制 宏 主 要 包括 以 下 几 个 步骤 。 

选择 “开发 工具 ”一 “代码 ”一 “录制 宏 ” 命 令 。 

D 在 Excel 中 进行 有 关 操 作 。 

口 选择 “开发 工具 ”一 “ 代 人 码 ” 一 “ 集 止 录制 ”命令 。 

发 外 ， 微 软 Office 还 在 Excel 的 状态 栏 中 提供 了 “录制 安 ” 与 “ 俘 止 录制 ”的 按钮 
(网 图 2-7)。 

也 就 是 说 ， 单 击 状态 栏 中 “就 绪 ” 两 个 字 右 侧 的 按钮 ， 与 单 击 功 能 区 中 的 “录制 宏 ” 按 
钮 是 等 效 的 。 

单 击 “ 录 制 宏 ” 按 钮 后 ， 弹 出 “录制 宏 ” 对 话 框 ( 见 图 2-8)。 













Sheet1 Sheet2 | Sheet3 | 


由 





图 2-7 状态 栏 中 的 “录制 宏 ” 按 钮 图 2-8“ 录 制 宏 ” 对 话 框 
“录制 宏 ” 对 话 框 包括 如 下 四 部 分 内 容 。 
口 安 名 : 也 就 是 VBA 的 过 程 名 ,使 用 英文 单词 或 汉语 均 可 。 
0 快捷 键 : 设置 快捷 键 后 ， 在 工作 表 界 面 中 按 下 该 快捷 键 可 以 执行 宏 。 
口 保存 在 : 设置 宏 代码 的 保存 位 置 ， 可 以 在 个 人 宏 工 作 禾 、 新 工作 竹 、 当 前 工作 竹中 
选择 。 推 荐 选择 “当前 工作 秒 ”。 
D 说 明 : 过 程 的 注释 。 
单 击 对 话 框 中 的 “确定 ”按钮 后 ， 用 鼠标 选中 一 部 分 单元 格 区 域 ， 然 后 设置 单元 格 的 字 
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体 名称 为 “华文 行 梅 ”， 单 元 格 对 齐 方式 为 “ 右 对 齐 ”， 然 后 单 击 “停止 录制 ”按钮 。 切 换 到 
VBA 编辑 从， 可 以 看 到 当前 工作 簿 多 了 一 个 模块 。 该 模块 中 目 动 生 成 的 过 程 代码 如 下 : 


Sub CallMyName () 


' CallMyName 安 


| 刘 永 富 录制 的 简单 宏 
， 快捷 键 : Ctrl1+j 


Range ("B4:C6") .Select 
With Selection.Font 


10. .Name = “" 华文 行 楷 " 

有 .Size = 1 

Le .Strikethrough = False 

13. .SUPerscript = False 

14. .SUubscript = False 

Ls .OutlineFont = False 

全。 .Shadow = False 

1 7 .Underline = xXlUnderlineSstyleNone 
18. .ThemeColor = xXlThemeColorLightl1 
19, .TintAndSshade = 0 

0 .ThemeFont = xlThemeFontNone 
21 End With 

22 With Selection 

之 了 -HorizontalAlignment = xlRight 
4 .VerticalAlignment = xlCenter 
pe .WrapText = False 

26 -Orientation = 0 

之 .AddIndent = False 

28 .IndentLevel = 0 

ps .ShrinkToFit = False 

30. .ReadingOrder = xlContext 

SS .MergeCells = False 


32. End With 
33. End Sub 


代码 分 析 : VBA 代码 中 ， 以 单 引 号 开头 的 夺 句 都 是 注释 ， 并 不 编 详 。 为 外 ， 录 制 出 的 
宏 代 人 码 往往 有 很 多 元 余 的 部 分 ， 我 们 只 关心 实际 操作 对 应 的 代码 即 可 。 

根据 对 英文 单词 的 理解 ， 可 以 看 出 第 10 行 、 第 23 行 代码 是 录制 宏 时 在 正 的 操作 ， 
此 ， 我 们 可 以 把 上 述 过 程 修改 为 : 





1 Sub CallMyName () 

2 Range("B4:C6") .Select 

3 With Selection.Font 

4. .Name = ”华文 行 楼 " 

i End With 

6 With Selection 

1 .HorizontalAlignment = xlRight 
8 End With 

9 End Sub 


代码 分 析 : 上 述 过 程 已 经 简化 为 9 行 ， 第 2 行 代码 自动 选中 B4:C6， 这 名 会 影响 到 后 续 


第 2 章 大 的 编写 和 执行 ”23 


的 Selection 对 象 ， 因 此 第 2 行 代 人 码 可 删除 。 
另外 ，VBA 中 的 With 结构 可 以 恢复 为 完整 语法 形式 ， 因 此 上 述 过 程 进 一 步 休 化 为 : 


1 Sub CallMyName () 

ri Selection.Font.Name = " 华文 行 楷 oy 

了 Selection.HorizontalAlignment = xlRight 
4 End Sub 


代码 分 析 : 上 述 过 程 实质 性 代码 简化 为 2 行 ， 这 两 行 与 录制 宏 时 的 动作 是 一 一 对 应 的 。 
此 刻 ， 用 鼠标 事先 选中 一 部 分 有 内 容 的 单元 格 区 域 , 运 区 
行 上 述 CallMyName 宏 ， 会 看 到 所 选区 域 字体 格式 发 生 了 变化 
( 见 图 2-9)。 
VBA 的 学 习 是 日 积 月 累 的 ， 录制 了 这 个 宏 以 后 ， 我们 至 少 
学 会 了 如 何 用 VBA 设置 单元 格 的 字体 名 称 ， 以 及 如 何 用 VBA 
设置 单元 格 的 对 齐 方式 。 对 于 VBA 的 初学 者 ， 录 制 宏 是 非常 好 图 29 运行 年 不 
的 一 个 辅助 学 习 工 具 ， 如 果 进 一 步 掌 握 修改 和 简化 宏 代 码 的 技巧 ，VBA 水 平 的 提高 会 很 迅速 。 
对 于 录制 的 宏 过 程 ， 除 了 在 VBA 编辑 冀 中 按 下 快捷 键 【 F5 】 来 执行 以 外 ， 还 可 以 按 
下 录制 宏 时 设 定 的 快捷 键 来 执行 。 例 如 ， 在 Excel 中 按 下 快捷 键 【 Ctrltj 】 可 以 自动 执行 
CallMyName 过 程 。 
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2.3 VBA 代码 的 保存 


Excel VBA 的 代 公 是 要 保存 到 Excel 文件 中 的 ， 因 为 VBA 程序 的 宏观 单位 是 VBA 工 
程 ， 不 论 有 多 少 个 模块 、 多 少 个 过 程 、 多 少 行 代码 ， 它 们 都 只 能 隶属 于 一 个 VBA 工程 ， 而 
VBA 工程 是 随 着 Excel 文件 一 起 保存 的 。 

早期 的 Excel 文件 扩展 名 都 是 3 位 的 ， 例 如 .xls、.xlt、.xla， 其 中 后 两 个 扩展 名 的 文件 
均 可 由 .xls 文件 男 存 而 得 到 。 这 些 文件 均 可 保存 VBA 工程 。 

Excel 2007 版 以 后 ， 出 现 了 更 先进 的 4 位 扩展 名 Office 文件 。 管 见 的 Excel 文件 类 型 如 
表 2-1 所 示 。 


表 2-1 可 以 保存 VBA 代码 的 Excel 文件 类 型 


六 民 有 VE 人 








.Xlsx 合 
.Xlsm 启用 宏 的 工作 短 是 
.Xltm 启用 宏 的 模板 是 


从 表 2-1 可 以 看 出 一 个 规律 : 扩展 名 最 后 一 位 是 x 的 文件 ， 都 不 可 保存 VBA 代码， 而 
以 m 结尾 的 文件 类 型 ， 则 均 可 把 VBA 代码 随 文件 一 起 保存 。 
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实际 操作 中 ， 新 建 一 个 工作 短 ， 然 后 按 下 快捷 键 【 F12 】 可 以 弹出 “为 存 为 ”对 话 框 ， 
单 击 “ 保 存 类 型 ”下 拉 列 表 框 ， 可 以 看 到 所 有 可 以 保存 的 类 型 ( 见 图 2-10)。 





Excel 三 进 唱 工作 敌 l*xlsb] 
所 Excel 97-2003 工作 得 fxla] 


另存 为 XML 北 二 fxxml) 
单个 立 伟 网 耐心 mht mhtml 
(CR 省 玉 pcptmrr.html) 
| Excel 楚 柏 Fx] 
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图 2-10 Excel“ 另存 为 ”对 话 杠 
如 果 需 要 在 工作 短 中 编写 VBA 代码 ， 则 最 好 保存 为 “Excel 启用 宏 的 工作 短 ”。 


如 果 新 建 的 工作 短 中 写 人 了 VBA 代码 ,或 者 打开 了 一 个 扩展 名 为 .xlsx 的 工作 短 ， 在 
其 中 写 人 了 VBA 代码 ， 保 存 为 .xlsx 时 会 被 拒绝 ( 见 图 2-11 ) 。 


Microsoft Excel 1 | | 
无 法 在 未 启用 守 的 工作 等 中 保存 以 下 功能 : 





= WB 项 目 





0 车 要 使 保存 的 文件 具有 这 些 功 能 ,请 单 击 " 否 "， 然 后 从 “文件 类 型 "列表 中 选择 一 个 启用 宏 的 文件 关于 。 
若 要 紫 续 保存 为 未 启用 宏 的 工作 短 ， 请 单 击 " 是 "- 


图 2-11 拒绝 保存 VBA 工程 


此 ， 只 要 以 后 看 到 这 个 对 话 框 ， 就 知道 是 文件 类 型 不 具备 保存 VBA 代码 的 条 件 。 解 
决 方法 之 一 是 删除 VBA 工程 中 的 所 有 模块 、 人 代码， 然后 再 尝试 保存 。 男 一 个 解决 方法 是 男 
存 为 .xlsm 文件 。 


2.4 安 的 执行 方法 


VBA 作为 一 门 非常 灵活 的 编程 语言 ， 其 运行 方式 也 是 多 种 多 样 的 。 如 果 开发 人 员 自 己 
调试 语句 ， 可 以 使 用 最 基本 的 运行 方式 ， 就 是 把 鼠标 置 于 模块 中 某 过 程 的 代码 中 ， 按 下 快捷 
键 [ F5 ] 或 者 【 F8 】 运行 即 可 ， 这 种 最 基本 的 运行 方式 却 是 VBA 学 习 过 程 中 使 用 最 多 的 执 
行 方式 。 但 是 这 种 执行 方式 的 缺点 是 必须 打开 VBA 编辑 器 才能 运行 其 中 的 宏 。 如 果 要 把 自 
己 开发 的 VBA 作品 交付 给 客户 使 用 ， 自 然 不 能 把 VBA 代码 裸露 给 客户 看 ， 而 是 要 选用 合 
适 的 方式 ， 给 客户 提供 一 个 程序 的 入口 。 
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2.4.1 使 用 “ 交 ”对话 框 


只 要 启动 了 Excel， 不论 当前 是 否 已 经 打开 了 VBA 编辑 
售 ， 在 Excel in 下 快捷 键 【 AlttF8 】， 或 者 选择 
“开发 工具 ”一 “ 代 人 得 ”一 “ 宏 ” 命 令 ， 都 会 弹出 “ 宏 ” 对 
话 框 。 

首先 从 “人 位置” 下 拉 列 表 杠 中 选择 “当前 工作 湾 ”， 
然后 从 “ 宏 名 ”列表 框 中 可 以 看 到 工作 竹中 的 过 程 名 
称 ( 见 图 2-12)， 单 击 右 侧 的 “执行 ”按钮 ， 即 可 运行 
大 图 2-12“ 宏 ”对 话 框 





2.4.2 ”使 用 快捷 键 


在 Excel 工作 表 界 面 中 ， 按 下 快捷 键 也 可 以 调用 VBA 工程 中 的 过 程 ， 实 现 步 又 是 首先 
在 VBA 工程 中 写 好 待 执行 的 VBA 过 程 ， 例 如 在 标准 模块 中 书写 如 下 代码 : 
源 代码 : 实例 文档 106.xlsm/m 


1. Sub UpdateValue() 
之 。 Selection.Value = Time 
3. End Sub 


该 过 程 的 作用 是 ， 在 Excel 中 任意 选中 一 个 单元 格 区 域 ， 运 行 该 过 程 可 以 往 单 元 格 区 域 
写 人 当前 时 间 。 

为 了 给 UpdateValue 这 个 过 程 指定 快捷 键 ， 还 需要 手动 执行 如 下 代码 : 

源 代码 实例 文档 106.xlsm/m 


1. Sub AssignSshortCutRKey!() 
A Application.MacroOptions "UpdateValue", HasSshortcutKey:=True, ShortcutKey:="m" 
3. End sub 


代码 分 析 : 本 过 程 为 UpdateValue 过 程 指定 快捷 键 【 Ctrl+M 】。 如 果 第 2 行 代码 改写 为 
ShortcutKey:="M"， 则 表示 快捷 键 为 【 Ctrl+Shift+M ]】。 

运行 完 AssignShortCutKey 过 程 后 ， 在 Excel 工作 表 中 按 下 快捷 键 【 CtrlHM 】， 会 看 到 
所 选区 域内 容 发 生变 化 ( 见 图 2-13 ) 。 

以 上 讲述 的 是 通过 Application.MacroOptions 来 设置 快捷 键 ， > 与 此 等 价 的 做 法 
是 : 调 出 “ 宏 ” 对 话 框 ， 然 后 选中 UpdateValue 过 程 ， 单 击 右 侧 的 “选项 ”按钮 ， 会 弹 
出 “ 宏 选 项 ”对 话 框 。 

在 “ 宏 选 项 ”对 话 框 中 可 以 查看 和 修改 宏 当 前 的 快捷 键 ( 见 图 2-14)。 这 一 方法 也 可 以 
称 为 手工 设置 快捷 键 法 。 

此 外 ， 为 宏 指 定 快捷 键 还 可 以 使 用 Application.Onkey 方法 ,具体 代码 如 下 : 


Application.OnRKey " {Fo6}", "UpdateValue" 


26j Office VBA 开发 经 典 一 一 基础 入 门 卷 


述 语 句 的 作用 是 为 UpdateValue 过 程 设 定 快 捷 键 为 【 Ctrl+F6 】。 使 用 Application. 
OnKey 方法 定制 的 快捷 键 ， 只 适用 于 当前 应 用 程序 。 如 果 完 全 退出 Excel， 有 再 重 局 ， 该 快捷 





a:05:37 PI :059:37 PH 
:D5:e7 PH :05:37 PH 


9:05:37 PH 3:05:37 PH 
9:09:37 PH 93:05:37 PH 





图 2-14 “ 宏 选 项 ”对 话 框 


2.4.3 ”指定 大 到 图 形 对 象 


工作 表 上 可 以 插入 磁盘 中 的 图 片 文件 ， 自 选 图 形 中 的 椭圆 、 和 矩形 、 文 本 框 ， 以 及 艺术 
、 表 单 控件 等 。 这 些 对 象 从 宏观 上 讲 都 属于 工作 表 上 的 图 形 对 象 。 可 以 注意 到 ， 右 击 图 形 
i 





熟 去 对 角 的 距 形 1 
让 


a :05:37 PH 
:05:37 PH 
.05:37 PM 
:v5:37 PH 


于 


设 于 为 对 认 形状 四) 
主 | 大小 和 层 性 加 |.… 


| Sheest1 ”Sh 入 设 慎 形 尖 格式 [ 吕 ).. 





图 2-15 ”图形 对 象 右键 快捷 菜单 中 的 “指定 宏 ”命令 


选择 “指定 宏 ” 命 令 ， 即 可 弹出 宏 列 表 ， 从 中 依次 选择 工作 注 、 宏 名 称 即 可 。 关 闭 对 话 
框 后 ， 在 工作 表 中 再 次 单 击 图 形 对 象 ， 即 可 调用 指定 的 VBA 过 程 。 


2.4.4 ”使 用 工作 表 事 件 运 行 宏 
Excel VBA 还 可 以 使 用 工作 表 事 件 ，VBA 事件 编程 在 后 续 昔 让 进 行 话 细 讨 论 ， 本 下 


浊 
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需 了 解 下 面 的 范例 即 可 。 
首先 在 工作 憩 的 VBA 工程 中 插入 一 个 标准 模块 ， 重 命名 为 m。 然 后 在 m 模块 中 编写 如 
下 3 个 不 同 的 VBA 过 程 。 
源 代 码 : 实例 文档 107.xlsm/m 
1. Sub 现在 时 刻 () 
之 MsgBox Now 
3 End Sub 
4. Sub 当前 日 期 () 
= MsgBox Date 
6 End Sub 
7 sub 当前 时 间 () 
8 MsgBox Time 
9 End Sub 


然后 在 VBA 编辑 器 的 工程 资源 管理 器 中 双击 Sheetl 模块 ， 打 开 其 事件 模块 ， 输 入 如 下 
代码 。 
产 代 码 : 实例 文档 107.xlsm/Sheet1 


1l. Private Sub Worksheet SelectionChange (ByVal Target As Range) 
之 If Target.Value 一 " 现在 时 刻 " Then 

3 Call m. 现在 时 刻 

4. ElseIf Target.Value = "当前 日 期 Then 

5 Call m. 当前 日 期 

6. ElseIf Target.Value = " 当前 时 间 " Then 

FT Call m. 当前 时 间 

8. Else 

9 End If 


10. End Sub 


代码 分 析 : Excel 工作 表 有 众多 的 事件 过 程 ， 本 例 利 用 单元 格 选择 变化 触发 的 Work- 
sheet SelectionChange 事件 ， 参 数 Target 就 是 指 女 标 选 中 的 单元 格 区 域 。 
上 述 过 程 中 的 含义 是 ， 当 鼠标 选中 的 单元 格 的 内 容 是 “ 现 
在 时 刻 ” 时 ， 束 调用 标准 模块 中 的 现在 时 刻 过 程 ， 以 此 类 推 。 二 
为 了 测试 ， 可 以 在 Excel 合适 的 区 域 输入 “现在 时 刻 "“ 当 |? 站 
前 日 期 ” “当前 时 间 ” 文 本 内 容 ， 然 后 用 鼠标 选中 其 中 一 个 单 A 
元 格 , 会 看 到 目 动 弹出 相应 的 对 话 框 ( 见 图 2-16)。 
这 就 实现 了 用 工作 表 作 为 程序 的 界面 ， 通 过 单 击 单元 格 \ 
激发 相应 的 宏 的 目的 。 图 2-16 测试 
上 述 事 件 过 程 还 可 以 进一步 简化 为 : 





1 Private Sub Worksheet SelectionChange (ByVal Target As Range) 
2 Ift IsEmpty(Target) = False Then 

3 Application.Run Macro:=Target.Value 

4 End If 

5 End Sub 


这 是 因为 Application.Run 方法 就 可 以 执行 用 字符 串 表达 的 宏 过 程 ， 例 如 Application. 
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Run "Test"， 就 可 以 执行 一 个 名 为 Test 的 宏 过 程 。 





2.4.5 ”使 用 工作 簿 事件 运行 宏 


工作 狂 对 象 也 有 很 多 事件 ， 比 较 第 用 的 是 Workbook BeforeClose 和 Workbook Open 事 
件 ， 前 者 是 指 宏 所 在 的 工作 竹 关 闭 前 触发 的 事件 ， 后 者 是 指 工作 泗 一 打开 就 触发 的 事件 。 
源 代码 : 实例 文档 108.xlsm/m 





Sub start{) 

MsgBox "Hello VBA!", vblInformation 
Sub 

Sub Overl() 

MsgBox "Good Bye!™", vblInformation 


End Sub 
然后 双击 工程 资源 管理 融 中 的 ThisWorkbook 模块 ， 编 写 如 下 事件 代码 。 


源 代 码 : 实例 文档 108.xlsm/ThisWorkbook 


GO HI 
加 
号 
已 


1 Private Sub Workbook BeforeClose (Cancel As Boolean) 
pe Call m.Over 
3 End Sub 
4. Private Sub Workbook Open() 
3 Call m.start 
6 End Sub 
代码 分 析 : 第 1 ~ 3 行 代码 是 工作 注 关 闭 过 程 ， 当 该 工作 竹 关 闭 时 ， 调 用 Over 过 程 ， 
弹出 Good Bye 对 话 框 。 
当 再 次 打开 该 工作 短 时 ， 目 动 调用 mm 模块 下 的 Start 过 程 ， 弹 出 Hello VBA 对 话 框 。 
除了 利用 工作 表 、 工 作 沽 的 事件 激活 一 个 宏 过 程 外 ， 还 可 以 插入 用 户 窗 体 ， 利 用 窗 体 或 
者 控件 也 可 调用 并 执行 宏 。 


2.4.6 ”指定 安 到 功能 区 


Excel 2007 以 上 版 本 均 可 通过 “Excel 选项 ”对 话 杠 来 定制 Excel 的 功能 区 界面 ，Excel 
2013 也 不 例外 。 
下 面 的 例子 ， 自 先 在 局 用 宏 的 工作 簿 的 VBA 工程 的 模块 中 写 入 如 下 代码 : 
Sub start{) 
MsgBox "Hello VBA!", vbhlInformation 
SUb 
Sub Over 1 ) 
MsgBox "Good Bye!™", vblInformation 
End Sub 
然后 打开 “ Excel 选项 ”对 话 框 ,在 “日 定义 功能 区 ”的 “从 下 列 位 置 选 择 命令 ”下 拉 
列表 框 中 选择 “ 宏 ” 选 项 ， 就 可 以 列 出 工作 簿 中 的 所 有 可 执行 的 宏 名 称 列表 ( 见 图 2-17)。 


吕 
| 
已 


缺 速 访问 工具 医 


加 载 醒 
合 任 中 心 





图 2-17 自 定 义 功能 区 
然后 在 对 话 框 右 侧 的 任 一 选项 卡 中 新 建 一 个 组 ， 从 左 侧 的 宏 列 表 中 选择 一 个 宏 ， 单 击 
“添加 ”按钮 ， 即 可 把 宏 加 入 到 新 组 中 ( 见 图 2-18)。 


抉 速 访问 工具 臣 
节 载 而 
个 任 中 心 





图 2-18 ”添加 宏 到 新 选项 卡 中 
添加 后 ， 单 击 “ 确 定 ” 按 钮 关闭 对 话 框 ,Excel 的 功能 区 中 多 了 两 个 自 定义 按钮 ( 见 
图 2-19)。 





图 2-19 ” 设 定 效果 
以 后 ， 单 击 这 两 个 目 定 义 按 钮 就 可 以 调用 相应 的 VBA 过 程 。 
需要 注意 的 是 ， 在 目 定义 功能 区 中 加 入 的 新 控件 并 不 保存 在 工作 短 中 。 也 就 是 说 ， 当 宏 
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所 在 的 工作 短 关 闭 后 ， 新 控件 不 会 随 之 消失 。 
更 为 高 级 的 做 法 是 通过 XML 代码 定制 工作 短 的 功能 区 ， 这 一 技术 本 书 暂 不 做 介绍 。 


2.4.7 ”指定 安 到 快速 访问 工具 栏 


快速 访问 工具 栏 (QAT) 是 指 位 于 常用 功能 区 上 方 的 一 排 小 控件 的 区 域 ， 当 然 也 可 以 将 
其 调整 到 和 常用 功能 区 下 方 。 快 速 访问 工具 栏 的 优势 是 无 论 Excel 切换 到 哪 一 个 选项 卡 ， 快 速 
访问 工具 栏 始 终 显示 在 用 户 眼 前 ， 因 此 是 一 个 比较 受 欢迎 的 定制 区 域 。 

快速 访问 工具 栏 中 ， 既 可 以 加 入 Excel 内 置 的 命令 ， 也 可 以 加 入 VBA 的 过 程 。 

在 “Excel 选项 ”对 话 框 中 ， 在 “快速 访问 工具 栏 ” 的 “从 下 列 位 置 选择 命令 ”下 拉 
列表 框 中 选择 “ 宏 ” 选 项 ( 见 图 2-20)。 






自 证 党 快速 访问 工具 栏 上 六 吕 
| 用 于 " 实 本 三 届 109.xlsm” 


回 在 功 部 区 下 方 虽 示 局 违 访 问 工具 人 


























图 2-20” 自 定义 快速 访问 工具 栏 


注意 右 侧 的 组 合 框 中 日 定义 快速 访问 工具 栏 是 对 所 有 文档 有 效 ， 还 是 仅 对 当前 工作 注 有 
效 。 一 般 来 说 ， 工 作 沽 中 的 宏 过 程 指定 到 快速 访问 工具 栏 ， 选 择 用 于 当前 文档 比较 合适 。 

然后 选择 左 侧 的 宏 名 称 ， 单 击 “ 添 加 ”按钮 ， 将 其 添加 到 快速 访问 工具 柱 中 。 要 注音 ， 
添加 的 控件 采用 的 是 默认 的 图 标 和 标题 文字 ， 用 户 可 以 单 击 “修改 ”按钮 ， 改 变 控 件 的 标题 
和 图 标 。 

如 果 选 择 的 是 当前 文档 ， 那 么 快速 访问 工具 栏 的 定制 信息 会 存储 于 工作 簿 中 ， 当 工作 沽 
关闭 后 ,日 定义 按钮 随 之 消失 。 当 再 次 打开 工作 簿 时 ， 快 速 访问 工具 栏目 动 显 示 定 制 的 按钮 
( 见 图 2-21)。 
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图 2-21 设 定 效果 
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2.4.8 通过 立即 窗口 执行 安 


在 立即 窗口 中 输入 Call m.Start， 然 后 按 下 【 Enter ] 键 ,就 可 以 调用 模块 m 中 的 Start 
过 程 ，Call 关键 字 可 以 省 略 ( 见 图 2-22 ) 。 
二 Microsoft Visual Basic for Applications - 字 例 空竹 109 xlsm - [m (FE 


较 让 忻 中 ” 塘 己 电 ” 杭 图 WI 插入 三 首开 [Q] 请 坏 ID ”运行 (RY 工具 ”外 蒂 避 序 和 窗口 [Wy 扰 助 (H) 
; 融 | | 由 国峰 | 刁 枚 管 兴 | 愉 | 行 5, 列 15 


Sub Start() 
MsgBox “Hello VBA!”, vblInformation 


x “Good Bye!”, vbInformation 





图 2-22” 在 立即 窗口 中 运行 VBA 过 程 


以 上 讨论 基本 包括 VBA 过 程 折 有 的 执行 方法 ， 在 实际 编程 开发 中 应 根据 具体 情况 ， 以 
及 使 用 对 和 象 选 择 恰当 的 执行 方式 。 只 有 了 解 宏 的 执行 方式 ， 才 能 进一步 开阔 视野 ， 明 确 今 后 
的 学 习 目 标 。 


习题 


.在 Excel 2013 中 快速 打开 VBA 编辑 硕 的 快捷 键 是 什么 ?” 在 Excel 2013 中 调 出 宏 列 

表 RAR ? 
2. 通过 Excel 的 单元 格格 式 对 话 框 可 以 修改 单元 格 的 水 平 、 垂 直 对 齐 方式 。 把 单元 格 
中 的 内 容 对 齐 到 单元 格 的 右 下 角 ( 见 图 2-23 )， 对 应 的 VBA 代码 如 何 书 写 ? 请 使 用 录制 宏 的 


你 好 





图 2-23 ”习题 2 题 图 
3. VBA 过 程 的 执行 方法 主要 有 哪些 ?” 各 有 什么 优 缺 点? 
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VBA 编程 环境 






前 面 的 革 节 围绕 如 何 编写 第 一 个 VBA 宏 ， 以 及 如 何 执 行 宏 ,讲解 VBA 的 入 门 知识 ， 
本 音 来 学 习 VBA 编程 环境 。 


3.1 VBA 编辑 器 界面 介绍 


截至 本 书 结 稿 时 Office 的 最 新 版 本 是 2016，VBA 编辑 器 的 界面 仍然 采用 的 是 工具 栏 和 
控件 ， 与 Office 2003 的 操作 界面 非常 类 似 。 

在 Excel 中 按 下 快捷 键 【 AltrF11 ]， 打 开 VBA 编辑 器 ，VBA 编辑 器 的 界面 主要 由 以 下 
部 分 构成 ( 见 图 3-1 ) 。 

口 主 菜 单 。 

D 工具 栏 (标准 、 编 辑 等 )。 

DD “工程 资源 管理 如 ” 窗 格 。 


加 8 工具 1 
=r" 于 工程 资源 管理 器 ”x| | [ 巩 击 
窗 格 有 [TSub Start0 


VET rj L33) MsgBox “Hello YBA!”, vbInformatioen 
i ek I Fnd Sub 














Sub Ower() 
MsgBox “Good Bre!l”, vbInformation 
U 


国 ] 三 hmsk 2 
| Sheet 让 
和 End Sub 
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图 3-1 VBA 编辑 器 界面 
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DD “属性 窗口 ” 窗 格 。 
口 “ 代 码 窗 口 ” 窗 格 。 
D “立即 窗口 ” 窗 格 。 

口 “ 本 地 窗口 ” 窗 格 。 


其 中 ， 对 每 一 个 窗 格 ， 都 可 以 通过 单 击 其 右上 角 的 “关闭 ”按钮 临时 关闭 徐 格 。 单 击 
VBA 编辑 侣 最 右上 角 的 “关闭 ”按钮 ， 会 隐藏 VBA 编辑 侣 并 日 动 运 回 到 工作 表 界 面 。 
下 面 是 关闭 所 有 和 窗 格 和 工具 栏 后 的 效果， 只 有 主 半 单 不 可 关闭 ( 见 图 3-2)。 


留 Microsoft Visual Basic for Applications - 空 全 Fikl0q.dsm 
: 文件 三” 编 轧 (E 视图 WI 插入 人 0D 格式 [IQ) 调式 [D0) 运行 RI 工具 加 外接 程序 由 窗 口 M0 帮助 [HI 





图 3-2 关闭 所 有 窗 格 的 VBA 编辑 需 
很 多 VBA 初学 者 往往 会 因为 看 不 到 某 个 窗 格 或 工具 栏 而 不 知 所 措 ， 其 实 通过 “视图 ” 
菜单 可 以 显示 任何 一 个 窗 格 。 
选择 “视图 ”一 “工具 栏 ” 一 “日 定义 ”命令 ( 见 图 3-3)， 可 以 弹出 日 定义 工具 栏 的 对 
话 框 ( 见 图 3-4)。 


本 Pilicrosoft Visual Basic for Bpplications - 实例 站 相 109.xlsmm 
| a 视图 | 揪 六 四 虱 坟 9i 调 读 (0) es i 外 接 


新 建 d)... 


鞍 病 书 伍 )..， 
删 野 [0; 





图 3-3 VBA 编辑 器 的 “视图 ”菜单 3-4 VBA 编辑 需 的 和 目 定义 工具 栏 对 话 框 


3.1.1 立即 窗口 


立即 窗口 是 一 个 用 于 调试 程序 的 非常 重要 的 工具 ， 显 示 立 即 窗口 的 快捷 键 是 【 Ctrl+G ]。 
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立即 窗口 可 以 理解 为 一 个 简易 计算 器 。 输 入 一 个 问号 ， 接 着 输 入 一 个 表达 式 ， 按 下 
【 Enter ] 刍 后， 会 在 下 一 行 显示 出 计算 结果 ( 见 图 3-5)。 

对 于 不 返回 计算 结果 的 执行 语句 ， 直 接 输 入 即 可 ， 无 须 问号 均 可 正常 执行 ( 见 图 3-6)。 


?36+2575 
41 


Msgbox Applicatlion. UserName 


Activesheet, Name & ActiveCell,. Address Application. ActiveWorkbook. Close 
Sheet1$D$16 





图 3-5 使 用 立即 窗口 计算 表达 式 图 3-6 使 用 立即 窗口 执行 语句 
但 是 对 于 由 多 行 语 句 构成 的 条 件 结构 、 循 环 结 构 ， 要 想 在 立即 窗口 中 执行 ， 需 要 事先 利 
用 冒号 整理 为 一 行 代码 ( 见 图 3-7) 。 
鼠标 置 于 立即 窗口 中 Next i 之 后 ， 按 【 Enter 】 键 后 ， 可 以 看 到 单元 格 中 写 人 了 内 容 ( 见 
医 | 3-8)。 


i 





图 3-7 ”在 立即 窗口 中 如 何 执行 多 行 代码 图 3-8 ”运行 结果 1 


立即 衡 口 的 男 一 个 用 途 是 配合 VBA 代码 中 的 Debug.Print 语句 ， 几 是 用 Debug.Print 语 
句 输 出 结果 的 ， 结 果 一 律 显示 在 立即 窗口 中 。 

Debug.Print 语句 和 MsgBox 语句 都 用 于 结果 的 输出 ,但 是 二 者 区 别 比 较 大 ， 前 者 一 次 
可 以 输出 多 个 表达 式 的 值 ， 而 后 者 只 能 输出 一 个 表达 式 的 值 。 

例如 ， 要 计算 变量 a、b 的 和 、 差 、 积 、 商 四 个 结果 ， 有 以 下 方法 。 

源 代码 : 实例 文档 110.xlsm/ 立即 窗口 





1 Sub Testl]{() 

J Dim a A3 Integer, b As Integer 
3 纪 二 6 

4. b= 3 

ch MsgBox a 十 hb 

6. MsgBox a 一 

1 MsgqBox a * b 

8 MsgBox a 人/ Pb 

9. End Sub 

10. Sub Test2() 

11. Dim a A3 Integer, b As Integer 
二 = 6 

13. b= 3 

14. Debug.Print a+b,a-b,a*b,a/b 


15. End Sub 


代码 分 析 : Testl 过 程 用 了 4 个 Msgbox， 输 出 时 比较 态 烦 。 

而 第 10 ~ 15 行 的 Test2 过 程 ， 通 过 Debug.Print 语句 可 以 把 多 个 表达 式 用 逗号 连接 起 
来 ,一 次 性 输出 。 

Test2 过 程 的 运行 结果 如 图 3-9 所 示 。 





图 3-9 ”运行 结果 2 
从 上 面 的 实例 可 以 看 出 Debug.Print 语句 的 优势 。 因 此 ，Debug.Print 语句 经 第 用 于 同时 
打印 多 个 输出 的 结果 。 


3.1.2 ”本 地 窗口 


只 有 在 程序 运行 期 间 才能 使 用 本 地 窗口 来 实时 观察 所 有 对 象 、 变 量 的 值 。 在 程序 运行 前 
以 及 运行 结束 时 ， 在 本 地 窗口 中 都 看 不 到 变量 的 值 。 
因此 ,一 般 在 逐步 执行 代码 时 ,使 用 本 地 窗口 有 重要 意义 。 
在 程序 运行 期 间 ， 可 以 看 到 每 个 变量 取 值 的 变化 情况 ( 见 图 3-10)。 
rm 


sub Test3() 





im a bs Inteeger, b Ms Inteeger, ce Ms 
Dim delta As Integer 
如 三 
b= 3 


CC 三 内 
delta =b ”2 一 4 有 a 下 ec 
End Sub 





图 3-10 使 用 本 地 窗口 查看 变量 的 值 


顾名思义 ， 属 性 窗口 就 是 查看 和 设置 对 象 的 属性 值 的 。VBA 的 属性 窗口 可 以 查看 和 设 
置 工作 泗 、 工 作 表 、 各 种 模块 〈( 窗 体 、 标 准 模块 、 类 模块 )、VBA 工程 、 窗 体 和 控件 的 属性 。 

显示 属性 窗口 的 快捷 键 是 【 F4 】。 

属性 窗口 中 显示 的 内 容 和 鼠标 所 选 的 对 象 有 关 。 人 例如， 在 工程 咒 源 管理 硕 中 选中 了 
ThisWorkbook 模块 ， 那 么 属性 窗口 中 就 显示 工作 德 的 相关 属性 。 属 性 表 包 括 左 右 两 列 ， 左 
列 是 属性 名 称 ， 右 列 是 属性 值 ( 见 图 3-11)。 

属性 窗口 中 的 属性 一 般 都 是 可 读 写 的 。 对 和 象 有 一 部 分 属性 是 只 读 的 ， 例 如 Workbook. 
Name，Name 属性 是 工作 短 的 名 称 ， 那 么 该 属性 就 不 能 在 属性 窗口 中 查看 和 修改 。 
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区 
国 加 
国 - 髓 YBAProject (PERSONAL. XLSH) 
日 -名 YEBAProject (实例 文档 110. x1sn) 
日 - 窗 crosoft Exeel 对 象 
| “= 硬 ] Sheatl (Sheetl) 
: 上 前 | Sheet2 局 haet2] 


| 汪 Sheet3 (Sheet3) 


wt MI 


hi sorkbook Workbe ok 
技 字 鲜 序 “ 按 分 类 序 | 


hecuracy Versl on | 
Mutolipdatefreqenay 0 
[ChangeHistoryDuarati0 





ChartDat af vintTr ack True 
ChackCompatibility False 
ConflicetResolution 1 = wllserResolati 
了 atel904 | 了 了 alLse 

四 1 Sa 了 al 了 EDb] ec -4104 一 xlDisplay: 
Displaylnkt omments True 
DolotfromptForConveFalse 
EnablehutoRecover True 
EncryptionFrowvider | 

Envel up elisible False 

Final False 
ForcaFullCalculatioFalse 
NighlightChangesdnS Palse 
TnactiweLlisthor derV True 











图 3-11 属性 窗口 


3.1.4 ”对象 剂 克 器 


对 象 浏 览 器 可 以 列 出 每 个 可 用 对 象 的 所 有 属性 和 方法 ， 显 示 对 象 浏 览 器 的 快捷 键 是 
【 F2 j】。 

使 用 对 象 浏 览 锅 可 以 方便 地 查询 内 置 枚 举 并 量 的 值 和 来 源 。 例 如 ,VBA 代码 中 的 
vbRed 表示 红色 篆 量 ,那么 打开 对 象 训 览 髓 后 ， 在 第 一 个 下 拉 列 表 框 中 选择 VBA 这 个 对 象 
库 ， 在 下 面 的 搜索 框 中 输入 vbRed， 然 后 单 击 “ 查 找 ” 按 钮 ， 就 可 以 查询 到 该 常量 的 来 源 ， 
同时 还 可 以 在 左下 角 看 到 该 常量 的 十 进 制 数 是 255， 十 六 进 制 数 是 &HFF ( 见 图 3-12)。 


[wns "| *| | 蚂 | 各 | 至 | 
Pr 
本 


Consi 有 he = 255 WHFF) 
FERRELol orlenstnnts 


的 所 中 二 








图 3-12 ”对 象 浏览 需 
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在 用 到 该 贡 量 的 代码 中 ， 如 下 几 种 与 法 都 是 等 价 的 : 


1 Sub Testl1() 

之 Range ("Al") .Interior.Color 
3. Range ("Al™") .Interior.Color 
4 Range ("Al") .Interior.Color 
Range ("Al") .Interior.Color 
6 End Sub 


= VbRed 

= VBA.ColorConstants.vbRed 
= 255 

= &HFF 


述 过 程 中 的 第 2 ~ $ 行 代码 ， 无 论 运 行 哪 一 行 都 是 把 单元 格 底 纹 颜 色 变 为 红色 。 
男 外 ， 对 和 象 浏览 右 中 可 用 的 对 象 库 列表 还 与 当前 VBA 工程 的 引用 有 关 。 例 如 ， 在 一 个 
VBA 工程 中 添加 了 Word 这 个 外 部 引用 ， 那 么 在 对 象 浏览 右 中 可 以 查询 到 与 Word 有 关 的 入 


量 ( 见 图 3-13 )。 


BP Tastelatalype 
PF ast ellpt1 ns 
PdFasteletalype 


PdFastelatalype 
Plocteletal pa 
Plocteletalypa 
Tiacteletalypa 
PdFastellataType 


se Tastelatalype 


tells ke 的 成 品 
eBi 


EE 
WH as 
mi 区 as 
wdFas 
YEas 
YEas 
a5 
Wasi 


arident litmar 
fil= 


< 
所 所 


vasteF1itmarp 
vastele fel 
wastelewicelndependentB: tin ap 
滞 vacte Re setaEile 
司 "“ 业 actslIIL 
wllactelsperl :rl 
ast eNetatileFictore 





图 3-13 ”查看 其 他 对 象 库 的 成 员 


3.1.5 ”代码 的 查找 和 蔡 换 


Sr 


VBA 编程 开发 最 重要 的 就 是 书写 代码 ，VBA 编辑 器 的 代码 窗口 是 一 个 功能 丰富 的 文本 
编辑 器 ， 也 有 类 似 于 Word 的 查找 和 替换 功能 。 通 过 查找 和 替换 功能 ， 可 以 把 从 其 他 来 源 的 
代码 迅速 加 工 成 自己 的 。 例 如 ， 原 先 定 义 的 一 个 变量 名 称 在 代码 中 使 用 了 多 次 ,但 后 来 想 更 
换 变 量 名 称 的 拼写 ， 使 用 批量 蔡 换 可 以 一 次 性 更 改过 来 。 

在 代码 窗口 中 选择 “编辑 ”一 “查找 ”命令 或 者 直接 按 下 快捷 键 【 Ctrl+F 】[ Ctrl+H 】， 


可 以 弹出 查找 、 替 换 对 话 框 。 


在 使 用 查找 和 蔡 换 功能 时 ， 一定 要 注意 搜索 范围 和 查找 选项 的 设 定 。 


搜索 施 围 可 以 为 当前 过 程 、 当 前 模块 、 


的 范围 取决 于 鼠标 选中 的 文本 。 
下 面 的 实例 试图 把 模块 中 所 有 的 变 


当前 工程 ， 以 及 选 定 文本 四 种 。 其 中 ， 


量 a 蔡 换 为 m ( 见 图 3-14)。 


由 于 代码 中 有 个 别 的 单词 中 包含 字母 sa， 因此 蔡 换 前 一 定 要 色 选 “全 字 匹 配 ” 复 先 


文本 
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否则 会 蔡 换 其 他 单词 中 的 字母 a。 
替换 后 的 效果 如 图 3-15 所 示 。 
Sub Testl 个 


MsegBox a+b Ei MsgBozx m+ b 
MsgBox a—b MsgBox m—-b 


MsgBox a*b 查找 内 容 呈 ): 下 加 MsgBox m* 上 bb 
| |] 可 外 | MsEBox mb 
b 


中 广 当前 I 程 避 | 厂 区 半 克 上 写 凤 守 部 普 接 忆 ) Dim m hs lnteger, b Ms Integer 


苦 擅 汐 血 ): | 














广 二 定 廊 本 号 | 厂 樟 式 Eo 员 某 助 | 下 
Debug. Print a + Fee es Debug. Print m+ b, 四 一 bb m*b, mb 
Sub nd Sub 
Teast30) Test30 
Dim a As Integer, b Ms lnteger, © hs Integer Dim m As Integer, b Ms Integer, ©¢ As Integer 
Dim delta As lnteger Dim delta hs Integer 
纽 二】 









































图 3-14 VBA 编辑 需 的 查找 、 符 换 功 能 图 3-15 ”替换 效果 
如 果 不 小 心 蔡 换 失误 ， 按 下 快捷 键 [ Ctrl 二 Z 】 可 以 撤销 。 


3.1.6 VBA 选项 


VBA 编辑 需 是 一 先 成 熟 的 编程 开发 集成 环境 ， 根 据 用 户 的 喜好 可 以 设置 很 多 参数 ， 从 
而 更 适合 编程 者 使 用 。 

在 VBA 编辑 带 中 选择 “工具 ”一 “选项 ”命令 ， 弹 出 “选项 ”对 话 杠 ,该 对 话 框 还 细 
分 为 “编辑 希 ”“ 编 辑 硕 格式 ”“ 通 用 ” “可 连接 的 ” 共 四 个 选项 卡 。 每 个 选项 卡 中 具体 内 容 
很 多 ， 不 再 一 一 介绍 ， 下 面 仅 给 出 每 个 选项 卡 的 推荐 设置 。 

“编辑 髓 ”选项 卡 的 设置 会 影响 到 书写 代码 时 的 行为 、 代 码 窗 格 的 外 观 〈( 见 图 3-16)。 

“编辑 硕 格式 ”选项 卡 可 以 更 改 VBA 代码 、 注 释 等 内 容 的 字体 格式 〈《 见 图 3-17 ) 。 


编辑 器 | 编辑 器 格式 | 通用 | 可 连接 的 | 


代码 设置 
厂 自动 语法 检测 0) [” 自动 编 进 上) 


厂 要 求 变量 声明 名) 
厅 自动 列 出 成 员 (1) Twb 均 度 加 : 


[” 自动 显示 快速 信息 和 @) 





lw 目 动 显 示 郝 据 提示 名 ) 


窗口 设 次 

lw 渍 辑 时 可 拖 和 施文 本 血 ) 
[” 执 省 为 查看 所 有 模块 加 ] 
[” 过 程 分 隔 侍 全) 


ma 


前 景色 0D): 背景 色 虽 ): 标识 色 种 ): z 
[自动 .=] 「 自动 二 | [自动 了 ABCXYZabc: 





图 3-16“ 编 辑 融 ”选项 卡 3-17“ 编 辑 货 格式 ”选项 卡 
“通用 ”选项 卡 一 般 采用 默认 设置 ( 见 图 3-18)。 
“可 连接 的 ”选项 卡 用 于 设置 各 个 窗 格 在 VBA 窗口 中 的 停靠 行为 ( 见 图 3-19)。 
什么 是 可 连接 的 呢 ? VBA 编辑 器 中 的 各 种 窗口 都 是 VBA 编辑 器 的 子 窗口 ， 如 果 把 立 
即 窗 口 设置 为 可 连接 的 ， 那 么 该 窗口 就 自动 吸附 在 VBA 编辑 器 母 窗口 中 ， 当 母 窗口 变更 尺 
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才 时 ， 可 连接 的 窗口 会 月 动 适应 。 


编 避 器 | 编辑 器 格式 ”通用 “| 可 连接 的 | 编辑 器 | 编辑 器 格式 | 通用 ”可 连接 的 | 
窗 体 网 格 设置 编辑 并 继续 可 连接 的 
克 显示 网 格 后 ) 三 在 丢失 当前 杖 态 前 通知 镶 ) | 厂 立即 窗口 部) 和 一 一 
网 格 单位 : 厂 谱 误 捕 茶 一 克 本 地 窗口 LL) 
诡 度 :BB 个 发 生 氏 涡 则 中 断 @) 末 监视 窗口 
高 度 00;， 区 广 在 类 模块 中 中 断 吧 ) 克 工程 资源 管理 器 站 ) 


| 对 齐 控件 到 网 格 必 ) 会 昌 开 未 处 理 的 错误 时 中 断 色 ) 属性 窗口 入) 
厂 对 象 浏览 器 加) 
编译 
的 显示 工具 提示 (7) 反 请 求 时 编译 吕 ) 
|w 项 目 折 亚 收 起 时 隐藏 窗口 立 ) F 后 癌 编译 慌 ) | 


图 3-18“ 通 用 ”选项 卡 图 3-19“ 可 连接 的 ”选项 卡 


反之 ， 如 采 在 VBA 选项 中 ， 取 消 勾 选 “ 可 连接 的 ” 复 选 框 ， 或 者 右 击 ， 去 择 “ 可 连接 
的 ”前 面 的 对 勾 ， 那 么 该 窗口 成 为 一 个 独立 的 子 窗口 ， 其 大 小 与 母 窗 口 无 关 ( 见 图 3-20)。 





Microsoft Visual Basic for Applications - 工作 乱 

: 文件 {E) 编辑 ([E) 视图 WW 播 入 止 ” 格 式 IO) 调试 (四 运行 Qj 工具 中 外接 程序 (A) 窗口 W) ”帮助 出 ) 

: 国 甩 +: 国 |#% 昌 询 的 | 人 Oj Wa 甩 | 导 国定 为 站 同和 | 这 本 | 也 三 全 | 属 若 知 洁 慎 
: 变量 的 使 用 ”字符 与 字符 盏 处 理 ” 退 辑 运算 数据 闫 型 ” 使 用 数组 ”条 件 选 泽 ” 循环 控制 ”过程 与 本 数 ” 错误 处 理 ” 进 阶 技术 ~ 
程 - VBAProjec x| 
国 | 回 | 加 


| 田 - 鼎 VRiProierct EH 2 








|| 接 字 号 序 按 分 类 序 | 
三 和 


所 
Pr 
WE mm bj J 











图 3-20 不 可 连接 的 立即 窗口 


3.1.7 “外接 程 序 管 理 器 


VBA 编辑 器 可 以 加 载 一 些 外 接 的 工具 搬 件 (VBA 外 接 程序 )， 这 些 外 接 程 序 往往 是 辅助 
编程 的 工具 ， 通 过 VB6 可 以 开发 VBA 编辑 器 的 外 接 程 序 。 

外 接 程序 在 管理 上 类 似 于 Excel 的 加 载 宏 或 COM 加 载 安 。VBA 外 接 程 序 的 加 载 和 纯 载 
要 通过 外 接 程序 管理 需 来 完成 。 

选择 “外 接 程序 ”一 “外 接 程 序 管理 器 ”命令 ， 弹 出 “外 接 程序 管理 器 ”对 话 框 〈 见 
图 3-21)。 

VBA 编辑 器 允许 同时 加 载 多 个 外 接 程 序 ， 选 中 一 个 外 接 程 序 ， 然 后 匀 选 右 下 角 “ 加 载 
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行为 ”中 的 “加 载 的 /未 加 载 的 ” 复 选 枉 ， 可 以 加 载 或 番 载 外 接 程序 。 如 采 色 选 “ 局 动 时 加 
载 ” 复 选 框 ， 当 每 次 打开 VBA 时 会 自动 加 载 该 外 接 程序 。 


上 日 1 " 授 E 
YHEA2U14 





-加 载 行为 
I 加 载 的 /未 加 载 的 总) 
Fw 启动 时 加 载 5) 


VBE2014 : 
ryueifu 开 发 的 烛 个 扁 程 辅助 工具 























图 3-21“ 外 接 程 序 管理 器 ”对 话 框 


作者 开发 的 VBE2014 就 是 用 VB6 开发 的 典型 外 接 程序 ， 可 以 从 本 书 配套 资源 中 下 载 ， 
文件 名 为 VBE2014 Setup 20160709.exe。 


3.1.8 VBA 帮助 


有 人 说 ， 学 习 VBA 最 好 的 老师 是 快捷 键 【 Fl ]。 在 VBA 编辑 器 中 ， 按 下 快捷 键 【 Fl ] 
会 弹出 VBA 帮助 系统 。 然 而 ，Office 版 本 不 同 ， 其 VBA 帮助 系统 也 有 很 大 不 同 。 

对 于 Excel 2010， 安 装 好 Office 后 ， 就 有 完整 的 脱 机 帮助 ， 按 下 快捷 键 【 Fl 】 就 会 弹出 
非常 好 用 的 帮助 窗口 ( 见 图 3-22)。 











砚 Excel 攻 助 一 EEC 
种 章 点 加 电 
Range = 呈 拉 索 - 

[下 < 
Emma | 
rtertion 回复 Exce| 开 过 内 品 考 千 
本 Pilishnbj aet 对 加 Range 型 象 
志 PublishDbjeets 济 息 怀表 东 一 甲 元 哺 ， 宋 一行 、 东 一 列 ， 守 一笑 定 区 域 (该 区 域 可 县 全 一 个 或 大 干 话 泛 平 元 确 区 后 】 ,或 者 史 一 三 肉 区 域 . 
eTw]able 对 个 ela 
圭 hyTiblor 开间 示 同 部 苘 中 说 明了 局 下 用 于 返回 Range 对 象 的 属性 和 方法 : 

加 Emps 对 香 

Or rr 

晶 | 

DE 对 剖 蝶 史 和 和 

之 正 攻 于 Union 方法 

秘方 法 
日 Fanee: 对 惫 示 鲍 
BerentTile 3 旧 用 Rangetanm 【其 中 ai7 汶 区 域名 式 ] 可 把 加 一 个 代 支 单 二 单元 格 或 单元 请 区 十 的 Range 对 和 名。 下 二 档 单元 格 A&1 中 的 值 隋 革 单元 属 上 5。 
吉 iaemmt7iles 弄 象 Wisual Besic for &pplications 
坟 lrrditnt W 罕 Worksheecs |"Sheaetli")l ,Ranget "hs") .Valde = 
志 Eeier ch 对 莹 Hork=heets|"Ssheet1™) .Hange ("Al™Yy .Value 
untineslip 对 妥 下 全 时 过 为 区 域 At:HB 中 的 每 个 时 元 档 设 将 汉 芭 ,用 随机 洲 字 韦 况 该 区 嫩 ， 各 果 在 涉 带 对 藤 识 中 罕 [ 颁 点 开 边 的 对 熟 ) 的 情 帮 下 便 用 Range 届 性 ， 访 尾 性 党 这 回 活动 志 上 的 一 个 区 域 。 如 时 活动 十 二 是 工作 过 ， 则 交 方 
坊 TI 宰 遍 法 寺 巾 ， 在 可 用 浸 有 呈 式 对 蒙 识 中 竺 的 Range 局 粕 之 前 ,请 二 仿 用 Acthvate 方法 区 车 一 个 工作 去 . 
凌 seneris 对 和 ,| visual Basie for Applieations 
党 Scenics ?3 慢 | | Worksheeta |"Sheeti"n| ,Activate 
局 series 虽 铝 - | Range ("lH") .Eormmla = "=—Randl}™ "Range is on the active gheaert 
窜 sariescallaction 对 入 一 下 本 请 险 区 城 名 为 “Drienig 的 区 城中 的 内 容 . 
relirnes 计 捍 厅 圣 稳 


如 时 用 六 本 参 昨 首 定 区 域 地 址 , 必 渗 以 A1 料 苇 记号 指 走 该 地 址 (不 能 用 RICL 样式 记号 ] 。 


Wisual Basis for Applisatigns 

Worksheets [ll ,Renge "Criterisa™) .ClenrContents 

司 用 Cellstrom cnmn ( 其 中 As 是 行 号 ，ceWrw 是 列 标 ] 可 返回 一 个 单元 族 。 下 侠 持 单元 档 总 lL 同 忻 污 24， 
Visual Basie fer Applleatiarns 


中 apes 而 所 = | Worksheeta{lll ,cellatle 1).Value = 2 
上 | | 下 出 设 加 单元 痛 AZ 的 公式 。 


图 3-22 ”Excel 2010 的 VBA 脱 机 帮助 


喇 甩 | 
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然而 对 于 Excel 2013, 在 VBA 界面 中 按 下 快捷 键 【 Fl 】 后 ， 会 跳 转 到 微软 的 在 线 帮助 
中 心 ， 并 且 是 网 页 版 的 (网 图 3-23 ) 。 


加 性 本 看 收藏 工具 和 助 各 
f S = i = | https/imsdn.microsoft.com/zh-cnivbarexcel-vbararticles/charts-object-excel ps 中 跨 的 ” 衣 
高 收 其 国 上 网 w 汪 | 入 0ffice 的 安 加 Dice 开 和 过 全 Tkinter 孝 如 国 python 空 现 癌 Bython 帮 中 丰 Beautihy| 加 python 有 克昌 各 python 小 年 蜗 网 址 号 及 [ 国 无 号 也 书生 [加 二 迪 渗 动 - 贿 守 习作 一 地 V 


{i Charts Objert [Excel] 十 


Microsoft v 登录 WMSDN 订 问 。。 甘 防 工 只 
开发 人 员 中 心 了 解 、 六 门 Code 5amples Resources《 兹 源 ) 、 文档 v p 


Office VEA Referernrce >» Exwcel WES 


目录 Charts Object (Excel) - 


Iritraduction to Excel Vas 


= concepts ofiice 365 dev account | Last Updated: B27/2017 | 1 Ceontributor 本 


不 冯 内 府 
™ objec model Remarks 

. Bcollection of all the chart sheets in De specified or active workbook Fy 

» Abovenverage Cbject 加 et pe 
hlethads 


Remarks properties 
Acticns Objedct Sep also 


Action Objec 


rach chart sheet is represented by a Chart object This does met include charts embedded on worksheets or dialeg 


Adadln Object .| 
sheets, For information about embedded charts, see the Chart or Chartobject topics., 


上 dns Objedt 


AddIns? Objedt Exa mple 


Adjustments Object | | | | | 
Use the Charts property tio retum the Charts collection. The following example prints all chart sheets in the active 


allowEdtRandge Object workbook. 


EE AlowEditRangas Objed 


完成 中 的 四 0 也 100% 
图 3-23 ”Excel 2013 的 在 线 VBA 帮助 
另外 ， 微 软 也 提供 了 一 个 chm 格式 的 脱 机 帮助 文件 ( 见 图 3-24)， 需 要 单独 从 网 上 下 
和 载 。 本 书 配 套 资 源 中 也 提供 下 载 ， 文 件 名 为 Excel 2013 Developer Documentation.chm 。 
通过 各 助 系统 ， 可 以 学 习 到 Excel 对 象 模 型 ， 了 解 对 象 的 属性 、 方 法 、 事 件 的 语法 和 
示例 。 





Excel 2013 developer docs 


。 
是 加 民生 喇 入 本 EE 
隐 阁 。” 可喜 上 - 步 下 - 步 上 - 步 前 进 到 选 摧 器 ! 


| a nllanar a "nrle 
目录 上) | 31 | 搓 雪 i | 属 去 民 | Collapse al > Code: el 








日 WD Excel 2013 =]l| AddIn Members (Excel) 
国 Wihats new for Excel 2013 developers “ 
SI WY Excel 2013 deweloper raterance 一 send fesdback 
器 史 Concapts 
加 移 How dol. 


[OD Objed model Hublished: July 16, 201# 


口 嘱 hboveiwerage Dbject Represenis a single add-in. either installed or not installed. 
中 只 acilon Object 
加 克 aclions Objed 
(AddIin Objed 

日 ddIn Members 


~Properties 


口 史 Properiiss Name Descriptien 
口 时 Mddins Ooect 
加 里 hddIns2 ovjecl spplcation When used without an cbject oqualther, this property returns an Application cbject that represents the 
四 叹 : sustments Objed hoerosoft Excel application. When used with an chject 可 Ja 市 Er this property returns an Application cbject 
器 里 owE ditRange Objeci thai represents the creator of the specfied object [you can use this property with an OLE Automation object [= 


牟 稳 名 pwEditRanges Object 
中 只 Bpplieation Object 

加 时 Mraas Objedt 

加 移 AutoCorred Dbjed 

牟 移 AutoFiller Object 

牟 思 MutoRecover Objett 

口 只 mas objad 

加 移 Axils Object 

加 移 BrisTille Dbjed 

牟 稳 Border Objedt 

牟 只 Borders Dbject 

品 哆 : CalculatadFialds Object 


to return the application ct that object}. Read -only. 


CL Returns a read-onky unigue identifier, or CLSID, identmying an objedt, as a String. 





Creator Reiturns a 32-bit iNnteger that indicates the application in whidh this oject was created, Read-onbty Lonmg. 
FullName Returns the name of the object including its path on disk, as a String. Read-only String. 


Installed True if the add-in is insialled or to install the add-in, False i the add-in is uninstalled or to uninstall the add- 
in, Raad /write Boodlean. 


别克 calculaledllems 口 时 ect GOpen Returns True 于 the add-in is currently open. Boolean Read-only 
田 区 CalculaiedMember Dbjedt | 

吕 嘱 CalculaiedMembers Objed Name Returns a Strimg Value thai represents the name of the oledt, 
下 只 Calloutformal Objed 

品 只 :CatsgerCallecilon Oberct = Parent Returns the parent otect for the specified otect, Read-ontky. 


图 3-24 FExcel 2013 VBA 脱 机 帮助 
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3.2 VBA 工程 管理 


VBA 工程 (VBA Project) 的 管理 ， 主 要 包括 模块 的 增删 、 模 块 的 导 和 导出、 工程 的 属 
性 设 定 、 工 程 的 引用 管理 等 内 容 。 这 些 管理 操作 主要 在 VBA 编辑 硕 的 工程 资源 管理 硕 ( 快 
捷 键 为 【 Ctrl+R 】)、 属 性 窗口 (快捷 键 为 【F4 】) 中 完成 。 

每 个 Excel 工作 秒 都 有 一 个 VBA 工程 ， 对 于 新 建 的 工作 短 ， 其 VBA 工程 中 只 有 
ThisWorkbook 工作 竹 事 件 模块 以 及 每 个 工作 表 的 事件 模块 。 这 几 个 默认 的 模块 不 可 增加 也 
不 可 删除 。 

根据 编程 的 需要 ， 用 户 可 以 向 VBA 工程 中 增加 用 户 窗 体 、 类 模块 和 窗 体 模块 。 


3.2.1 添加 模块 

在 VBA 的 工程 资源 管理 器 中 选中 一 个 VBA 工程 节点 ， 右 击 ， 弹 出 插入 模块 的 快捷 莱 
单 ( 见 图 3-25)。 

可 以 添加 到 VBA 工程 中 的 模块 类 型 有 用 户 窗 体 、 模 块 ( 即 标准 模块 )、 类 模块 。 

在 VBA 工程 中 添加 一 个 模块 后 ， 接 下 来 的 首要 任务 是 更 改 模块 名 称 。 默 认 名 称 是 模块 
1， 在 实际 编程 时 ， 可 以 通过 属性 窗口 把 模块 名 称 更 改 为 有 意义 的 名 字 。 把 默认 的 “模块 1” 
更 改 为 CommonMoule ( 见 图 3-26)。 


人 Microsoft Visual Basic for Applications - 工作 得 1 

: 文件 日 ” 编 每 (上 日 ”视图 全。 插入 四 ”格式 (QO) 调试 ID 运行 (R) 工具 中 

国 往 :加 #4 池 区 的 四 bi 有 从 加 鹤 @ 
其 | 


查看 代码 ( 吕 ) 

et 久 hee| 5 到” 间 看 对 银 [B) 
WBAProject 导 性 {E),,， 
插入 (N) ' 用 户 窗 体 (U) 
导 具 京 性 上 四.… 
导出 位 件 (E).. 





3-25 ”插入 模块 的 快捷 菜单 图 3-26 更 改 模块 名 称 


3.2.2 移 除 模块 


移 除 模块 与 瀛 加 模块 是 相反 的 操作 ， 移 除 操 作 只 能 针对 标准 模块 、 类 模块 和 窗 体 模块 ， 
也 就 是 说 能 添加 的 模块 才能 移 除 。 

在 工程 资源 管理 硕 中 选中 要 移 除 的 模块 ， 右 击 ， 在 弹出 的 快捷 沫 单 中 选择 “ 移 除 
CommonMoule ”命令 ( 见 图 3-27)。 

弹出 的 对 话 框 询 问 是 否 要 将 其 导出 ， 此 处 单 击 “ 否 ”按钮 即 可 〈 见 图 3-28 ) 。 
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相识 roject (PERSONAL. ELSH) 
-是 roject {工作 涛 1) 
“icrosoft Excel 汗 庚 
由 | ell 记 he et17 
四 | Sheei2 heet2) 
四 Sheei3 记 heet3) 


查看 代 合 的 


前 看 对 条 (B) 
YBAProject 屋 性 (E).. 
揪 入 (IN) 
导入 交 件 四. 
导出 葡 件 臣 )…- 从 在 称 除 CommonMoule 之 前 旺 天 要 梅 其 导出 ? 
穆 除 CommonMoulelR).. 
打印 四- 


w mm | | ew | | 


图 3-27 移 除 模块 快捷 莱 音 图 3.28 ”询问 对 话 框 


Microsoft Wisual Basic for Applications 





3.2.3 ”导出 和 导入 模块 


模块 的 导出 ， 其 实 起 的 是 备份 的 目的 。 在 编写 程序 时 ， 为 了 安全 起 见 可 以 把 模块 导出 为 
单独 的 文件 ， 这 样 就 脱离 了 工作 秒 。 

等 下 次 需要 这 个 模块 时 ， 还 可 以 导入 恢复 。 模 块 的 导出 和 导 人 操作 ， 也 在 模块 的 右键 快 
捷 沫 单 中 完成 。 





3.2.4 修改 工程 属性 


选择 “工具 一 “VBAProject 属性 ”命令 ， 或 者 在 工程 珊 源 管理 硕 中 右 击 VBA 工程 区 
点 ， 都 可 以 弹出 “VBAProject- 工程 属性 ”对 话 框 。 该 对 话 框 分 为 “通用 ”和 “保护 ”两 个 
选项 卡 ( 见 图 3-29)。 

“通用 ”选项 卡 主 要 用 于 修改 工程 的 名 称 ， 而 “保护 ”选项 卡 主要 用 于 为 VBA 工程 设 
置 密码 。 如 果 设 置 了 密码 ， 下 次 重新 打开 工作 泗 查 看 VBA 代码 时 ， 会 弹出 密码 输入 对 话 
框 ( 见 图 3-30)。 


lv 查看 时 锁定 工程 ) 


查看 工程 属性 的 密码 
密码 站 ) 水 


确认 密码 C) [| 





图 3-29“VBAProject- 工程 属性 ”对 话 框 图 3-30 ”密码 输入 对 话 框 
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当然 ，VBA 的 密 公 保护 是 相当 薄弱 的 ,会 被 第 三 方 工具 轻松 破解 。 正 是 由 于 Office 
VBA 的 代码 安全 性 问题 ，VBA 封装 技术 应 运 而 生 。 

如 果 在 开发 过 程 中 设 定 了 VBA 工程 密码 ， 而 且 忘 记 了 密码 ， 作 者 推荐 使 用 VBE2014 
这 款 外 接 程序 来 解决 。 

安装 了 VBE2014 后 ,在 VBA 编辑 融会 多 出 一 条 上 日 定义 工具 栏 ( 见 图 3-31 ) 。 


EF] Microsott Visual Basic tor Applications - 工作 息 1 - [Test (ft 崩 )] 
: 夺 况 HH 蘑 富 上 入 加 WwW 手 AD 净 式 (D0) 证 0 运 5R] I 上 中 ”外 按 竹 FA) 窗口 IW 才 且 {H) 拂 久 也 要 帮助 的 间 丁 
: 国 局 - 园 g 尖 区 员 机 站 有 国 甩 点 于 和 交行 1. 刚 1 日 


: 亚 喇 的 合用 -字符 与 字符 刷 钼 理 -~ 克基 活用 -” 标 用 数 诅 - 举人 御 鞍 择 - 符 村 控制 ~ 过 得 与 图 要 -和 pplwcation 对 总 Workbook 洒 最- Workshest 对 名- hange 灶 间 - 导 用 口 帅 ce 对 名- 控 必 WBE | 局 这 这 原 ~ 


| 通用) =| | 嘻 琶 ] ~ 工 上 县 大 全 
互 下 蕊 加 和 着 用 代 而 


图 3-31 VBE2014 工具 栏 
选择 “高 级 选项 ”一 “工具 大 全 ”人 命令， 出现 “VBE2014 工具 大 全 ”窗口 ( 见 
图 3-32 ) 。 





Slorosore waaa 17.0 0atlooy |{00062FF-0000-0000-C009 
Rel | ase For Hold | 002DIEF 0000-0000 0006 
Nisa Basio rortins MRI [21 CBD T1101 A 
iets | EGRREIOEM 
| or pvtonation laticle |000204300000-0000-0002 
Gerosoft Aceess Object {dAFFO9AN-5F99-101B-AFd9 
典 存 所 选 | |Microsoft Script ContrdMsScriptControl |{0E59F1D2-1FBE-11DO-8FF1 
tsb 9 (WIDE | DOD2Ei6T0000-00000005 
jn 到 工程 ESSxipt Regular Brprea iorript Remap 56 | IEIDACATI6OD IlD2-066 
lerosort Vora Objeot NWoza | 5120505000000000005 
srosort Bx0ol Objoot [Bxoel 10002031570000-0000-0001 
srosort soriptine Rulsoriptine |l20D00 ETIF 8961 
soso mr, Be0 Ia C1 
ae Seript Host Onj TherRurtinol ihrary | {996002010FO-1100-4DE1 
erosort PoverFoint OPowerPoint |(914904405/D1- T1087 - 
| pi 





未 人 慰 存 的 工程 ;当前 羽 码 窗 格 为 :Teat 厂 VEE 吸附 宿主 ”vy 状 镑 密 硕 。 帮助 | 


图 3-32 VBE2014_ 工具 大 全 
分 选 该 窗口 右 下 角 的 “破解 密码 ” 复 选 框 ， 以 后 束 可 以 直接 打开 设 有 密码 保护 的 工程 ， 
而 不 下 需要 输入 密码 。 
3.2.5 工程 引用 


3 用 - 和 


可 使 用 的 | 用 (A): 


VBA 工程 中 很 重要 的 一 个 概念 就 古 工 程 中 SE 
L_ E 2 EE Autonation 
使 用 的 对 象 引 用 库 ， 对 于 Excel 工作 短 的 VBA 
工程 ， 默 认 引 用 VBA 、Excel 对 和 象 库 、Office 对 





Rs a : , Bs ; N Dtive i to perform a ret 站: 
象 库 等 。 选择 工具 ” 一 尖 9| 用 命令 ， 哗 出 弓 | FT 


[| | ADOSQLwirard 


用 对 话 框 ( 见 图 3-33)。 Sh 


ierosoft DOEfice 14.0 Dbject Library 


根据 编程 的 需要 日 假如 用 到 | 正则 表达 式 ', 二 ee cev Files\Common FilesMicrosoft Shared'of]} 
典 每 外 部 对 象 ， 或 者 跨 Office 组 件 编 程 ， 就 可 以 一 一 
拖 动 引用 对 话 杠 中 的 滚动 条 ,， 勾 选 相 应 的 外 部 对 图 3-33 引用 对 话 框 
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象 库 。 为 外 ， 也 可 以 单 击 “ 浏 览 ” 按 钮 ， 在 磁盘 中 找到 外 部 对 和 象 库 的 文件 即 可 。 
也 可 以 把 工程 中 不 需要 的 元 余 引 用 移 除 ， 取 消 前 面 复 选 框 的 义 选 即 可 。 


习题 
1. 如 图 3-34 所 示 ，VBA 窗口 中 看 不 到 工程 资源 管理 侣 ， 怎 么 办 ? 
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图 3-34 第 1 题 图 
2. VBA 工程 中 ， 可 以 添加 、 移 除 的 模块 部 件 有 哪些 类 型 ? 
3. 如 图 3-35 所 示 ， 在 变量 x 后面 输入 小 数 点 ， 没 有 上 自动 弹出 成 员 ， 


Test () 


Dim x AS Excel. Range 
XX. 


Sub 








图 3-35 第 3 题 图 


这 是 为 什么 ? 


第 4 章 


VBA 语法 基础 






TH Basic 6 的 语法 几乎 一 模 一 样 。 本 章 主 要 介绍 VBA 数据 类 型 、 表 达 式 和 

Es 变量 与 常量 、 选 择 与 循环 、 数 组 和 代码 优化 等 内 容 。 
整 的 VBA 项 目 通 第 由 一 个 Excel 文件 构成 ， 一 个 Excel 文件 有 且 只 有 一 个 VBA 

工程 。 

VBA 工程 中 默认 包括 各 个 工作 表 的 事件 模块 、 工 作 泗 的 事件 模块 。 但 是 用 户 可 以 根据 
需要 为 工程 添加 标准 模块 、 类 模块 和 用 户 窗 体 。 

各 个 模块 由 模块 声明 (模块 定义 、 模 块 变 量 、API 声明 等 )， 以 及 模块 中 的 过 程 和 图 数 
构成 。 

过 程 和 清 数 由 厂 干 行 语 句 构 成 ， 根 据 需 要 可 以 使 用 顺序 、 选 择 和 循环 结构 ( 见 图 4-1 )。 


Excel 文 件 〈 工 作 每 、 加 载 宏 等 ) 


模块 《标准 模块 、 类 模块 、 
用 户 窗 体 模块 、 事 件 模块 ) 





语句 (顺序 、 选 择 和 循环 结构 ) 
图 4-1 VBA 工程 的 构成 示意 区 


可 以 看 出 ,语句 是 构成 VBA 项 目的 最 基本 单位 。 


4.1 VBA 数据 类 型 


VBA 的 数据 类 型 ， 可 以 理 





解 为 Visual Basic 6 的 数据 类 型 再 加 上 Office 相关 的 对 象 类 型 。 
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也 就 是 说 ，Visual Basic 6 的 基本 数据 类 型 在 VBA 中 几乎 全 都 文 持 ， 但 是 由 于 VBA 工 
程 默认 有 与 Of 人 fce 相关 的 工程 引用 ， 也 就 多 了 一 些 对 象 类 型 。 

数据 类 型 实际 上 是 现实 世界 的 事物 描述 。 例 如 ， 人 们 的 姓名 就 是 一 个 没有 大 小 的 文本 
(字符 串 )， 年 龄 是 一 个 正 整 效 ， 每 天 花 的 钱 是 一 个 货币 类 型 ， 结 婚 与 否 是 一 个 布尔 型 ， 出 生 
日 期 是 一 个 日 期 时 间 类 型 。 

因此 , 日 常生 活 中 有 哪些 数据 ， 程 序 设计 就 提供 了 相应 的 数据 类 型 ， 以 便 用 程序 来 处 理 
现实 世界 各 方面 的 问题 。 

以 下 介绍 VBA 第 用 数据 类 型 。 


4.1.1 字符 串 


字符 串 类 型 是 程序 设计 中 最 基本 、 最 常用 的 数据 类 型 ， 与 字符 串 类 型 有 关 的 包括 字符 串 

常量 、 字 符 串 变量 、 字 符 串 运算 、 字 符 串 转换 函数 等 。 

在 书写 代码 时 ， 为 了 和 变量 名 称 相 区 别 ， 字 符 串 常量 必须 用 双 引 号 括 起 来 。 例 如 ， 

"Hello VBA" 就 是 一 个 长 度 为 9 的 字符 串 常量 。 然 而 在 输出 字符 串 时 ， 看 不 到 两 边 的 双 引号 。 
如 果 字符 串 中 本 身 就 合 有 双 引 号 ,需要 用 两 个 双 引 号 表达 一 个 双 引号 ， 例 如 : 





MsgBox "Excel"™ "VBA" 
输出 : 
Excel"VBA 


男 外 ,一些 特殊 字符 不 能 耳 接 书写 在 双 引 号 内 ， 例 如 制 表 符 和 换行 件 。VBA 中 没有 转 
义 字 和 侍 ， 因 此 使 用 内 置 常 量 来 表达 。 

"Excel" & VBA.Constants.vbTab & "VBA"， 表 示 Excel 后 面 跟着 一 个 制 表 位 ， 然 后 是 
VBA。 

如 果 字 人 符 串 分 为 多 行 ， 使 用 vbNewLine 连接 即 可 。 

运行 MsgBox "Excel" & vbNewLine & "VBA"， 结 果 如 图 4-2 所 示 。 

此 外 ， 还 可 以 利用 ASCII 码 表 来 生成 字符 。VBA 中 ChrG) 可 以 把 ASCII 值 i 转换 为 字 
符 ， 而 ASC(s) 则 可 以 把 字符 转换 为 数值 。 

例如 ， 大 写字 母 0 的 ASCI 值 是 79, K 的 ASCII 值 是 75， 双 引号 的 ASCII 值 是 34， 
所 以 运行 MsgBox VBA.Chr(79) & VBA.Chr(75) & VBA.Chr(34) 的 结果 如 图 4-3 所 示 。 





图 4-2 运行 结果 1 
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字符 申 变量 可 以 把 字符 串 常量 或 其 运 
类 型 。 
源 代码 : 实例 文档 84.xlsm/ 基本 数据 类 型 


mi 
迟 
Pe 
证 
调 
时 
过 
寺 
3 
A! 
en 
一 一 
过 
可 
S: 
辣 
下 
沁 
过 
CA 
5 

己 

0 


1 Sub Testl 1() 

过， Dim 3 As String 

EE Dim 七 As String * 6 
4. 3 = "VBA" 

ls 七 = "Excel™ + 3 

6 。 MsgBox 七 

1 End Sub 


代码 分 析 : 变量 s 是 变 长 字符 串 变 量 ,{ 是 定 长 字符 串 变 量 ， 只 能 容纳 6 个 字符 。 

第 5 行 代 人 码 把 两 个 字符 串 连 接 在 一 起 赋 给 变量 t,， 但 是 t 只 能 接受 前 6 个 字符 ， 运 行 结 
果 如 图 4-4 所 示 。 

在 VBA 中 ，& 表示 两 个 字符 串 的 连接 ， 而 + 则 有 两 个 含义 : 只 有 + 运算 符 两 侧 都 是 数 
值 型 ， 才 执行 加 法 ， 如 采 有 一 侧 是 数字 ， 太 一 侧 是 字符 串 ， 或 者 两 侧 都 是 字符 串 ， 则 执行 字 
符 串 的 连接 。 

下 面 的 实例 说 明 & 和 + 的 使 用 场合 。 

1] sub Test2z{) 

ps Debug.Print "Excel™ + "89" 

3 

4 


Debug.Print 7.4 + 9.2 
Debug.Print "Excel™ & 89 





he Debug.Print 20 & 89 
6 End Sub 
运行 上 述 过 程 ， 运 行 结 来 如 图 4-5 所 示 。 


Excel89 
16.6 


Excely 


Fxcel89 





图 4-4 运行 结果 3 图 4-5 ”运行 结果 4 


可 以 看 出 ， 如 果 用 到 &， 即 使 两 边 不 是 字符 串 类 型 ， 也 自动 转换 成 字符 囊 
在 实际 编程 中 ， 字 符 串 的 连接 运算 尽量 使 用 &， 少 用 +， 以免 发 生 歧 义 。 





来 处 理 。 


4.1.2 数值 型 


VBA 中 的 数值 类 型 有 整 型 ( Integer)、 长 整 型 (Long)、 单 精度 浮 点 型 ( Single)、 双 精度 
浮 点 型 (Double)。 

整 型 变量 的 数值 是 -32 768 ~ 32 767。 如 果 是 超过 这 个 范围 的 整数 ,需要 将 其 声明 为 更 
大 范围 的 Long 型 。 
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单 精度 浮 点 型 和 双 精 度 浮 点 型 用 来 处 理 沉 有 小 数 点 的 数据 。 
源 代码 : 实例 文档 84.xlsm/ 基本 数据 类 型 


1 Sub Test31{) 

2 Dim a As Integer 
3 Dim b As Long 

4. Dim cc As Single 
J Dim d As Double 
6 = 
i 

8 

9 





30000 
b = 3000000 
c= 3.14159 3030006.28318272 
E d= 3.1415926 
10. MsgBox a +b+i+c+i+d 
11。Ena Sub 


运行 上 述 过 程 ， 对 话 杠 中 返回 数字 之 和 【( 见 图 4-6)。 图 4-6 ”运行 结果 5 





4.1.3 “日 期 和 时 旧型 


VBA 中 ， 日 期 和 时 间 都 是 Date 类 型 。 

日 期 和 时 间 常 量 都 需要 在 两 侧 加 上 #， 例 如 部 /9/2017# 表示 2017 年 8 月 9 日 ,二 :20:30 
PM# 表示 下 午 4 点 20 分 30 秒 ， 如 果 一 个 常量 中 既 有 日 期 又 有 时 间 ， 则 写作 #8/9/2017 
4:20:30 PM#. 

源 代码 : 实例 文档 84.xlsm/ 基本 数据 类 型 


1 Sub Test4{) 

2 Dim dt As Date, tm As Date 
% dt = #8/9/2017# 

4. tm = #4:20:30 PM# 
Debug.Print dt, tm 

6 Debug.Print Now, Date, Time 
1 End Sub 


代码 分 析 : 第 3 ~ 4 行 代码 把 日 期 和 时 间 篆 量 赋 给 变量 ; 第 5 行 代码 打印 结果 ; 第 6 行 
代码 中 用 到 VBA 的 内 置 函 数 , Now 表示 当前 日 期 和 时 间 ,，Date 表示 程序 运行 时 的 当前 日 期 ， 
Time 表示 当前 时 间 。 

运行 结 采 如 图 4-7 所 示 。 


2017/8/9 16:20:30 


2017/8/10 12:42:27 2017/8/10 12:42:27 





图 4-7 运行 结果 6 


4.1.4 布尔 型 


尔 数 据 类 型 通常 用 来 撒 述 是 否 型 的 数据 ， 例 如 是 否 为 和 党员 、 是 否 及 格 等 。 在 程序 设计 
i Way 经 常用 于 下 条 件 选择 结构 、While 循环 中 的 条 件 判断 。 
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布尔 第 量 只 有 True 和 False 两 个 ， 布 尔 变 量 必须 定义 为 Boolean 。 
如 果 True 和 False 与 其 他 数值 型 进行 a 则 True 按 -1 处 理 ，False 按 0 处 理 。 


1。 Sub Testo() 

2. Dim T As Boolean, F As Boolean 
3 T = True 

4. F = False 

on MsgBox T * 2+F 

6. End Sub 


运行 上 述 过 程 ， 对 话 框 中 返回 - 
4.1.5” 变 体型 


变 体 型 (Variant) 变量 可 以 接受 任何 类 型 的 数据 。 
声明 Variant 变量 时 ， 后 面 的 As Variant 可 以 省 略 不 写 。 


1 Sub Teste () 

2 . Dim VY As Variant 
V = "abc" 

4. VV = False 


be i Y= 95.23 
6. End Sub 


像 这 样 把 不 同 的 数据 类 型 赋 给 变 体 型 变量 ， 也 不 会 出 错 。 变 体型 变量 经 稼 用 于 接受 


4.1.6 ”对 象 型 


-数组 。 


前 面 讲述 的 基本 数据 类 型 是 没有 成 员 的 ， 也 就 是 说 ， 无 论 常 量 还 是 变量 ,后面 不 能 输入 
小 数 点 而 出 现 新 的 成 员 。 而 对 象 则 比 一 般 变量 丰富 得 多 ， 具 有 很 多 方法 、 属 性 ， 甚 至 事件 。 
如 果 在 VBA 工程 中 加 入 新 的 引用 ， 就 可 以 在 VBA 中 声明 对 象 变量 ， 进 而 使 用 新 对 象 。 


例如 ， 和 选择“ 工具 ”一 “引用 ”命令 ， 勾 选 Microsoft Scripting Runtime 复 选 框 ， 


以 使 用 字典 、FSO 等 对 象 ( 见 图 4-8)。 


引用 - VBAProject (mses 
可 使 用 的 引用 (A): | 


Microsoft Kemote Data Services B.D , 
Microsoft bs Data Services Ser' 


浏览 四 )... | | 


t | 
[ Nicrosoft Scriptlet Libyarw [ 

[Nicrosoft SharePoint Flug-in for F: 优先 级 

| Nicrosoft Shell Controls hnd hutom: 帮助 0 
| Microsoft Sidebar PAFI Type Library 村 | 

| Nicrosoft SourceSafe B.0 Type Libyr: -一 一 一 

[了 ierosoEt Speech Dbject Library 


DMicrosoft SQL Distribution Control 。 
+ ST Mawes Fantveanl] NN 





图 4-8 在 工程 中 添加 外 部 引用 


束 可 
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运行 下 面 的 过 程 ， 可 以 删除 指定 文件 。 
源 代 码 : 实例 文档 84.xlsm/ 对 象 型 
Sub Testl() 


Dim F As Scripting.FileSystemObject 


F.DeleteFile "C:\temp\a.txt"™" 
Set F = Nothing 


1 
2 
本 Set F = New ScIripting.FileSystemObject 
4 
5 
6 End Sub 


代码 分 析 : 代码 中 的 下 就 是 一 个 对 象 ， 需 要 用 Set 关键 字 来 为 其 赋值 。 使 用 完 后 ， 设 置 
其 为 Nothing， 以 便 释 放 变 量 。 
如 采 把 变量 声明 为 Object， 则 可 以 把 任何 对 象 赋 给 这 个 变量 。 


1 sub Test2{() 

之 Dim a As Object 

Set a = Application 

4. Set a = ActiveWorkbook 
Set a = ActiveSheet 

6 Set a = ActiveCell 

1 End Sub 


代码 分 析 : 由 于 Object 类 型 是 通用 的 对 象 类 型 ， 所 以 运行 上 述 过 程 不 会 出 错 。 
今后 要 讲 到 的 Excel VBA 对 和 象 模型 都 与 对 和 象 变量 的 使 用 有 关 。 


4.1.7 ”数据 类 型 的 判断 


在 程序 编写 和 调试 过 程 中 ， 很 有 必要 去 了 解 变 量 、 和 常量 的 类 型 。 可 以 使 用 VarType、 
TypeName 和 一 些 信息 图 数 来 判断 。 这 些 判断 困 数 均 属 于 VBA.Information 子 类 。 

使 用 VarType 判断 类 型 时 ， 返 回 一 个 VBA.VbVarType 枚 举 值 。 例 如 ，a 是 一 个 长 整 型 
数据 ， 那 么 VarType(a) 就 返回 vbLong(3)。 枚 举 常量 如 表 4-1 所 示 。 


表 4-1 VbVarType 枚 举 常 量 


vbEmpty EE Empty (未 初 妨 化 ) 
vbNull Null (无 有 效 数据 ) 
vbInteger 整数 

vbLoneg 长 整数 

vbSsingle 单 精度 浮 点 数 
vbDouble 双 精 度 浮 点 数 
vbCurrency 6 货币 

vbDate | 日 期 

vbString J 字符 串 

vbObject Automation 对 象 
mm | 人 
vbBoolean Boolean 


52 Office VBA 开发 经 典 一 一 基础 入 门 卷 


之 - 


1 
SR 
4. 
DD 
6 
了 


第 数 
vbVarlant 
vbDataObject 
vbByte 
vbArray 


Sub Testl]l 


Variant (只 和 变量 数组 一 起 使 用 ) 
数据 访问 对 象 
加 


下 面 的 实例 打印 各 个 数据 的 类 型 值 。 
源 代码 : 实例 文档 85.xlsm/ 判断 数据 类 型 


) 


Debug.Print 


Debug.Print 


Debug.. 

Debug.. 

Debug.. 
End Sub 


Print 
Print 


Print 


VarType (300000) 
VarType (30) 
VarType (3.14) 
VarType (False) 
VarType("Hello™) 


运行 结果 如 图 4-9 所 示 。 
利用 这 一 点 也 可 以 判断 数据 是 否 属 于 某 一 类 型 。 例 如 ， 下 面 的 过 程 判 断 数据 是 否 属 于 


源 代 码 : 实例 文档 85.xlsm/ 判断 数据 类 型 


1 
2 
3 
4. 
Es 
6 
1 
8 
9 


Sub Test2{ 


) 


Dim ww As Variant 


v = "你 好 ! " 





图 4-9 


If VBA.Information.VarType(v) = VBA.VbVarType .vbString Then 
MsgBox mv 是 一 个 字符 串 " 


Else 


MsgBox mv 不 是 字符 串 " 


End If 
End Sub 


代码 分 析 : 第 4 行 代码 的 VBA.VbVarType.vbString 等 价 于 整数 8。 
另 一 个 有 用 的 图 数 是 TypeName， 无 论 参数 是 什么 类 型 ， 该 图 数 总 返回 一 个 字符 串 。 
表 4-2 列 出 TypeName 胃 数 的 返回 值 。 


且 
Byte 
Integer 
Loneg 
Single 
Double 
Curency 
Decimal 


Date 


表 4-2 TypeName 函数 的 返回 值 


单 精度 浮 点 值 
双 精 度 浮 点 值 
货币 值 

十 进 制 值 

日 期 或 时 间 值 


运行 结果 7 
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值 拉 述 

String 字符 串 值 

Boolean Boolean 值 ， True 或 False 

Empty 未 初始 化 

Null 无 有 效 数据 

<object type> 实际 对 象 类 型 名 

Object 一 般 对 象 

Unknown 未 知 对 象 类 型 

Nothing 还 未 引用 对 象 实例 的 对 象 变量 

Error 销 误 
下 面 的 实例 打印 各 种 数据 的 类 型 。 
源 代 码 : 实例 文档 85.xlsm/ 判断 数据 类 型 
1] sub Test3() 
之 Debug.Print TypeName (ActiveCell) 
Debug.Print TypeName (30) Range 
4. Debug.Print TypeName (-3-14) lInteger 
5 Debug.Print TypeName (Array(3, 4, 5)) Double 
6 Debug.Print TypeName ("Hello™) Yar a 
1 End Sub “Ting 

运行 上 述 代码 ， 结 果 如 图 4-10 所 示 。 图 4-10 运行 结果 8 


TypeName 也 可 以 用 来 判断 数据 是 否 属 于 攻 一 种 具体 类 型 
(30000) = "Long" 会 返回 False， 把 数字 和 更改 为 3000000 则 会 


例如 ，MsgBox TypeName 


返回 True。 这 说 明 3000000 属于 


1 能 返回 Integer。 
VBA.Information 子 类 还 有 一 些 以 开头 的 判断 图 数 ， 这 类 羡 数 直接 判断 数据 是 否 属 


Dim 1 As Integer, J] As Integer 


Information. 
Information. 
Information. 
Information. 
Information. 


Information. 


长 整 型 ， 而 TypeName(30000) 只 
某 一 类 型 ， 均 返回 布尔 值 。 
源 代码 : 实例 文档 85.xlsm/ 判断 数据 类 型 
1 Sub Test41{() 
2 
3 i = 34 
4. Debug.Print VBA. 
ms Debug.Print VBA. 
6 Debug.Print VBA. 
1 Debug.Print VBA. 
8 Debug.Print VBA. 
+- Debug.Print VBA. 
10. Debug.Print VBA. 


ll1i. End Sub 


HU 第 4 行 验 证 是 否 是 一 个 数组 ， 第 5 行 验证 是 否 属 


证 是 否 二 请 罕 ? 第 8 行 验 证 是 否 口 为 Null, 


对 象 。 


运行 上 述 代码 后 ,除了 第 6 行 


Information. 


第 941 


迟 回 False， 


IsArray (AITIaYI(2，3，4)) 
IsDate (#4/7/2001#) 

工 SEmPtY(I) 

IsEmpty (Empty) 

IsNull {Null) 
IsNumeric (32) 

Isobject (ActiveWorkbook) 


于 日 期 时 间 , 第 6 ~ 7 行 验 
了 验证 是 1 ip 第 10 行 验证 是 否 是 一 个 


其 余 各 行 均 返 回 True。 
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对 于 对 象 变 量 ， 还 可 以 用 Is Nothing 来 判断 该 变量 是 否 从 未 赋值 ， 或 者 变量 已 经 被 释 
放 ， 如 果 对 和 象 变量 是 空 的 ， 则 返回 True。 


1 
之 
4. 
中 
6 
1 
8 


Sub Testo{() 
Dim Ig As Excel .Range 
Debug.Print rg Is Nothing 
Set rg = Range("B2") 
Debug.Print rg Is Nothing 
Set rg = Nothing 
Debug.Print rg Is Nothing 

End Sub 


代码 分 析 : 对 于 刚 声 明 的 对 象 变 量 ， 还 没有 把 具体 对 象 赋 给 它 ， 那 就 是 Nothing， 因 此 
第 3 行 的 打印 结果 是 True。 

第 4 行 把 具体 的 单元 格 赋 给 7 了 rg， 因此 第 5 行 的 打印 结果 为 False。 

第 6 行 释放 对 象 变量 ， 第 7 行 运行 结果 是 True。 


4.1.8 


变量 声明 的 向 写 形 式 


在 VBA 的 变量 声明 中 ,除了 用 As 类 型 这 种 写法 外 ， 还 可 以 在 变量 后 面 紧 跟 一 个 符号 
来 规定 变量 类 型 。 例 如 ，Dim b as Integer 可 以 人 简写 为 Dim b%。 下 面 的 实例 列 出 了 生 见 数据 
类 型 的 简写 形式 。 

源 代码 : 实例 文档 86.xlsm/ 变量 的 简写 形式 


1 
之 
4. 
i 
6 
1 
8 
9 


Sub Testl{() 
Dim as, bs, c&t, di, ef@ 
' 等 价 于 Dim a Rs String,: b As Integer, cc AS Long, d As Single, ee As Currency 
= "abc" 
= &H314 
= 300000 
= 2# 
e = 3000@ 
End Sub 


0 负 
| 


代码 分 析 : 第 5 行 代码 把 十 六 进 制 数 314 (相当 于 十 进 制 的 788) 赋 给 整 型 变量 


4.1.9 


kk 


变量 声明 的 切 始 默认 值 


变量 声明 后 ， 即 使 没有 赋值 ，VBA 根据 变量 的 类 型 也 为 其 设置 初始 值 。 字 符 串 变量 初 


始 值 是 空 字 符 串 ， 数 值 型 变量 初始 值 是 0， 布 尔 型 变量 初始 值 是 False， 对 象 变量 的 初始 值 是 
Nothing, 


源 代码 : 实例 文档 86.xlsm/ 变量 的 初始 默认 值 


1 
之 
J 
3 


Sub Testl]() 
Dim a As String, b As Integer, cc As Long, d As Boolean, ee As Excel .Workbook 
Debug.Print a, b, c, d, ee Is Nothing 
Stop 

End Sub 
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代码 分 析 : 运行 本 过 程 前 ， 先 打开 本 地 窗口 ， 运 行 到 Stop 所 在 语句 ， 观 察 变 量 的 值 ( 见 
图 4-11)。 


VBhProjeet. 变量 的 初 畏 黑人 佣 .Test1 





图 4-11 本 地 窗口 ] 
可 以 看 出 ， 各 个 变量 即使 从 未 赋值 ， 也 已 经 有 初 娘 值 。 


4.1.10 ”数据 类 型 的 转换 

编写 程序 时 ， 经 常 遇 到 不 同 数据 类 型 的 相互 转换 ， VBA 中 很 多 情况 下 采用 默认 转换 的 
方式 ,不 需要 显示 转换 ,但 是 攻 些 场合 下 严格 要 求 数据 类 型 时 ， 就 需要 转换 后 才能 使 用 。 
VBA.Conversion 了 于 类 有 大 量 用 于 数据 类 型 转换 的 限 数 ( 见 表 4-3)。 该 子 类 下 有 大 量 的 以 C 
开头 的 函数 ， 其 功能 就 是 把 源 数据 转换 成 目标 类 型 。 例 如 ，CBool(3.5) 会 返回 布尔 值 True， 
CInt (-3.8) 会 返回 整数 -4。 


表 4-3 VBA.Conversion 子 类 部 分 转换 函数 


函数 名 称 转 换 为 
CBool Boolean 
CDate Date 
CDbl Double 
ClInt Integer 
CILng Long 
CSng Single 
CStr String 


上 述 函 数 中 ，Cmt 与 CStr 的 使 用 频率 较 高 。 

例如 ，VBA 的 字符 串 函 数 Left 用 于 返回 字符 串 从 左 侧 截取 指定 数目 的 字符 。 其 严格 语 
法 是 Left(String As String,Length As Long)， 也 就 是 说 第 1 个 参数 是 String 型 、 第 2 个 参数 
是 Long 型 。 但 在 实际 编程 中 遇 到 下 面 的 情况 ， 也 不 会 出 错 : MsgBox Left(13579, "3") 会 返 
器 135。 但 不 推荐 这 样 使 用 ， 尺 量 要 提供 和 哺 数 参数 类 型 匹配 的 数据 。 因 此 改写 成 MsgBox 
Left(CStr(13579), CLng("3")) 更 为 稳妥 。 

下 面 重点 讲述 一 下 其 他 数据 类 型 向 数值 型 转换 的 知识 。 

其 他 数据 类 型 向 数值 类 型 转换 ， 根据 情 况 可 以 直接 使 用 CInt、CSng 和 CDbl， 另 外 ， 还 
有 Int、Val、Fix、Round 限 数 ， 也 是 用 于 数值 转换 处 理 的 子 数 。 

这 些 限 数 中 ，Val 图 数 可 以 从 以 数字 开头 的 字符 串 中 提取 出 连续 数字 并 返回 ， 而 其 他 上 贤 


数 则 | 办 不 到 | 局 
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例如 ，VBA.Conversion.Val("2017.6.9Good") 可 以 返回 2017.6 这 个 小 数 。 因 为 一 个 数字 
至 多 有 1 个 小 数 点 ， 所 以 稚 止 到 数字 6， 后 面 的 则 人 铭 痉 。 

如 果 是 以 其 他 字符 开头 ， 即 使 包含 数字 也 提取 不 出 。 例 如 ，Val("H2017") 只 会 返回 0。 

CInt、Int 和 Fix 都 可 以 把 数字 进行 取 整 处 理 ，CInt 是 四 舍 五 人 取 整 ，Int 和 Fix 遇 到 正 
的 小 数 ， 都 是 直接 舍弃 小 数 部 分 ， 遇 到 负 的 小 数 ，It 是 加 下 取 整 ，Fix 是 加 上 取 整 。 

源 代 码 : 实例 文档 87.xlsm/ 数据 类 型 转换 


1 
2 
E 
4. 
| 
6 
1 
8 


3. 
10. 


Sub Testl]() 


Dim a As Single, b As Single, cc As Single, d As Single 


a = 3.18 
b= 3.24 
C 一 一 了 .8 
d = —2.3 


Debug.Print ™ 原始 数据 i + -| 

Debug.Print "CInt: ™, CInt(a}), CInt(b}, Cint(c}, CInt({d) 
Debug.Print “Int: ", Intia), Int(b), Int(c), Int(d) 
Debug.Print Fix: ", Fix(a), Fix(b), Fix(c), Fix(d) 


11. End Sub 


代码 分 析 : 第 8 ~ 10 行 分 别 用 3 个 图 数 对 4 个 数字 进行 转换 ， 结 有 末 如 图 4-12 所 示 。 





图 4-12 运行 结果 9 

可 以 看 出 ， 转 换 的 结果 都 是 整数 ， 转 换 的 差别 不 超过 1。 

Round 国 数 可 以 把 一 个 数字 四 侈 五 人 到 指定 的 小 数位 数 。 例 如 ，Round(-3.81647,2) 可 以 
返回 -3.82 。 


4.2 ”表达 式 与 运算 符 


运算 符 的 作用 是 把 数据 进行 计算 加 工 ， 得 到 新 的 结果 的 过 程 。VBA 中 的 运算 符 主要 包 
括 算术 运算 符 、 比 较 运算 符 、Like 运算 符 和 逻辑 运算 符 。 一 个 表达 式 通常 由 多 个 数据 和 多 个 
运算 符 连 接 而 成 ， 当 出 现 多 个 运算 符 时 ， 圆 括号 的 优先 级 最 高 ， 也 就 是 说 ， 只 要 是 被 括号 括 
起 来 的 部 分 ， 一 定 优先 计算 。 赋 值 运算 的 优先 级 最 低 。 


4.2.1 


算术 运算 和 从 主要 用 来 执行 数值 计算 ， 表 4-4 列 出 算术 运算 得 及 其 优先 级 。 


表 4-4 算术 运算 符 及 其 优先 级 
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算术 运算 符 优 先 级 作 用 实 例 
MOD 求 余 25 MOD 7=4 
+ - 5 | 加 | 5 


如 果 优 先 级 相同 ， 按 从 左 到 右 的 顺序 计算 ， 例 如 * 和 /优先 级 相同 ， 计 算 3*8/2 会 得 到 
12， 而 8/2*3 也 会 得 到 12。 


4.2.2 ”比较 运算 稚 


比较 运算 符 就 是 对 两 者 进行 大 小 的 比较 ， 人 返回 的 结 采 是 布尔 值 。 

常用 的 比较 运算 符 有 > 二 >、<、>=、<=、=、<>。 例 如 ，3+5< >8 返回 False。 

以 上 各 个 比较 运算 符 的 优先 级 相同 。 

在 VBA 中 ， 数 值 型 数据 的 大 小 比较 容易 理解 。 此 外 ，VBA 还 可 以 进行 日 期 比较 、 字 符 
串 比 较 。 例 如 ，#2004-8-7#>#2013-8-7# 会 返回 False。 

字符 串 是 按照 ASCII 码 的 顺序 进行 比较 ， 例 如"b">"C" 返回 True。 因 为 小 与 字母 a 的 
ASCII 值 是 97, z 的 ASCII 值 是 122， 大 写字 母 A 的 ASCII 值 是 65, Z 的 ASCII 值 是 90。 
由 于 b 的 ASCII 值 比 C 的 要 大 ， 所 以 返回 True。 

运行 如 下 代码 ， 可 以 在 立即 窗口 看 到 ASCII 码 表 。 

1 Sub Testl]{() 

Dim i As Integer 

3. For 1 = 1 To 121 

= Debug.Print i, Chr(1) 

5 Next 1 
6 End Sub 

对 于 长 度 大 于 1 的 字符 串 的 比较 ， 按照 从 左 到 右 的 顺序 ， 了 逐个 字符 比较 ， 直 至 能 比较 出 
结果 ， 如 有 果 比 不 出 结果 ， 则 认为 两 个 字符 串 相同 。 

例如 ，"Hello"<"Hero" 返回 True， 因 为 前 两 个 字符 比较 不 出 来 ， 只 好 比较 小 写 1 和 T，1 
的 ASCII 值 小 于 r 的 ， 所 以 返回 True-。 

一 定 要 注意 ，VBA 进行 字符 比较 时 ， 模 块 的 默认 定义 是 二 进 制 比较 方式 (Option 
Compare Binary)， 也 就 是 默认 区 分 大 小 写 。 如 果 模 块 项 部 声明 为 Option Compare Text， 则 是 
文本 比较 方式 ， 这 时 程序 的 运行 结 末 会 发 生 巨 大 差别 。 

源 代码 : 实例 文档 88.xlsm/ 字符 串 的 比较 


1 Option Compare Text 

2 Sub Testl () 

Debug.Print "VBA” > "excel™ 
4 Debug.Print "VBA” = "vba" 

3 End Sub 
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代码 分 析 : 由 于 模块 顶部 声明 为 文本 比较 方式 ，"VBA" > "excel" 就 等 价 于 比较 "vba" > 
"excel" ， 结 果 返 回 True。'"VBA" = "vban" 和 "vba" = "vba" ， 也 返回 True。 

读者 可 以 把 模块 项 部 那 行 注 释 挥 ， 上 青 运 行 这 个 过 程 ， 发 现 两 个 打印 结果 都 为 False， 可 
见 比较 方式 的 影响 很 大 。 

另外 ，VBA 中 的 StrComp 函数 ， 也 可 以 用 于 字符 串 的 比较 。 该 函数 语法 如 下 : 

StrComp (Stringl, String2, Compare) 

采 两 个 参数 是 两 个 字符 串 ， 最 后 一 个 参数 是 比较 方式 的 指定 。 比 较 结 束 后 ， 如 有 果 前 者 大 

则 返回 1， 后 者 大 则 返回 -1， 一样 大 则 返回 

源 代码 : 实例 文档 88.xlsm/ 字符 串 的 比较 


1 Sub Test2{() 

z Debug.Print VBA.Strings.StrComp{("VBA", "excel", compare:= vbhBinaryCompare) 
EE Debug.Print VBA.Strings.StrComp ("VBA", "excel", compare:= vbTextCompare) 
一 Debug.Print VBA.Strings.StrComp("VBA", "vbha", compare:~=~vbhTextCompare) 

2 End Sub 


代码 分 析 : 第 2 行 代码 ， 比 较 方式 是 二 进 制 比较 ， 区 分 大 小 写 ， 前 者 小 ， 所 以 返回 -1。 
第 3 行 代码 ， 比 较 方式 是 文本 比较 ， 不 区 分 大 小 写 ， 前 者 大 ， 所 以 返回 1。 
第 4 行 代码 ， 不 区 分 大 小 写 ， 返 回 0。 


4.2.3 ”Like 运算 符 


Like， 英 文 是 相像 的 意思 ,在 VBA 中 经 常用 Like 来 对 字符 串 进 行 模式 匹配 和 判断 。 

其 语法 格式 为 : 

Result = String Like Pattern 

其 中 ，Pattern 是 事先 规定 好 的 模式 字符 串 。Like 运算 符 返 回 一 个 布尔 值 ， 如 果 源 字符 
串 与 模式 相 匹 配 ， 则 返回 True， 否 则 返回 False。 

Like 的 匹配 结 来 与 模块 定义 也 有 关系 ， 在 使 用 Like 时 ， 根 据 需要 事先 设 定 模块 定义 是 
Option Compare Binary 还 是 Option Compare Text。 

Like 的 强大 之 处 在 于 能 够 在 Pattern 中 使 用 通配符 ， 如 有 果 不 使 用 通配符 ，Like 的 功能 和 
比较 运算 和 从 中 的 大 于 、 小 于 没什么 两 样 。 

源 代码 : 实例 文档 89.xlsm/Like 运算 符 


1 Option Compare Text 

2 Sub Testl 1() 

Dim b As Boolean 

4. b = "VBA™" Like "vbha" 
2 MsgBox b 

6 End Sub 


运行 上 述 代 人 码 ， 对 话 框 中 返回 True， 如 采 把 顶端 模块 定义 注释 反 ， 或 者 改 为 Option 


Compare Binary， 再 次 运行 ， 结 果 就 不 一 样 了 。 
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Like 运算 符 文 持 的 通配符 如 表 4-5 所 示 。 
表 4-5 Like 运算 符 支持 的 通配符 
天 配 交 举例 





+ 0 个 或 多 个 字符 "vba" Like "v*"， 返回 True 
[charlist] charlist 中 的 任何 一 个 字符 "vba" Like "[a-fj"， 返 回 True 
['charlist] charlist 以 外 的 任何 一 个 字符 "vba" Like "[!abcdelba"， 返 回 True 





? 和 * 的 区 别 : ? 只 能 表达 1 个 字符 ， 而 * 可 以 表达 0 个 及 其 以 上 任意 多 字符 。 例 如 ， 
Msgbox" 大 家 好 ! "Like "大 *" 返回 True， 而 Msgbox "大 家 好 ! " Like "大 2" 返回 False。 
因为 “大 ”后 面 还 有 3 个 字符 ， 一 个 问号 不 能 表达 。 

? 和 # 的 区 别 : # 局 限于 数字 之 内 ， 而 ”可 以 是 任意 字符 。 例 如 ，Msgbox "5a20" Like 
"#9?##" 可 以 返回 True， 如 果 改 成 Msgbox "5a20" Like "###" 则 返回 False。 

根据 这 个 特点 ， 可 以 用 来 判断 用 户 输 入 的 是 不 是 邮政 编 色 ， 因 为 邮政 编 公 是 连续 的 6 个 
数字 ，Pattern 就 可 以 写作 "#####"。 

如 果 Like 通配符 中 的 方 括号 不 是 以 ! 开头 的 ， 则 表示 方 括号 内 中 的 任 一 字符 。 例 如 ， 
Msgbox " 王 龙 " Like "[ 张 王 李 赵 ] 龙 "可 以 返回 True， 而 Msgbox " 王 李 龙 " Like "[ 张 王 李 
赵 ] 龙 " 则 返回 False， 因 为 方 括号 内 字符 再 多 ， 也 只 能 代 符 一 个 字符 。 

如 有 果 方 括号 内 有 感叹 号 ， 则 表示 字符 不 在 列表 中 。 例 如 ，Msgbox " 韩 龙 "Like "[! 张 王 
李 赵 ] 龙 "返回 True， 而 Msgbox " 赵 龙 "Like "[! 张 王 李 赵 ] 龙 " 则 返回 False。 因 为 模式 的 
意思 是 这 个 人 不 属于 张 王 李 赵 中 的 任何 一 个 。 

方 括号 内 还 文 持 -， 减 号 的 意思 是 ASCII 码 的 范围 。 例 如 ，Msgbox "Hero" Like "[X-Z] 
ero" 返回 False， 因 为 模式 只 能 匹配 Xero 、Yero 和 Zero 。 


4.2.4 ”逻辑 运算 符 


逻辑 运算 和 从 是 指 布尔 值 之 间 的 运算 。 在 实际 编程 中 ， 经 和 常用 到 多 个 条 件 的 组 合 ， 例 如 ， 
什么 样 的 人 具有 报考 军校 的 资格 、 什 么 样 的 人 能 够 申请 廉 租 房 等 。 

在 VBA 中 ， 负 用 的 逻辑 运算 符 有 且 (And)、 或 (Or)、 非 (Not)。 优 先 级 顺序 是 
Not>And>Or. 

And 运算 符 的 语法 格式 是 : A And B。 如 果 A 和 B 均 为 Trme， 最终 结果 也 为 True ; 如 
果 其 中 任何 一 个 为 False， 则 最 终结 果 为 False。 

Or 运算 符 的 语法 格式 是 : A Or B。 如 果 A 和 B 均 为 False， 最 终结 果 也 为 False ; 如 果 
其 中 任何 一 个 为 True， 则 最 终结 果 为 True。 

Not 运算 符 是 取 反 操作 ， 其 语法 格式 是 : NotA。 如 果 A 为 True， 最 终结 果 为 False ; 如 
果 A 为 False， 则 最 终结 果 为 True。 
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4.3 ”使 用 变量 


变量 是 相对 于 稼 量 而 言 的 ， 稼 量 是 不 可 改变 的 数据 ， 而 变量 只 是 一 个 标识 符 而 已 ， 可 以 
把 其 他 数据 赋 给 它 。 因 此 ， 变 量 就 像 一 个 保管 箱 ， 里 面 的 东西 随时 可 以 使 用 ， 也 可 以 更 换 。 


4.3.1 变量 命名 


命名 变量 时 ， 一 般 使 用 字母 、 数 字 、 下 男 线 的 组 合 ， 并 且 以 字母 开头 ， 中 文 汉字 也 可 以 
作为 变量 的 一 部 分 ,但 不 推荐 使 用 汉语 作为 变量 名 。 其 次 ， 不 外 Rs 
即使 大 小 写 略 有 不 同 也 不 行 。 例 如 ， 把 function 作为 变量 名 是 不 可 以 的 ， 因 为 VBA 语言 是 
不 区 分 大 小 写 的 ，Function 是 VBA 的 内 置 关键 字 ， 因 此 不 可 作为 变量 名 。VBA 中 的 内 置 关 
键 字 如 下 所 示 。 


AddressOf Alias And As Base Boolean ByRef Byte 
ByVal Call Case Close Compare Const Curency Date 
Debusg Declare Dim Do Double Each Else Elself 
End Enum Erase Error Exit Explicit FALSE For 
Function Get Gosub GoTo If In Input Integer 
Ts Lbound Lib Like Load Long Loop Me 
Mod New Next Not Nothing Null Object On 
Open Option Optional Or Output Preserve Print Private 
Property Public ReDim Resume Return Select Set Single 
static Step String sub Text Then To TRUE 
Type Ubound Unload Until Varlant Wend While With 


| a_123、H 班级 都 是 合法 的 变量 名 ,但 是 !B3、wx 都 不 可 以 ， 因 为 不 允许 使 用 感 
空格 作为 变量 的 一 部 分 。 
和 为 变量 起 名 字 尽 量 用 器 文 单词 的 组 合 ， 这 样 便 于 以 后 修改 代码 。 例 如 ， 
MyWorkbook 、OtherPerson 、Str320 这 些 都 是 不 错 的 变量 名 称 。 


4.3.2 ”变量 的 声明 
声明 变量 就 是 将 变量 名 及 其 类 型 在 使 用 之 前 通知 VBA， 由 VBA 按照 变量 的 类 型 分 配 存 
储 空 间 。 可 使 用 Dim 、Static 、Private 或 者 Public 人 明 亦 量 。 


变量 的 声明 分 为 3 部 分 : 变量 的 作用 范围 和 生存 期 、 变 量 名 称 以 及 变量 类 型 。 
在 过 程 中 书写 Dim a As Iteger， 意 思 是 过 程 中 的 局 部 变量 ， 变 量 名 称 是 a， 类 型 


VBA 中 的 变量 声明 不 是 必需 的 ， 如 果 在 VBA 的 “选项 ”对 话 框 中 勾 选 “要 求 变 量 声明 ” 
复 选 框 ( 见 图 4-13)， 那 么 程序 中 用 到 的 所 有 变 mim ieeeny 否则 在 运行 前 会 弹 
出 警告 对 话 框 。 
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为 外 ， 也 可 以 在 个 别 模 块 中 进行 强制 变量 声明 。 如 末 在 模块 项 部 定义 Option Explicit， 
那么 在 程序 中 出 现 从 未 定义 过 的 变量 ， 则 会 弹出 对 话 框 提 示 编 译 错误 ( 见 图 4-14)。 


涡 缉 器 | 晴 箭 器 格式 | 通用 “| 可 这 接 的 | 
代码 识 丫 
三 目 半 下去 检 囊 疏 ] [w 目 动 头 进 三 
要 roa 
E ah 十 度 站 ]: 用 
IY 自动 列 出 成 吕 怠 ) 
lw 自动 显示 快 束 依 息 总 Microsoft Visual Bastc for Applicatio,.. ee 
I 自动 是 示 糙 据 提示 占 ] 


窗口 襄 由 

lw 编辑 时 可 掩 下 六 本 身 ) 
lw 页 省 为 查 在 所 有 模 二 由 ) 
I 过 程 熙 隔 竺 FF) 





图 4-13 ” 勾 选 “要 求 变量 声明 ” 复 选 框 图 4-14 ”编译 错误 
编写 程序 时 ， 推 荐 事先 声明 用 到 的 变量 。 
4.3.3 ”变量 的 赋值 


变量 类 似 于 中 学 数学 代数 中 的 字母 。 为 变量 赋值 ， 就 相当 于 把 具体 的 数字 代 人 字母 ， 从 
而 计算 代数 式 的 值 。 
例如 ，a=2，p=2.1， 计 算 VJaz+ 关 的 值 。 这 个 数学 问题 就 可 以 用 VBA 来 解决 。 


思考 : 本 题 至 少 需 要 声明 两 个 变量 ,但 由 于 计算 较 复杂 ， 因 此 再 声明 一 个 变量 ec， 用 
来 存储 结果 式 。 图 4-15 用 来 描述 该 问题 的 实现 过 程 。 
声明 变量 (a、b、 c) 


为 变量 赋值 (a=2、b=2.1) 
c= 计算 的 表达 式 


图 4-15 算法 流程 图 
根据 上 述 流程 图 ， 不 难 瑟 出 如 下 VBA 过 程 。 
源 代码 : 实例 文档 90.xlsm/m0 









1] Sub Testl]{() 

a Dim a As Single, b As Single, c As Single 
3. 已 二 2 

4 b = 2.1 

本 c= VBA.sgr(la 人 2+b°” 2) 
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Es Debug.Print c 
1. End Sub 


代码 分 析 : 由 于 本 题 涉及 的 是 数学 问题 ， 有 浮 点 数 ， 所 以 定义 的 变量 全 部 是 Single 型 。 

其 中 , 第 3 ~ 5 行 代码 是 变量 的 赋值 过 程 ， 也 就 是 把 表达 式 代 入 到 变量 的 过 程 。 第 5 行 
代码 用 到 数学 运算 符 中 的 乘 方 以 及 平方 根 消 数 。 

第 6 行 在 立即 窗口 中 打印 ce 的 计算 结 采 : 2.9。 

因此 ， 变 量 的 赋值 可 以 简单 地 摘 述 为 : 变量 名 = 表达 式 。 

其 中 ， 等 号 左 方 必 须 是 一 个 变量 ， 等 号 右 方 可 以 是 任意 表达 式 ， 但 是 一 般 要 求 表达 式 的 
返回 值 类 型 与 变量 的 声明 类 型 一 致 或 相近 方 可 。 

另外 ， 也 可 以 写作 这 种 形式 : Letb =2.1， 但 是 一 般 情 况 下 Let 关键 字 省 略 不 写 。 

如 果 在 顺序 结构 中 对 同一 变量 反复 赋值 ， 那 么 该 变量 最 后 的 值 就 是 最 后 一 次 赋值 的 结 
采 。 这 就 好 比 一 个 抽 层 , 今天 放 了 一 个 苹果 ， 明 天 取出 苹果 又 放 人 一 个 理 态 。 上 总 之 ,一 个 变 
量 只 能 保存 一 个 表达 式 , 保存 了 新 的 表达 式 就 把 旧 的 丢弃 。 

源 代 码 : 实例 文档 90.xlsm/m0 


1] Sub Testz () 

2 Dim a A3s Integer, b As Integer 
i 忌 二 2 

4. b = 3 

2 忌 一 4 

6 忆 一 9 

1 MsgBox a 十 Db 

8 End Sub 


代码 分 析 : 上 述 过 程 中 ， 对 变量 a 赋值 3 次 ， 最 后 一 次 是 把 5 赋 给 a， 因 此 a 前面 的 取 
值 都 没有 起 作用 ; 而 b 一直 是 3， 所 以 最 终结 果 是 对 话 框 中 出 现 8。 

如 果 是 对 象 变量 赋值 ， 使 用 Set 关键 字 ， 而 不 是 Let。 对 象 变量 使 用 完毕 后 ， 还 要 释放 
对 象 变 量 ， 如 果 是 过 程 级 对 象 变 量 ， 当 过 程 运行 结束 会 日 动 释放 。 

源 代码 : 实例 文档 90.xlsm/m0 





1]. Sub Test3() 

ee Dim a As Excel .Application, b As Excel .Workbook, c As Excel .Worksheet, 
d As Excel.Range 
3 Set a = Applicatijion 
4 Set b = ActijveWorkbook 
可 Set c = ActiveSsheet 
6. Set d = ActiveCell 
1 
8 
9 


Debug.Print a.Version, b.FullName, c.Name, d.Address 





Set a = Nothing 

. Set b = Nothing 
10. Set c = Nothing 
11。 Set d = Nothing 


12. End Sub 


代码 分 析 : 本 过 程 中 的 4 个 变量 都 是 对 象 变量 ， 因 此 第 3 ~ 6 行 必须 用 Set 关键 
量 赋值 。 
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第 7 行 打 印 对 象 的 有 关 属 性 ， 第 8 ~ 11 行 释放 各 个 对 象 变量 。 
4.3.4 ”变量 的 作用 沁 围 和 生存 期 


变量 名 和 过 程 名 、 函 数 名 一 样 ， 不 可 出 现 二 义 性 ， 也 就 是 同一 个 范围 不 得 重复 声明 。 例 
如 ， 同 一 个 过 程 中 多 次 声明 同一 个 变量 ， 是 不 可 以 的 ; 同一 个 模块 内 ， 也 不 可 以 出 现 二 义 性 。 

在 VBA 程序 中 ， 当 一 个 过 程 运行 完成 后 ， 有 的 变量 会 日 动 消失 ， 有 的 变量 则 还 保留 它 
的 数值 ， 这 就 涉及 变量 的 作用 范围 和 生存 期 。 

如 果 是 在 过 程 ( Sub 开始 ，End Sub 结束 ) 中 用 Dim 声明 的 变量 ， 则 当 运 行 该 过 程 时 ， 
才 创 建 这 个 变量 ， 当 该 过 程 运 行 结束 ， 变 量 随 之 消失 。 

过 程 中 声明 的 变量 ， 只 在 过 程 内 部 有 效 ， 其 他 模块 及 过 程 不 可 访问 该 变量 。 

为 一 类 变量 是 模块 级 变量 ,也 就 是 声明 于 模块 项 部 的 变量 。 通 向 情况 下 模块 项 部 可 以 用 
Public 、Private 关键 字 声 明 变量 。 只 有 应 用 程序 全 部 结束 时 模块 级 变量 才 消 失 ， 或 者 代码 中 
运行 End 语句 ， 也 会 终止 程序 。 

Public 、Private 声明 的 变量 生存 期 一 样 ， 但 是 作用 范围 不 同 。Public 声明 的 变量 不 仅 本 
模块 内 可 以 调用 ， 而 且 能 让 同一 VBA 工程 的 其 他 模块 调用 ; 而 Private 声明 的 变量 是 模块 私 
有 变量 ， 其 他 模块 不 能 访问 和 使 用 。 

例如 ， 在 标准 模块 ml 中 声明 以 下 两 个 模块 级 变量 ，; 

Option Explicit 


Public C As Integer 


Private D As Integer 
在 标准 模块 m2 中 书写 代码 ， 当 输入 ml 后 再 加 一 个 小 数 点 时 ， 可 以 看 到 只 有 变量 C， 

没有 变量 D ( 见 图 4-16)， 因 为 D 是 Private 的 。 
下 面 的 实例 说 明了 模块 级 变量 的 生存 期 。 
源 代 码 : 实例 文档 90.xlsm/m1 








本 
2% Testl 

1 Option Explicit = Test2 

2 Public C As Integer 

3 Private D As Integer 

4. Public Sub Testl{() 

i ml.c = 30 

6 End Sub 

1 Public Sub Test21{) 

8 ml.D = ml.c * 3 

:A MsgBox ml .D 

10. End Sub 


代码 分 析 : 该 模块 包含 两 个 过 程 ， 运 行 Testl ， 变 量 C 赋值 为 30， 接 着 继续 运行 Test2， 
输出 90， 而 不 是 0。 这 是 因为 运行 Testl 后 ， 过 程 虽 然 运 行 结束 了 ,但 是 C 的 值 并 没有 丢 。 

另外 ， 过 程 中 的 变量 还 可 以 声明 为 静态 变量 ( Static )。Static 声明 的 变量 的 特点 是 : 
变量 的 作用 范围 仍然 是 过 程 内 部 ,但 是 生存 期 和 模块 级 变量 一 样 ， 过 程 结束 后 ， 变 量 仍 
然 保留 。 
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源 代 码 : 实例 文档 90.xlsm/m2 


1 Sub Testl]{() 

ea Static SS As Integer 
避 。 SS= 5+ 3 

4 MsgBox 5 

= End Sub 


代 但 分 析 : S 是 一 个 过 程 级 的 静态 变量 ， 当 第 一 次 运行 Testl 时 ，S=0+3， 对 话 框 中 出 
现 3。 

当 第 二 次 运行 该 过 程 时 ，S=3+3， 对 话 框 中 出 现 6。 

此 上 述 过 程 多 次 执行 ， 每 次 都 在 原先 的 基础 上 加 3。 

如 果 把 Static 换 作 Dim， 则 每 次 对 话 框 中 总 是 3。 

在 实际 的 VBA 项 目 中 ， 变 量 的 作用 范围 和 生存 期 要 严格 区 分 ， 根 据 不 同 的 场合 声明 不 
同类 型 的 变量 。 





4.3.5 ”声明 变量 的 其 他 写法 
一 般 情 况 下 ， 一 次 声明 一 个 变量 ， 并 且 单 独占 一 行 。VBA 可 以 把 多 个 变量 的 声明 放 在 
同一 行 。 例如 : 
Dim a As Inteder，b As String, c As Boolean, d, e As Excel.Range 
这 行 代码 表示 在 过 程 内 部 声明 了 5 个 变量 ， 其 中 dd 没有 规定 类 型 相当 于 是 Variant 
另外 ， 还 可 以 用 后 组 的 方式 规定 变量 的 类 型 。 例 如 : 
Public as®, bs$, ce@ 


表示 在 模块 项 部 声明 了 3 个 模块 级 变量 : a 是 Integer, b 是 String, c 是 Currency。 


4.4 使 用 常量 


弟 量 束 是 不 可 改变 的 数据 。VBA 中 用 到 的 贡 量 ， 除 了 一 般 帝 数 以 外 ， 还 可 以 目 定 义 秆 
量 和 使 用 内 置 枚 举 稼 量 。 


4.4.1 目 定 义 单 量 


日 定义 第 量 可 以 理解 为 只 赋值 一 次 的 变量 。 变 量 是 可 以 反复 赋值 多 次 的 ， 而 日 定义 惫 
只 赋值 一 次 。 日 定义 当量 也 分 为 过 程 级 常量 、 模 块 级 第 量 ， 其 中 模块 级 第 量 又 分 为 公有 第 
和 私有 和 营 量 。 明 定 义 第 量 需 要 在 声明 时 立即 赋值 。 

源 代码 : 实例 文档 91.xlsm/m1 


1. Public Const Pi As Single 3.14129 
2. Private Const E As Single = 2./1828 


三 
里 
= 
时 
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3 Sub Testl]{() 

4 Const Y AS Integer = 2017 
i MsgBox Pi +E+Y 

6 End Sub 


代码 分 析 : Pi 是 一 个 公有 的 模块 级 常量 ,代表 圆 周 率 ,该 第 数 还 可 以 让 其 他 模块 使 用 。 
E 是 一 个 私有 的 模块 级 常量 。Y 是 过 程 级 常量， 只 能 在 本 过 程 中 使 用 。 运 行 Testl 过 程 ， 返 
回 2022.86。 

可 以 看 出 ， 目 定义 常量 和 变量 的 声明 方式 很 类 似 ， 但 是 在 声明 时 赋值 一 次 ， 然 后 在 程序 
中 不 可 对 这 些 和 常量 进行 赋值 ， 否 则 会 出 错 。 也 就 是 说 ， 营 量 只 能 使 用 ， 不 可 修改 。 


4.4.2 ”内 置 枚 举 常 量 


VBA 程序 中 。 经 常用 到 枚 举 常量 。 实 际 上 ，VBA 工程 中 可 以 使 用 的 对 象 类 型 和 枚 举 常 
量 与 VBA 工程 的 引用 有 关 ， 以 Excel 工作 短 为 例 ， 工 作 短 默认 带 有 如 下 三 个 引用 。 

口 Visual Basic For Applications (VBA)。 

口 Microsoft Excel 14.0 Object Library (Excel) 。 

口 Microsoft Office 14.0 Object Library (Office), 


选择 “工具 ”一 “引用 ”命令 ， 可 以 在 弹出 的 对 话 框 中 看 到 以 上 三 个 默认 引用 ( 见 
图 4-17)。 


引用 -VBAProject 


可 使 用 的 引用 h 


ElVisual Basic For Appl 业 
[WMicrosoft Excel 14.0 Object Librar— 
I Nicrosoft Office 14.0 Dbject Librai 加 
[DOLE Automation 
| | VBAFroject 
[hccessibilityCplAdmin 1.0 Type Litb 
[AccountProtect 1 .0 Type Library 
[LActive DS Type Library 
| hetiwveNowvie contro]l tvpe library 
[| | hctiveX DLL to perform Mieration o: 
[| hdHocReportineExcelClientLitb 

ADIOR 
DD ADOSQLwi zard 


stamina GB | Trrme T1 hearr 
4 


Visual Basic For hpplications 


定位 : ce: \Proeram Files\Common Files\microsoft shared\yPB! 
语言 : 芮 请/ 标准 











图 4-17 Excel 工作 短 的 默认 引用 
每 一 个 外 部 引用 都 会 把 很 多 枚 举 篆 量 引 入 工程 中 ， 每 个 引用 具体 有 哪些 枚 举 背 量 ， 可 以 
在 VBA 中 通过 按 下 快捷 键 【F2 ] 打开 “对 象 浏览 器 ”窗口 来 查看 。 
在 关 别 下 拉 列 表 框 选择 VBA， 然 后 在 下 面 的 搜索 框 中 输入 Constants， 按 下 【 Enter 】 
键 ， 就 会 列 出 VBA 引用 的 成 员 ( 见 图 4-18 ) 。 


选择 KeyCodeConstants， 会 自动 列 出 其 成 员 。 例 如 ，vbKey4 对 应 的 十 进 制 数 是 52， 对 
应 的 十 六 进 制 数 是 &H34。 
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[Constants "| 由 从 


WE ColorConstants 
we Constants 
FormSshowConstants 


we SystemColorConstants 





类 "KeyCodeConstants” 的 成 员 


2 
了 ormShowCornstarts 2 YbKeyD 业 
罗 民 v 呈 宦 图 vbKeyl 加 
#4 Information vbhlevwe 
wb 及 ET 

- vbReys 
se tr 1 nes 】 vbKeyt 
we SystemColorConstant vbKeyT 
EP WApphinotyle vbKevyd 
ep Ytalendar vbleyd 
EP tLalllype vbKeyh 
ep Ybtomparellethod ] vbleyhdd 


Const vbRKey4 = S52 (&H34) 
YBA KeyCodeConstants 的 成 员 才 一 一 一 





图 4-18 ”使 用 对 和 象 浏览 絮 查 看 内 置 常量 
在 书写 代码 时 ， 最 好 是 从 引用 库 开始 书写 ， Tx Sub Test21() 


样 可 以 利用 自动 列 出 成 员 功 能 快速 输入 代码 ( 见 a YoA ke dE netadts Eker 
: Bo Sh Rp 调 i phe Kor on nt ey 
En SU whEewl 


图 4-19)。 这 
vhhew3 


下 面 的 实例 说 明 内 置 枚 举 常量 可 以 和 一 般 的 数 2 
字 进行 运算 。 
源 代码 : 实例 文档 91.xlsm/m1 





图 4-19 ”使 用 自动 列 出 成 员 功 能 


1 Sub Test2{) 

Dim a A3s Integer, b As Integer 
3 a = VBA.KeyCodeConstants.vbRKeyd4 
4. b= VBA.KeyCodeConstants.vbhKeyy 
a MsgBox a 十 上 

6 End Sub 


代码 分 析 : 内 置 枚 举 常 量 可 以 像 整 型 变量 一 样 用 在 程序 中 ,第 3 行 代码 把 vbKey4 赋 给 
a， 相 当 于 把 52 赋 给 a。b 是 53， 对 话 框 中 最 后 显示 105。 

一 般 地 ， 内 置 枚 举 和 常量 会 用 在 其 适宜 的 场合 下 ， 否 则 意义 不 大 。 

例如 ,设置 单元 格 的 填充 色 就 是 一 个 很 好 的 例子 。 

源 代码 : 实例 文档 91.xlsm/m1 


1 Sub Test3() 

pa Dim C As Long 

本 二 C= VBA.ColorConstants.vbhGreen 

4. Range ("A2:DI™") .Interior.Color = CC 


D3. End Sub 
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代码 分 析 : 由 于 颜色 销量 vbGreen 对 应 的 数值 (65280) 超过 了 32767， 所 以 需要 用 长 
整 型 变量 去 接收 ， 因 此 定义 C 为 Long。 第 4 行 代码 的 作用 是 把 单元 格 的 填充 色 变 绿 。 

为 了 书写 方便 ,很 多 情况 下 不 需要 那么 长 的 前 组 ， 因 此 上 述 功能 可 以 简写 为 
Range("A2:D5").Interior.Color =vbGreen 或 者 Range("A2:D5").Interior.Color =65280, 

但 是 在 学 习 VBA 的 时 候 ， 最 好 搞 明 日 枚 举 和 常量 的 来 源 。 例 如 ， 在 代码 中 遇 到 msoPic- 
ture 这 个 弟 量 ， 其 来 源 是 哪儿 呢 ? 

在 对 和 象 浏览 右 中 输入 这 个 单词 按 下 【 Enter 】 键 ， 即 可 看 到 这 个 枚 举 常 量 的 完全 写法 是 : 
Of6ce.MsoShapeType.msoPicture， 对 应 的 十 进 制 数 是 13 ( 见 图 4-20 ) 。 


| 戎 有 库 > 加 加 四 | 加 | 
nsoPicture "| 帖 | ~ 


图 msoFicturehutomatie 
msoPictureBlackhndthite 


MsoFictureColorType 
ep MsoFfictureCLolorlype 
NsoPictureColorlype 
ep MsoFictureEftfectType 
NsoFlcetureColorTvype 
epP NsoFlctureColorType 
Office EE NsoFlctiureColorType 


类 时 
NsoFresetTextiure 2 | 国 msoEmbedded0LEOb]ect 
EP NsoFresetThreeDF ormat 国 msoFormLontrol 
NsoReflectionType 加 msoFfreeform 

EP NsoRel ativeNodePosition msngroup 

Nsoscal eFr om 到 msoInk 

se Msoscreensire msolnkC omment 
NsoSear chIn 国 msoLime 

NsoSeamernt lype 国 msoLinked0LEDb jeet 
EP NsoSshadowStyle 国 | msoLinke dicture 

EP NsoSshadowType 


国 ] msoPicturerr ayscdle 
msoF1 cturelixed 
msoF1icturefatermark 


Ld 


msoMedi a 
mso0LEControlDb ject 


eP Nsoshapelype l 
ep MsosharedlorkspaceTaskfriority 
EP MsoSsharedlorkspacel askStatus 
NsoSienatureSubset 

epP NsoSsmarthr tHodeFosit on 

EP NsoSsmar thrtiHodeType 


Const msoF1eture = 13 
0ffice 有 soShapeType 的 成 员 





msoFlacehol der 
msoSsecripthnehor 
国 msoShapeTypeNixed 
ms03l11 eer 
= | 国 msoSmarthrt 


一 般 地 , VBA 库 的 枚 举 第 量 ， 库 名 是 VBA， 枚 举 第 量 以 vb 开头 ; Office 库 的 枚 举 篆 量 ， 


库 名 是 Office， 枚 举 和 常量 


以 mso 开头 ; Excel 库 的 枚 举 常 量 ， 库 名 是 Excel， 枚 举 和 常量 是 xl， 


例如 ，Excel.XIlIBuiltInDialog.xlDialogAddinManager 的 含义 是 Excel 的 内 置 对 话 框 中 的 加 载 宏 


管理 融 对 话 框 。 


可 以 看 出 ， 极 举 稼 量 在 书写 上 字面 意义 很 明确 ， 但 是 在 使 用 上 与 整 型 数据 没什么 差别 。 
在 平时 的 学 习 和 开发 过 程 中 ， 无 须 记 忆 枚 举 第 量 对 应 的 整 型 数值 ，T 解 即 可 。 


注意 : 如 果 在 Excel 


VBA 的 工程 中 ,添加 Microsoft Word Object Library 之 后 ， 代 码 


中 就 可 以 使 用 Word 里 的 内 置 枚 举 常量 。 
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4.5 其 他 数据 类 型 


前 面 介绍 了 VBA 的 基本 数据 类 型 、 变 量 和 对 象 变量 、 常 量 的 有 关 知 识 。 下 面 讲解 一 些 
不 太 常见 的 数据 类 型 。 


4.5.1 自 定义 类 型 


自 定 义 类 型 就 好 比 是 描述 一 个 物体 的 不 同 层面 。 例 如 ， 汽 车 这 个 物体 有 长 度 、 宽 度 、 重 
量 、 品 牌 、 手 动 撑 、 生 成 日 期 等 属性 。 不 同 汽 桔 的 这 些 属性 郡 不 相同 ， 如 采 在 VBA 程序 中 
来 处 理 与 汽车 相关 的 问题 ， 就 可 以 定义 日 定义 类 型 ， 从 而 让 程序 看 起 来 更 加 和 耳 观 明了 。 

日 定义 类 型 的 定义 部 分 必须 放 在 模块 的 项 部 。 声 明 格 式 为 : 

Public|Private Type 类 


属性 1 As 类 型 
属性 2 As 类 型 


End Type 

在 VBA 工程 的 任何 地 方 都 可 以 用 到 日 定 义 类 型 ,使 用 时 必须 声明 变量 为 这 个 类 型 。 格 
式 为 : 

Dim 变量 As 类 

下 面 这 个 实例 是 目 定 义 类 型 的 一 个 典型 应 用 范例 。 

源 代码 : 实例 文档 92.xlsm/ 自 定义 类 型 


1 Public Type Car 

之 Name As String 

3 Price As Currency 

= Length As Single 

i ShouDongDang As Boolean 

6 ProductionDate As Date 

了 End Type 

8 Sub Testl{) 

有 Dim MyCar As Car, YourCar As Car 
10. With MyCar 

Te .Name 一 " 梭 卉 纳 " 

2 :Price = 300000@ 

Lars .Length = 4.2 

14. .ShouDongDang = False 

159: .ProductionDate = #7/8/2015# 
16. End With 

1 i. With YourCar 

18. .Name = " 大 众 

19. .Price = 80000@ 

20. .Length = 4.5 

pal .ShouDongDang = True 

学 .ProductionDate = #2/18/2015# 
pa End With 

24. MsgBox " 两 辆 车 总 价值 .  & (MyCar.Price + YourCar.Price) 


25. End Sub 
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代码 分 析 : 第 1 ~ 7 行 是 日 定义 类 型 的 定义 部 分 。 

第 9 行 声 明 两 个 汽车 变量 MyCar 和 YourCar。 第 11 ~ 15 行 描述 MyCar 是 桑塔纳 ， 价 
值 30 万 元 ， 长 度 为 4.2 米 ， 不 是 手动 挡 ， 以 及 生产 日 期 。 

第 24 行 计算 两 辆 车 的 总 价值 。 

从 这 个 例子 可 以 看 出 ， 自 定义 类 型 实例 化 后 ， 变 量 都 有 了 自己 的 成 员 。 这 样 书写 代码 就 
很 容易 看 懂 ， 如 果 不 使 用 自 定 义 类 型 ， 就 很 不 方便 。 


注意 ， 本 例 用 的 是 Public 声明 的 公有 类 型 ， 在 同一 VBA 工程 的 其 他 模块 中 也 可 以 声 
明 这 个 汽车 类 型 的 变量 。 


4.5.2 ， 枚 举 类 型 


前 面 讲 过 的 诸如 vbGreen 这 些 是 内 置 极 举 币 量 ， 使 用 Enum 关键 字 还 可 以 创建 日 定义 的 
枚 举 第 量 。 
声明 日 定义 枚 举 常 量 的 方式 是 在 模块 项 部 书写 如 下 代码 : 
Public Enum 常量 名 
成 员 1 


成 员 2 

成 员 3 
End Enum 
其 中 ， 成员 1 等 价 于 整数 0， 成 员 2 等 价 于 1， 依 次 递增 1。 
在 使 用 枚 举 类 型 时 ， 不 需要 声明 ， 下 接 使 用 背 量 名 . 成 员 即 可 。 
源 代 码 : 实例 文档 92.xlsm/ 检举 类 型 








1。 Public Enum JapaneseWeekDay 
和 月 曜 日 

3 . 哎 瞻 

4 

6. 

i. 

8. 

2 

10. Sub Testl() 

Le Dim a As Long, b As Long 
2 a = JapaneseWeekDay. 金鼎 日 
13. b = JapaneseWeekDay. 土 曜 日 
1 4 . MsgBox a+Db 


153. End sub 

代码 分 析 : 第 1 ~ 9 行 是 枚 举 类 型 的 定义 部 分 ， 其 中 月 曜 日 是 0。 

第 12 行 是 一 个 赋值 语句 ， 金 上 曜 日 是 4， 土 鼎 日 是 5， 因 此 第 14 行 代码 返回 9。 
如 采 要 改变 起 始 值 ， 可 以 在 第 一 个 成 员 后 面 进行 设 定 。 例 如 ， 把 第 2 行 代码 改 为 : 
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日 =10， 再 次 运行 上 述 过 程 ， 返 回 29， 因 为 金 曜 日 和 土 曜 日 分 别 对 应 14 和 15。 
另外 , 也 可 以 把 成 员 设 置 为 不 连续 的 数字 。 
Public Enum Screen 
2. Width = 1366 


1 
3. Height = 768 
4. 


End Enum 
在 过 程 中 这 样 使 用 : 


1。 Sub Test2() 
和 MsgBox Screen.Width * Screen.Height 
3. End Sub 


结果 返回 两 个 数 的 乘积 1049088。 
在 VBA 中 声明 枚 举 类 型 后 ， 可 以 通过 对 象 浏览 器 看 到 。 在 “ 库 ” 下 拉 列 表 框 中 选中 
VBAProject 选项 ， 输 入 检索 的 单词 即 可 看 到 工程 中 定义 的 枚 举 类 型 ( 见 图 4-21 ) 。 








图 4-21 对象 浏览 埋 中 查看 枚 举 类 型 
4.5.3 集合 





VBA 有 一 种 Collection 的 对 象 类 型 ， 这 个 类 型 允许 把 其 他 的 数据 、 
为 集合 的 成 员 。Collection 用 起 来 很 像 数 组 和 字典 。 

集合 对 象 的 声明 和 创建 都 非常 简单 ， 重 点 是 成 员 的 添加 。 集 合 对 象 使 用 Add 方法 为 集 
合 添加 成 员 。 其 语法 格式 是 : 

Collection.Add Item, Key, Before 

D Item 是 要 添加 的 成 员 ， 可 以 是 任何 数据 和 对 象 ， 是 必需 参数 。 

D Key 是 唯一 标识 待 ， 可 以 忽略 。 

D Before 或 After， 用 于 改变 新 成 员 的 位 置 ， 可 以 忽略 。 

集合 的 下 标 总 是 从 1 开始 ， 也 就 是 首 个 成 员 的 索引 是 1， 不 是 0。 每 个 成 员 的 标识 符 必 
须 是 唯一 的 ， 不 能 重复 使 用 。 
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下 面 的 实例 创建 一 个 集合 对 象 ， 并 添加 3 个 成 员 。 
源 代码 : 实例 文档 92.xlsm/ 集合 


1 Sub Testl]{() 

之 Dim Col As Collection 

3 Set Col = New Collection 

4. Col.Add Item:=159, Kevy:="Kl1l"™ 

< Col.Add 工 Lem :一 ”MYGOOQ Key:="K3" 

6 Col.Add Item:=ActijveWorkbook, Key:="K2", Before:=2 
1 Debug.Print ™ 集合 中 的 成 员 总 数 为 : " & Col.Count 
8 Debug.Print Col.Itemt(l]l) 

9. Debug.Print Col.Item("K3") 

10. Debug.Print Col.Item("K2") .FullName 

ll1. End Sub 


代码 分 析 : 第 2 行 用 于 声明 Col 为 集合 ， 第 3 行 创建 新 集合 。 

第 4 行 添加 数字 到 集合 中 ， 并 指定 该 成 员 的 标识 符 为 1。 

第 6 行 把 活动 工作 短 作 为 成 员 添加 到 集合 中 ， 并 且 调 整 该 成 员 的 位 置 为 2。 

第 7 行 打印 成 员 总 数 ， 第 8 行 打印 第 1 个 成 员 ， 第 9 行 打印 标识 符 为 K3 的 成 员 , 第 10 
行 打印 活动 工作 短 的 完全 路 径 。 TCR 

上 述 过 程 的 运行 结果 如 图 4-22 所 示 。 WyGod 

从 本 例 可 以 看 出 ， 引 用 集合 中 成 员 也 有 两 种 方法 : 使 用 索引 | \ 实 全 文档 92. xlsm 
值 或 者 使 用 标识 符 名 称 。 图 4-22 ”运行 结果 11 

4.5.3.1 成 员 的 移 除 

集合 中 已 经 添加 进去 的 成 员 ， 不 可 以 修改 , 但 是 可 以 移 除 。 移 除 成 员 有 两 种 方法 : 根据 
索引 值 移 除 和 根据 标识 符 移 除 。 

源 代码 : 实例 文档 92.xlsm/ 集合 






1] Sub Test2() 

之 Dim Col As Collection 

3 Set Col = New Collection 

4. Col.Add Item:=100, Kevy:="K1"™ 
3 Col.Add Item:=10l], Key:="K2"™ 
6 Col.Add Item:=102, Key:="K3" 
1 

8 


Col.Remove 了 


Col.Remove "K3"™ 
= Debug.Print Col.Count, Col.Iteml(]) 
10. End Sub 


代码 分 析 : 第 4 ~ 6 行为 集合 添加 3 个 成 员 ， 第 7 行 移 除 第 2 个 成 员 ， 第 8 行 代码 移 除 





标识 符 为 K3 的 成 员 。 es 
第 9 行 打印 集合 中 成 员 总 数 ， 以 及 第 1 个 成 员 的 数值 。 | 


运行 结果 如 图 4-23 所 示 。 图 4-23 ”运行 结果 12 


4.5.3.2 成 员 的 遍历 
遍历 集合 中 的 成 员 有 For…To 和 For Each 两 种 方法 。 
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源 代 码 : 实例 文档 92.xlsm/ 集合 


1 Sub Test31{) 

2 Dim Col As Collection 

3 Set Col = New Collection 

4. Col .Add Item:=]00, Key:="Kl1" 
bt Col.Add Item:=101, Key:="K2" 
6 Col.Add Item:=102, Key:="K3" 
1 Dim 1 As Integer 

8 For i = To Col.Count 

9. Debug.Print Col.Itemt(1) 
10. Next 1 

11. Dim vw As Variant 

12. For Each vw In Col 

由 Debug.Print Vv 

14. Next Y 


159. End Sub 
代码 分 析 : 第 7 ~ 10 行 用 For…To 循环 结构 来 遍历 成 员 。 
第 11 ~ 14 行 用 For Each 循环 结构 来 笛 历 成 员 ， 这 种 方式 更 为 简便 。 


4.6 使 用 InputBox 输入 对 话 框 


在 编程 过 程 中 ， 不 能 把 所 有 数据 都 写 在 源 代码 中 ， 经 常会 用 到 让 用 户 输入 数据 的 交互 对 
话 框 。 在 Excel VBA 编程 中 ， 可 以 用 到 VBA 库 和 Excel 库 中 的 InputBox。 


4.6.1 VBA 库 中 的 InputBox 


VBA 库 中 的 InputBox 接收 用 户 的 输入 并 返回 一 个 字符 串 。 其 完整 语法 是 : 
VBA.Interaction.InputBox (Prompt,Title,Default, XPos, YPos, HelpFile, Context) 
各 参数 含义 如 下 。 

口 Prompt: 提示 语 。 

D Title: 对 话 框 标题 。 

口 Default: 默认 值 。 

口 XPos、YPos: 对 话 框 出 现在 屏幕 上 的 位 置 ， 单 位 是 组 (Twip)。 

下 面 的 过 程 提 示 用 户 输入 国籍 ， 然 后 把 输入 值 赋 给 变量 。 

源 文件 实例 文档 82.xlsm/ 使 用 InputBox 


1。 Sub Testl() 


a Dim Country As String 

3 Country = VBA.Interaction.InputBox (Prompt:=" 请 输入 您 的 国籍 : "，Title:="【 必 
须 输 入 】] ", Default:=" 中 国 ™, XPos:=2000, YPos:=1000) 

4. MsgBox " 您 输入 的 是 ; " & Country 


5. End Sub 


代码 分 析 : 由 于 第 3 行 代 人 码 中 指定 了 默认 值 ， 所 以 该 对 话 框 跳出 时 ， 预 完 输入 了 “中 
国 "， 用 户 可 以 根据 实际 情况 修改 输入 值 。 修 改 完 成 后 ， 单 击 对 话 框 中 的 “确定 ”按钮 ,就 





第 4 章 VBA 语法 基础 3 


会 把 修改 值 赋 给 变量 Country。 
运行 结果 如 图 4-24 所 示 。 


注意 : 如 果 用 户 输入 信息 ， 单 击 对 话 框 右上 角 的 “关闭 ”按钮 ， 或 者 单 击 “ 取 消 ” 
按钮 ， 均 不 会 把 输入 值 进行 赋值 ， 只 有 单 击 “确定 ”按钮 才 可 以 。 


在 一 些 简单 的 程序 编写 过 程 中 往往 不 需要 指定 那么 多 参数 。 


1 Sub Test2{) 

-a Dim name As String 

3 name = InputBox{" 输入 你 的 大 各:") 
+ End Sub 


代码 分 析 : 上 述 过 程 未 指定 对 话 框 标题 ， 所 以 采用 了 默认 值 Microsoft Excel。 
运行 结果 如 图 4-25 所 示 。 





图 4-24 ”运行 结果 13 图 4-25 ”运行 结果 14 


4.6.2 ”Excel 库 中 的 InputBox 


对 于 Excel VBA 编程 ， 还 可 以 使 用 Excel 库 中 的 InputBox 方法 。 该 方法 更 加 方便 易 用 。 
其 完整 语法 是 : 

Application.InputBox (Prompt, Title, Default, Left, Top, HelpFile,HelpContextID, Type) 

参数 说 明 如 下 。 

口 Prompt: 提示 语 。 

口 Title: 对 话 框 标 题 。 

DD Default. 默认 值 。 

D Left、Top: 对 话 杠 出 现在 屏幕 上 的 位 置 ， 单 位 是 磅 (Points ) 。 

D Type: 规定 输入 对 话 框 返回 的 数据 类 型 。 

返回 的 数据 类 型 Type 取 值 如 表 4-6 所 示 。 


表 4-6 Input 方法 的 Type 取 值 


Type 取 值 返回 的 类 型 
0 公式 
1 数字 


2 文本 
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Type 取 值 返回 的 类 型 
4 布尔 值 
8 Ranege 对 象 
16 错误 值 
64 数组 对 象 
下 面 利 用 Excel 库 的 InputBox 输入 一 个 字符 串 。 
1。 Sub Test3() 
ya Dim ft As String 
二 f = Application.InputBox (Prompt:=" 请 输 你 的 国籍 :"，Title:=" 输入 测试 "，Default:= 
"中 国 ",， Left:=200, Top:=150, Type:=2) 
4. Debug.Print ™ 你 的 国籍 是 : " & ff 


5D. End Sub 

代码 分 析 : 第 2 行 声 明 一 个 字符 串 变 量 ， 因 此 第 3 行 中 的 Type 规定 为 2 (文本 )。 
运行 上 述 过 程 ， 结 果 如 图 4-26 所 示 。 

下 面 的 实例 用 到 数字 类 型 和 布尔 值 。 


1 Sub Testo{() 

2 Dim Vi] As Double, Vw2 AS Boolean 

3 V1 = Application.InputBox(" 请 输入 你 的 年 龄 : "， Type:=1) 
4 V2 = Application.InputBox(" 你 是 本 市 户口 吗 ? ",， Type:=4) 
= Debug.Print vl, Te 

6 Ift wl >= 18 And v2 = True Then 

7 MsgBox " 你 可 以 报考 本 贺 校 。" 

8 Else 

9. MsgBox "条件 不 符 。" 

10. End If 
ll1. End Sub 


代码 分 析 : 本 过 程 需 要 输入 学 员 的 年 龄 和 户口 信息 ， 一 个 是 数字 类 型 ， 另 一 个 是 布尔 
值 ， 所 以 ,在 第 3 ~ 4 行 要 设置 Type 参数 为 对 应 的 类 型 。 
程序 运行 到 第 4 行 时 ， 会 弹出 对 话 框 〈( 见 图 4-27 ) 。 








| | 
虱 是 地 市 户口 吗 ? 
| | 
图 4-26 运行 结果 15 图 4-27 运行 结果 16 
当 在 对 话 框 中 输入 True 或 非 0 的 数字 时 ， 返 回 真 (True); 如 果 输 入 False 或 者 0， 返回 


假 (False )。 

下 面 的 实例 通过 对 话 框 为 单元 格 日 动 输入 公式 。 运 行 下 面 过 程 之 前 ， 请 在 单元 格 区 域 
Al:A5 预 设 一 些 数字 。 

1. Sub Test4() 


y Dim Vv As Variant 
> TY = Application.lInputBoxl(" 请 输入 一 个 公式 :"， Type:=0) 
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二。 ActiveCell.FormulaRlCcCl = Vv 
5. End Sub 


代码 分 析 : 运行 本 过 程 前 ， 和 鼠标 选中 了 单元 格 B2。 第 3 行 代码 提示 输入 一 个 公式 。 在 
其 中 输入 公式 ， 结 果 如 图 4-28 所 示 。 

单 击 “ 确 定 ”按钮 后 ， 会 看 到 B2 单元 格 输入 了 一 个 求 平均 值 的 公式 ， 结 果 如 图 4-29 
所 示 。 


BE | =AVERACE TL:L5) 


请 搞 六 一 个 全 二 : E 


=Averagslsl 治 引 





图 4-28 输入 公式 图 4-29 ”运行 结果 17 
如 果 把 InputBox 中 的 Type 设 定 为 8， 则 可 以 代替 RefEdit 控件 去 选中 一 个 单元 格 区 域 ， 
用 户 选 中 区 域 并 单 击 “确定 ”按钮 后 ， 返 回 一 个 Range 对 象 ， 需 要 用 Range 对 象 的 变量 去 接 
收 。 如 果 用 户 单 击 “取消 ”按钮 或 者 关闭 对 话 框 会 导致 出 错 ， 因 此 错误 处 理 是 必需 的 。 
源 代码 ， 实例 文档 82.xlsm/ 使 用 InputBox 


1]. Sub Test6() 

二 。 On Error GoTo Errl: 

E Dim Ig As Excel .Range 

4. Set rg = Application.InputBox(Prompt:=" 请 选中 数据 区 域 : "， Type:=8) 
Ds rg.Interior.Color = vbBlue 

6. Exit Sub 

ds Errl: 

8. MsgBox " 用户 取 消 了 操作 。" 

9. End Sub 


代码 分 析 : 如 果 用 户 正 常 操 作 ， 选 中 一 个 区 
域 并 单 击 “确定 ”按钮 ， 那么 让 选中 的 区 域 填充 

如 采用 户 卫 接 关 闭 对 话 框 ， 则 会 跳 转 到 错误 
标号 ， 弹 出 “用 户 取消 了 操作 ”。 

运行 结果 如 图 4-30 所 示 。 





4.7 使 用 MsgBox 输出 对 话 框 


输出 对 话 框 通 第 用 于 显示 计算 结果 或 信息 。 当 弹出 对 话 杠 时， 程序 处 于 阻塞 状态 ， 用 户 
必须 天 闭 对 话 框 才能 返回 继续 操作 。 

MsgBox 分 为 有 返回 值 和 无 返回 值 两 种 情形 。 当 有 返回 值 时 ， 其 语法 如 下 : 

MsGBoX (Prompt,Buttons, Title,HelpFile,Context) 

各 参数 含义 如 下 。 

口 Prompt: 提示 霹 。 
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口 Buttons: 对 话 框 的 样式 ， 枚 举 值 。 

D Title: 对 话 框 的 标题 。 

其 中 ，Buttons 参数 可 以 取 vbMsgBoxStyle 的 枚 举人 组 合 。 它 通 毅 由 3 部 分 组 成 。 

D 按钮 风格 。 例 如 ,vbYesNo 表示 显示 “是 ”“ 否 ”两 个 按钮 ,vbRetryCancel 表示 显示 “ 重 
试 ”““ 取 消 ”两 个 按钮 。 如 果 不 指定 ， 则 默认 是 vbOkOnly， 只 显示 一 个 “确定 ”按钮 。 

口 对 话 框 的 图 标 。 例 如 ，vbInformation 显示 一 个 i 样式 的 信息 图 标 ，vbCritical 显示 一 
个 又 形 的 错误 图 标 。 

口 默认 按钮 。 例 如 ， 对 话 框 显示 有 3 个 按钮 ， 那么 vbDefaultButton2 表示 对 话 框 弹 出 
后 ， 上 默认 选中 第 2 个 按钮 (最 大 可 以 是 vbDefaultButton4 ) 。 

对 话 框 关闭 后 ， 返 回 一 个 vbMsgBoxResult 结果 ,通常 用 来 标识 用 户 单 击 的 是 哪 一 个 

按钮 。 
源 代码 : 实例 文档 82.xlsm/ 使 用 MsgBox 


1。 Sub Testl() 

Dim Vw As VBA.VbPMsgBoxResult 

v = MsgBox (Prompt:=" 是 否 清除 所 选区 域 的 数据 ? "， Buttons:=VBA.VbMsgBoxStyle. 
vbhYesNo + wvbhDefaultButton2 + vbhQuestion, Title:=" 提示 对 话 框 ”|】 

Ift T = vbhYes Then 


Lu po 


= 

J Application.Selection.ClearContents 
b. ELseIL Vv = vbhNo Then 

1 Exit Sub 

8 End Iff 

9 End Sub 


代码 分 析 : 本 过 程 是 带 有 返回 值 的 对 话 框 ， 因 此 需要 事先 声明 一 个 变量 v 去 接收 对 话 框 

当 用 户 单 击 了 “是 ”按钮 ， 那 么 对 应 于 vbYes， 就 清除 所 选单 元 格 的 数据 。 当 单 击 了 
“ 否 ” 按 钮 ， 和 直接 退 出 当前 过 程 。 运 行 结 末 如 图 4-31 所 示 。 

从 图 4-31 中 可 以 看 到 有 一 个 问号 图 标 ， 它 由 vbQuestion 决定 ， 默 认 选 中 “ 否 ” 按 钮 ， 
它 由 vbDefaultButton2 决定 。 

为 了 更 好 地 理解 Buttons 参数 ， 打 开源 文件 “实例 文档 83.xlsm”， 尼 动 用户 窗 体 后 测试 
( 见 图 4-32)。 


图 杆 风 格 一 一 一 一 一 一 一 一 广 黑 让 按 神 
Tey 中 止 、 重 试 四 和 名 临 疡 惜 主 苇 1 沾 控 筷 
vbhabortRetrvylenore whoritical vbDefaul thuttonl 
广 确定 职 消 他 善 告 广 第 2 个 按 笠 
hEC emsel vbhE relamation vtDeftaul tButtonz 
r~ 确定 挛 司 息 , 全 ol | 接 包 
i vkhInformation vtDefaul tButtons 
i 重 试 、 取 背 六 回 题 r 事 4 按钮 
vbRetrmy ancel vbauest1aon i Faul tButt+ond 


亲王 
YY ESJD 


VwbYTESNOPD aeL 查 在 Jis 如 oz 对 话 框 
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单 击 “ 查 看 MsgBox 对 话 杠 ”按钮 后 ， 结 采 如 图 4-33 
所 示 。 让 reloven 

很 多 情况 下 ，MsgBox 只 用 于 给 出 一 个 计算 结果 ， 而 且 对 
话 框 中 只 有 一 个 “确定 ”按钮 ， 这 就 不 需要 理会 返回 值 , 因 | 一 和 ||| eo | 
此 可 以 简写 为 “MsgBox " 我 的 计算 结果 "” 这 样 的 形式 即 可 。 图 4-33 ”运行 结果 21 

重要 提示 : 请 不 要 在 死 循环 中 书写 MsgBox 对 话 框 的 语句 ， 否 则 无 法 终止 程序 的 运行 ， 
只 有 从 任务 管理 器 中 结束 进程 。 


4.8 ”顺序 结构 


VBA 的 基本 语法 结构 是 顺序 结构 ， 所 请 顺序 结构 就 是 过 程 中 各 条 语句 自 上 而 下 运行 。 

在 顺序 结构 中 ， 每 条 语句 不 能 不 执行 ， 也 不 能 执行 多 次 。 执 行 一 个 VBA 过程， 从 过 程 
中 第 1 条 语句 开始 ， 一 直 执行 到 End Sub 结束 。 

但 是 ， 过 程 中 如 采用 Call 语句 调用 其 他 过 程 ， 则 要 执行 完 调 用 的 过 程 ， 才 能 返回 原 过 
程 继续 回 下 执行 。 

在 书写 代码 时 ， 一 定 要 理 清 编写 代码 的 顺序 ， 有 些 时 候 几 百 行 的 过 程 中 ， 如 果 任 意 有 两 
行 代 码 弄 错 了 先后 顺序 ， 就 会 对 后 续 计 算 结 果 产 生 十 分 严重 的 影响 。 

执行 下 面 的 VBA 过 程 后 ， 在 立即 窗口 的 打印 结果 是 2。 








1 Sub Testl]{() 

2 Dim a As Integer, b As Integer 
SP 旦 
4. b 
要 十 b 

6 b -bb 

1 Debug.Print a -bb 
8 


1 
本 
| 已 
己 


End Sub 
如 果 把 第 5 行 和 第 6 行 代码 对 调 位 置 ， 打 印 结 采 则 是 1。 
顺序 结构 是 程序 设计 的 基本 结构 ， 即 使 条 件 选择 结构 、 循 环 结构 的 内 部 ， 仍 然 是 由 顺序 
结构 组 成 的 。 





4.9 条件 选择 结构 


条 件 选择 结构 是 根据 实际 情况 , 选择 合适 的 计算 方式 。 和 条 件 选择 结构 有 关联 的 是 逻辑 
运算 符 或 比较 运算 符 。 例 如 ， 根 据 天 气 预报 情况 决定 是 否 洗衣 服 。 如 采 次 日 是 晴天 则 洗衣 
服 ， 除 此 以 外 无 论 下 十 还 是 阴 天 都 不 洗 。 用 伪 代 码 表示 如 下 : 

IE 明天 Is 晴天 =True Then 

洗衣 服 

Else 


不 洗 


End If 
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在 VBA 中 ,能够 表达 条 件 选 择 结构 的 语句 有 : 下 语句 、IIf 图 数 、Select 语句 、Choose 
语句 ， 以 及 Switch 语句 。 
根据 分 支 数 ， 条 件 选 择 结构 还 可 分 为 单 分 文 结 构 、 双 分 文 结构 和 多 分 文 结构 。 


4.9.1 | 于 语句 


VBA 中 的 下 语句 有 如 下 表达 形式 。 
1. 单 分 支 结构 

If score>=60 Then Msgbox "及 格 " 
或 者 写 为 多 行 的 形式 : 


If score>=60 Then 
Msgbox " 及格" 
End If 


注意 : 如 果 写 作 多 行 形式 ， 最 后 面 的 EndIf 不 可 省 略 。 


程序 执行 到 条 件 选 择 语句 时 ， 自 先 判 断 下 后 面 的 条 件 是 否 成 立 ， 只 有 条 件 成 立 才 去 执 
行 后 面 的 语句 块 。 


2. 双 分 支 结 构 
If score >= 60 Then MsgBox ™ 及 格 " Else MsgBox ™ 不 及 格 mi 
或 者 写 为 多 行 的 形式 


Ift score >= 60 Then 
MsgBox " 及格" 
Else 
MsgBox " 不 及 格 
End If 


可 以 看 出 ， 只 要 是 多 行 形式 ， 后 面 一 定 要 写 上 End If 作 为 条 件 选择 结构 的 结束 标志 。 
在 双 分 文 结 构 中 ， 也 只 有 一 个 条 件 ， 当 该 条 件 成 立时 ， 执 行 下 中 的 语句 块 ; 否则 执行 


3， 多 分 文 结构 
在 实际 编程 过 程 中 ， 遇 到 的 分 文 往往 在 3 个 以 上 ,例如 下 面 的 过 程 ， 根 据 输入 的 国家 名 
称 给 出 和 都。 


1 sub Test2{() 

六 Dim 国名 As String, 首都 As String 

国名 = InputBox ("输入 国名 名 称 "，"VBA 对 话 框 "，" 中 国 ") 
4. If 国名 = "中 国 " Then 

5 首都 = "北京 " 
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6. ElseIf 国名 = "美国 " Then 
首都 = "华盛顿 " 

9 ElseIf 国名 = 俄罗斯 " Then 
9 首都 = " 莫斯科 " 


10. ElseIf 国名 = " 法国" Then 
i 让 考 二 宇 芭 当 " 

1 ElseIf 国名 = "英国 " Then 
13. 首都 = “" 伦敦" 

14. ElseIf 国名 = "日 本 " Then 
15. 首都 = " 东京 " 

16. Else 

LT 首都 = "不 明 " 

18. End If 

1 MsgBox 国名 & ":" & 首都 


20. End Sub 


代码 分 析 : 第 3 行 代码 提供 一 个 输入 对 话 框 ， 如 果 用 户 在 对 话 框 中 输入 “法 国 ”"， 那么 
只 有 第 10 行 的 Else If 语 句 的 条 件 成 立 ， 自 都 就 赋值 为 “巴黎 ”然后 耳 接 跳 到 End If 之 后 ， 
运行 到 第 19 行 ， 运 行 结果 如 图 4-34 所 示 。 ot por EE 

可 以 看 出 ， 多 分 支 下 结构 中 ， 只 要 遇 到 一 个 条 件 成 立 ， 就 不 会 
去 判断 后 续 的 春 干 条 件 。 如 果 所 有 条 件 不 成 立 ， 则 会 执行 Else 语句 
中 的 语句 块 。 = ‘ 

此 外 ， 如 果 进 行 一 些 人 简单 的 判断 ， 还 可 以 使 用 IIf 图 数 来 实现 双 图 4-34 运行 结果 22 
分 文 条 件 选择 。 

IIf 曙 数 的 语法 如 下 : 

IIf (条件, 结果 1， 结果 2) 

当 条 件 成 立时 ， 返回 结果 为 1， 否 则 返回 结果 为 2。 

下 面 的 过 程 ， 根 据 变量 i 的 值 ， 返 回 结果 。 





1 sub Test3() 

之 Dim 3 As String, 1 As Integer 

: i = 37 

4 s = IIf(i Mod 2 = 0," 侦 数 "， "至 数 ") 
3 MsgBox 3 

6 End Sub 


代码 分 析 : 第 4 行 代码 ， 由 于 37 对 2 求 余 的 结果 是 1， 不 是 0， 所 以 整个 IT 函数 返回 
“奇数 "， 并 赋 给 变量 s。 
4.9.2 Select 语句 


对 于 多 分 文 结构 ， 还 可 以 使 用 Select Case 结构 。 其 语法 形式 为 : 


Select Case 表达 式 
Case 结果 1: 语句 块 1 
Case 结果 2: 语句 抉 2 
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Case Else: 语句 块 n 
End Select 


根据 表达 式 去 匹配 Case 后 面 的 结 有 末 ， 匹 配 后 ， 就 执行 后 面相 应 的 语句 块 。 如 采 与 任何 


一 个 都 不 匹配 ， 就 执行 Case Else 之 后 的 语句 块 。 
下 面 的 过 程 根据 国名 判断 首都 。 


1 Sub Test4{) 

2 Dim 国名 As String， 首 都 As String 
3 国名 = InputBox ("输入 国家 名 称 "，"VBA 对 话 框 "，" 中 国 ") 
4 。 Select Case 国名 

-Ee case "中 国 " 

6 痛 都 = "北京 " 

1 Case " 美国 

8 首都 = " 华盛顿" 

9 . Case " 俄罗斯 

10. 首都 = "莫斯科 

11. Case "法 国 " 

12. 首都 = "巴黎 " 

13. Case "英国 " 

14. 首都 = “" 伦 就 " 

15. Case "日 本 " 

16. 首都 = "东京 " 

1 7 - Case Else 

La 首都 = "不 明 " 

19. End Select 


20. MsgBox 国名 & ":" & 首都 
21. End Sub 


代码 分 析 : 代码 执行 到 第 3 行 时 ， 弹 出 输入 对 话 框 ， 此 时 如 果 输 入 “英国 "， 则 变量 
名 就 是 “英国 ”， 能 够 恰好 匹配 到 第 13 行 的 分 文 ， 所 以 把 “ 伦 致 ”赋值 给 首都 。 然 后 直接 跳 
转 到 End Select 之 后 ， 弹 出 结果 对 话 框 。 

上 面 的 用 法 要 求 表 达 式 和 Case 后 面 的 结 采 是 完全 一 致 才 能 匹配 成 功 ， 其 实 还 可 以 有 以 
下 几 种 匹配 方式 。 

1. 多 结果 写 在 一 行 

下 面 的 实例 ， 根 据 输入 的 国家 名 称 确定 该 国 在 哪 一 个 洲 。 

源 代 码 : 实例 文档 80.xlsm/ 条 件 选择 结构 


1 
2 
3 
4 
Se 
6 
1 
8 
9 


10. 


Sub Testo{() 


Dim Result As String 

Dim Country As String 

Country = InputBox ("输入 国家 名 称 ") 

Select Case Country 

case " 中国",， "韩国 "，" 马来西亚 ": Result = "亚洲 
case "法 国 "，" 西班牙 ": Result = ”欧洲 

Case Else: Result = "未 知 " 

End Select 

MsgBox Country & " 在 " & Result 


ll1. End Sub 
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代码 分 析 : 第 4 行 代 人 码 让 用 户 输入 一 个 国家 名 称 ， 例 如 输入 “ 西 Microsoft Exce 
班 牙 "， 那么 在 第 7 行 的 分 文中 匹配 到 “西班牙 ”， 使 得 Result 赋值 
为 “欧洲 ”"， 运 行 结 采 如 图 4-35 所 示 。 

如 果 写 成 每 一 个 Case 后 只 有 一 个 国家 名 ， 则 代码 显得 元 长 、 
效率 低 。 


2. 使 用 数据 范围 
Case 后 面 还 可 以 用 To 关键 字 来 表达 一 个 数据 范围 。 





1 Sub Test6() 

之 Dim Score As Integer 

3 Dim Result As String 

4 Score = InputBox(" 输入 分 数 ") 

Se Select Case Score 

避 Case 80 To 100: Result = " 优秀 
1 Case 70 To 79: Result = "上 良好" 
8 Case 6U To 69: Result = "中 等 " 
9. Case Else: Result = " 差 " 

10. End Select 

村 MsgBox Result 

12. End Sub 


代码 分 析 : 如 果 用 户 输入 的 Score 为 70 ~ 79 分 ， 则 第 7 行 的 条 件 成 立 ， 返 回 “ 良 好 ”。 


3， 使 用 Is 运算 符 
下 面 的 实例 根据 分 数 给 出 等 


1] Sub Test/() 

之 Dim Score As Integer 

有 Dim Result As String 

4 Score = InputBox(" 输入 分 数 ") 

二 Select Case Score 

6 Case Is >= 80: Result = 了 优秀 时 
了 Case 1s >= 60: Result = "™ 及 格 到 
8 Case Is < 60: Result = "不 及 格 " 
s End Select 

10. MsgBox Result 

]l1. End Sub 


当 用 户 输入 分 数 为 87 时 ， 第 6 行 代 人 码 的 条 件 成 立 ， 人 返回 “优秀 ”。 


4. 使 用 Like 运算 符 
字符 串 中 的 Like 可 以 用 于 模糊 匹配 ， 根 据 这 个 特点 也 可 以 用 于 Select 语句 中 ,但 是 要 
求 like 之 前 行 的 代码 必须 是 Select Case True-。 


Sub Test8() 
Dim 3 As String 


3s = InputBox(" 输入 姓名 的 全 拼 ") 


二 

2 

要 Dim Result As String 
4 

2 Select Case True 

6 


Case 3 Like "Wang*": Result = "W" 
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省志 Case 3 Like "Liu*": Result = “ 工 ” 
8. Case 3 Like "Meng*": Result = "M" 
- End Select 

10. MsgBox Result 


11. End Sub 


代码 分 析 : 如 采 第 4 行 代 人 码 中 输入 Liuyongfu， 那 么 第 7 行 的 条 件 会 成 立 ，Result 赋值 


为 i 本 , 


事实 上 ， 对 于 这 样 的 用 法 ，Case 后 面 可 以 是 任意 的 条 件 表 达 式 ， 不 只 


下 面 的 过 程 用 于 判断 数字 的 正 负 情 况 。 


1。 Sub Test9() 

人 Dim ss As Integer 

Dim Result As String 

4. s = InputBox(" 输入 一 个 整数 ") 
hs Select Case True 

6. Case s > 0: Result = " 正 数 " 
1. Case 3 = 0: Result = "等 " 
8 。 Case Else: Result = " 仙 数 " 
- End Select 

10. MsgBox Result 

ll1. End Sub 


代码 分 析 : 运行 到 第 4 行 代码 ， 提 示 输 入 数字 ， 例 如 输入 一 个 负数 ， 


4.9.3 ”Choose 语句 





Choose 语句 写 If 盟 数 非 芝 类似， 不 同 的 是 ，Choose 语句 到 
而 不 是 条 件 。 


1 Sub Test10() 

2 Dim wv As Variant 

sR Dim result As String 

4. 二 2 

5 result = Choose(v，" 张 三 ",，" 李 四 "，" 王 五 "，" 赵 六 ") 
6 MsgBox result 

1 End Sub 


代码 分 析 : 第 5 行 代 人 码 是 在 4 个 姓名 中 选 出 一 个 ， 由 于 v 的 值 是 2， 


并 赋 给 变量 result。 


限于 Like。 


那么 第 8 行 的 条 件 


求 提供 一 个 序号 作为 参数 ， 


所 以 选 出 “本 四 | 


也 就 是 说 ， 序 号 至 少 是 1]。 如 果 提 供 的 序号 是 一 个 浮 点 数 ， 按 照 取 整 来 处 理 。 例 如 ， 
Choose(3.75," 张 三 "," 李 四 "," 王 五 "," 赵 六 ") 会 返回 “ 王 五 *"，3.75 按 3 处 理 。 


4.9.4 ”Switch 语句 


Switch 语句 也 是 一 个 典型 的 多 条 件 结构 ， 与 Select 不 同 的 是 ， 该 语句 必须 返回 值 。 其 语 


法 形式 为 : 
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Switch (条件 1, 结果 1, 条 件 2， 结果 2…) 
该 语句 从 左 到 右 依 次 检测 条 件 是 否 成 立 ， 一 旦 成 立 就 返回 对 应 的 结果 。 


1] Sub Testl1l() 

i Dim score As Integer, result As String 

3 score = InputBox ("输入 分 数 ") 

4 result = Switch (score < 60, ™ 不 及 格 "， SCcore >= DUO And score < 80, ™ 中 等 
score >= 80，" 优秀") 

D. MsgBox result 

6. End Sub 


代码 分 析 : 如 末 输 入 的 分 数 是 75 分 ， 那么 第 2 个 条 件 会 成 立 ， 把 “中 等 ” 赋 给 result。 


4.10 ”循环 结构 


循环 结构 就 是 多 次 重复 执行 语句 块 。 

循环 结构 的 目的 如 下 : 一 是 为 了 对 批量 的 对 象 执行 相同 或 类 似 的 操作 、 节 省 代码 行 数 ， 
例如 要 输出 1 ~ 20 的 每 个 数 的 平方 数 。 二 是 让 一 部 分 代码 不 断 运 行 ， 使 得 一 些 变量 的 值 不 
呆 地 得 以 更 新 ， 最 后 根据 设 定 精度 而 跳出 循环 ， 例 如 二 分 法 求 非 线性 方程 的 根 。 

从 循环 次 数 上 分 ,循环 结构 可 分 为 指定 次 数 和 不 指定 次 数 循环 。 上 面 求 1 ~ 20 的 平方 
数 的 问题 中 ， 御 环 次 数 就 是 20 次 ， 而 二 分 法 的 循环 则 需要 使 用 其 他 语句 来 强行 跳出 。 

在 实际 编程 过 程 中 ， 同 一 个 问题 往往 可 以 用 多 种 不 同 的 循环 方式 达到 目的 。 

VBA 中 的 循环 体 主要 有 While 类 、Do 类 和 For 类， 


4.10.1 While…Wend 语句 


While 循环 是 一 种 不 指定 次 数 的 循环 ， 该 循环 体 从 While 开始 一 直到 Wend 结束 ， 只 要 
While 后 面 的 条 件 成 立 ， 就 一 耳 执 行 中 间 的 语句 块 。 

下 面 的 过 程 打印 0 ~ 10， 以 及 这 些 数字 的 平方 数 。 

源 代 码 : 实例 文档 80.xlsm/ 循环 结构 


1 Sub Testl() 

2 Dim 1 As Integer 

3 While i <= 10 

4. Debug.Print i1, 1 * 1 
~“) i = 二 二 二 1 

6 Wend 
| End Sub 


代码 分 析 : 注意 第 2 行 代码 把 i 声明 为 整 型 变量 ， 因 此 上 默认 初始 化 为 0; 第 3 行 代码 中 
循环 条 件 为 不 大 于 10， 所 以 条 件 成 立 ， 打 印 数 字 ， 然 后 循环 变量 i 自 加 。 

代码 的 运行 结果 是 打印 0 ~ 10 这 几 个 数 的 平方 。 

如 果 把 第 4、5 行 代码 对 调 位 置 ， 将 打印 1 ~ 10 这 几 个 数 的 平方 。 由 此 可 见 ， 循 环 体内 
的 语句 块 仍然 是 顺序 结构 ， 先 后 出 现 顺序 有 重要 影响 。 
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第 5 行 循 环 变 量 的 日 加 也 很 重要 ， 如 来 没有 这 句 ， 将 会 造成 死 循环 ， 因 为 While 后 面 的 
条 件 永远 成 立 。 
4.10.2 ”Do…Loop 语句 

与 While 循环 类 似 ，Do 循环 也 是 不 指定 循环 次 数 ， 可 以 分 为 如 下 5 种 表达 形式 。 

第 1 种 : 不 指定 条 件 。 

Do 

语句 块 
Loop 
第 2 种 : 指定 循环 成 立 的 条 件 。 


Do While 条 件 


语句 块 
Loop 
第 3 种 : 无 条 件 执行 一 次 ， 然 后 判断 循环 成 立 的 条 件 。 
Do 

语句 块 


Loop While 条 件 
第 4 种 : 指定 循环 终止 的 条 件 。 


Do Until 条 件 


语句 块 
Loop 
第 5 种 : 先 循环 一 次 ,然后 判断 循环 终止 的 条 件 。 
Do 

语句 块 


Loop Until 条 件 

如 采 采 用 第 1 种 循环 方式 ， 由 于 在 开 尖 和 结尾 均 未 指定 条 件 ， 因 此 必须 在 循环 体内 语句 
块 中 有 Exit Do 跳出 循环 体 。 

下 面 的 实例 用 于 打印 1 ~ 10 这 几 个 数 的 平方 。 


1 Sub Test2() 

之 Dim 1 As Integer 

3 Do 

4. II 一 工 十 工 

5 If i > 10 Then 

6 Exit Do 

1 Else 

3 Debug.Print i, i ”2 
3 End If 

10. Loop 


11. End Sub 


代码 分 析 : 循环 体内 ，i 先 上 月 加 1， 当 i 超 过 10 就 跳出 Do 循环 ,也 就 是 跳 到 Loop 语句 
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以 后 。 如 末 i 小 于 等 于 10， 则 打印 平方 数 。 运 行 结 采 如 图 4-36 所 示 。 

以 上 实例 采用 的 是 第 1 种 方式 ， 也 就 是 循环 终止 的 条 件 放 在 循环 
体内 。 

下 面 采 用 循环 前 指定 判断 条 件 的 方式 。 这 种 方式 需要 在 Do 
While 人 在 循环 体内 就 不 需要 Exit Do， 但 是 
循环 变量 的 目 加 操作 还 是 要 进行 的 。 

1 Sub Test31{) 

Wa Dim 1 As Integer 

了 Do While 1 <= 10 

4. ii=I+1l 

Debug.Print 1I，1 工 ”了 

6 
1 


Loop 
End sub 


| 
号 
3 
4 
9 
6 
他 
8 
9 
] 





图 4-36 运行 结果 24 


代码 分 析 : 运行 该 过 程 的 打印 结果 为 1 ~ 11 这 几 个 数 的 平方 ， 多 循环 了 一 次 ， 和 要 求 





不 符 。 怎 么 才能 改 成 1 ~ 10 的 平方 呢 ? 请 读者 思考 解决 。 


下 面 再 用 循环 终止 的 条 件 实现 循环 。 因 为 是 要 循环 10 以 内 的 数字 ， 所 以 终止 的 条 件 是 


i>=10。 该 条 件 要 加 在 Until 关键 字 之 后 。 
代码 如 下 : 


1 Sub Test4{() 

之 Dim 1 As Integer 

3 Do 

4. i = 二 i ++ 1 

- Debug.Print i, i 2 
6 Loop Until 1 >= 10 

1 End Sub 


打印 结果 恰好 为 1 ~ 10 这 几 个 数 的 平方 。 


不 省 用 哪 一 种 循环 ， 要 灵活 使 用 循环 变量 ， 比 较 典 型 的 应 用 是 改变 循环 的 方 回 和 步 长 。 


例如 ,计算 100 以 内 所 有 奇数 之 和 (99+97+95+……+3+1)， 代 码 如 下 : 
1 Sub Testo5 (| 

2 Dim 1 As Integer 

. Dim 3 As Integer 

4. 3= 0 

5 i = 99 

6 Do While i >= 1 

1 Ss= S55+1 

8. Debug.Print s, 1 

= i 二 1 一 2 


10. Loop 
11-。 End Sub 


代码 分 析 : 由 于 要 求 是 从 大 到 小 倒序 循环 ， 所 以 i 初始 值 是 99， 
循环 成 立 的 条 件 是 循环 变量 大 于 等 于 1。 
最 后 一 次 循环 的 打印 结果 是 2500 1。 


循环 体内 每 次 目 减 2， 
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4.10.3 Fer 合生 | 


For 语句 是 典型 的 指定 循环 次 数 的 语法 结构 。 其 语法 格式 是 : 


For 循环 变量 = 初始 值 To 终止 值 Step 步 长 值 
语句 块 
Next 循环 变量 


For 循环 语句 中 ,循环 变量 是 循环 的 核心 ，For 循环 的 过 程 其 实 就 是 循环 变量 逐渐 变化 


的 过 程 。 


例如 ，For i=10 To 1 Step-2， 其 含义 就 是 变量 1 从 10 变化 到 1， 每 次 减少 2。 把 变量 i 
的 取 值 一 一 列举 就 是 10,8,6,4,2。 注 意 ， 最 后 一 个 取 值 不 得 超过 终止 值 。 

下 面 举 一 个 例子 用 于 打印 一 个 下 三 角 图 形 。VBA 中 的 String 哺 数 可 以 返回 指定 个 数 的 
字符 ， 例 如 String(3,"@") 可 以 返回 @@@， 利 用 这 个 特点 构造 如 下 循环 : 


源 代码 : 实例 文档 80.xlsm/ 循环 结构 


1 Sub Test6() 

之 Dim 1 A3 Integer 

2 For 1 = 1 To 6 Step 1 

4 Debug.Print VBA.String (i, ™"*"™) 
本 Next 1 

6 End Sub 


运行 上 述 过 程 ， 在 立即 窗口 的 结果 如 图 4-37 所 示 。 


For 循环 语句 必须 提供 循环 变量 的 初始 伸 和 终止 值 ， 步 长 值 可 以 


炒米 


是 正 数 、 负 数 ， 如 果 不 指 定 ， 则 默认 为 1。 另 外，For 循环 体 最 后 一 六 六 站 


名 的 Nexti 可 以 和 催 写 为 Next。 
因此 ， 上 述 过 程 还 可 以 改写 为 : 


] Sub Teste () 

a Dim 1 As Integer 

3 For 1 = 1 To 6: Debug.Print VBA.String (i, ™*™): 
4 End Sub 


米 米 六 六 
米 米 米 米 米 
米 米 米 米 六 六 





图 4-37 运行 结果 25 


Ne 六 wt 


上 述 过 程 使 用 冒号 把 多 行 代码 变 为 一 行 ，For 循环 中 步 长 采用 默认 值 1， 所 以 无 须 写 


Step 1， 最 后 Nexti 中 的 1 可 以 省 略 。 


For 循环 语句 中 的 循环 变量 一 般 是 整 型 ， 但 也 可 以 用 浮 点 型 、 日 期 时 间 型 。 
例如 ， 计 算 等 差 数 列 -3.8，-1.8，0.2，2.2，4.2，6.2 的 总 和 ， 代 码 如 下 : 


1] Sub Testy 1() 

2 Dim d As Double, 3 As Double 
3 3 = 0 

4. For d = -3.8 To 6.2 Step 2# 
a SsS= 35+d 

6 Next d 

了 MsgBox "总 和 是 : " & 53s 

8 End Sub 
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代码 分 析 : 该 等 差 数 列 第 一 项 是 -3.8， 终 止 于 6.2， 步 长 值 是 2。 据 此 可 以 写 出 上 述 过 


程 的 第 4 行 。 


运行 上 述 过 程 ， 总 和 返回 7.2。 
下 面 的 实例 在 立即 窗口 中 打印 从 2 月 20 日 到 3 月 1 日 之 间 的 所 有 日 期 。 


1. 
之 - 
3. 
4. 
a 
0. 


运行 结 来 如 图 4-38 所 示 。 


Sub Test8{() 
Dim dt As Date 
For dt = #2/20/2017# To #3/1/2017# 


Debug.Print Format (dt, "yyyy 年 mm 月 dq 日 ") 


Next dt 
End Sub 


需要 特别 注意 的 是 ，For 循环 执行 完毕 后 ， 循 环 变量 的 值 往往 会 超过 终止 值 ， 也 就 是 说 ， 
循环 变量 目 加 或 目 减 的 次 数 总 是 超出 一 次 。 


下 面 的 实例 用 于 输出 3-、3 、 


Sub Test9({() 
Dim 1 As Integer 
For 1 = 1 To 10 step 2 


3”、3"、3” 这 个 等 比 数列 。 


Debug.Print 3 个 1 


Next 1 
Debug .Print "循环 变量 最 后 是 : " & i 
End Sub 


运行 上 述 过 程 ， 立 即 窗口 显示 如 图 4-39 所 示 。 


图 4-38 


2017 年 02 月 20 日 
3017 年 02 月 21 日 
2017 年 02 月 22 日 
3017 年 02 月 23 日 
2017 年 02 月 24 日 


2017 年 02 月 25 日 
2017 年 02 月 26 日 
3017 年 02 月 27 日 
2017 年 02 月 28 日 
3017 年 03 月 01 日 





运行 结果 26 


3 
si 
243 


2181 


19683_ 
循环 变量 最 后 是 : 11 





图 4-39 ”运行 结果 27 


注意 ， 循 环 变量 i 最 后 是 11， 不 是 9。 
在 Excel VBA 中 , For 循环 经 名 用 于 集合 、 数 组 的 遍历 ， 以 及 单元 格 的 行 同 、 列 回 毅 历 。 


4.10.4 For Each 语句 


如 果 要 在 一 个 固定 个 数 的 集合 、 数 组 中 遍历 ， 除 了 使 用 For 语句 ， 还 可 以 使 用 For Each 


语句 循环 总 


下 面 的 实例 用 于 裔 历 字 符 串 数组 中 的 元 系 的 过 引 和 元 系 的 值 。 


1. Sub Test10{() 


pa 
Ms 


Dim arr(l2 To 2) As String 


arr{(2) = "excel™ 
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4 arr(4) = "word™ 
arTr (5D) = "ppt™" 
06. Dim 1 As Integer 
1. For 1 = 2 To 5 
8 Debug.Print 1i, arrl(i) 
9 Next 1 
10. End Sub 


代码 分 析 : 上 述 过 程 中 ， 未 给 arr(3) 赋值 ， 因 此 默认 为 空 字 符 串 。 
运行 上 述 过 程 的 结果 如 图 4-40 所 示 。 
如 采 使 用 For Each 语句 ， 则 不 需要 使 用 循环 变量 ， nid 即 可 。 其 语法 格 
式 如 下 : 
For Each 元 素 In 集合 


(与 元 素 有 关 的 ) 语句 志 
Next 元 素 


于 是 ,把 上 述 Test10 过 程 改写 为 如 下 : 





图 4-40 ”运行 结果 28 


1 Sub Testl]l1() 

pe Dim arr(2 To 2) As String 
3 arr(2) = "excel™ 

4 


4 。 arrl(4) "word™ 


arr (so) “ppt" 


Dim 3s As Variant 


Debug.Print 5s 
Next 3 


5 

6 

1. For Each s In arr 
8 

=- 

10. End sub 


代码 分 析 : 第 7 ~ 9 行 用 于 遍历 数组 中 有 所 有 的 元 村 。 

el 绍 dm 条 件 选 择 结构 和 循环 结构 ， 在 实际 编程 过 程 中 ,还 存在 结构 与 结 
OD 循环 中 包含 循环 (多 重 循 环 )。 

口 循环 中 包含 条 件 选 择 (挑选 具有 某 些 特征 的 元 素 )。 

D 条 件 选择 中 包含 循环 。 


4.11 流程 跳 转 控制 语句 


在 实际 编程 应 用 中 ， 代码 执行 时 经 第 遇 到 循环 还 未 完全 执行 完毕 或 者 过 程 、 图 数 未 执行 
完毕 ， 然 后 跳 转 到 其 他 地 方 ， 机 到 流程 跳 转 控制 语句 。 
VBA 中 的 流程 跳 转 控制 语句 有 GoTo、GoSub:…Return、Exit ( Exit Sub 、Exit Function 、 
Exit Do、Exit For) 和 End 语句。 


4.11.1 ”GoTo 语句 
GoTo 语句 可 以 跳 转 到 菏 行 ， 但 跳 转 的 这 行 必须 是 在 同一 过 程 或 限 数 中 。 如 末 要 跳 转 到 


其 他 过 程 ， 需 要 用 到 Call。 
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为 了 说 明 GoTo 的 作用 ,请 在 VBA 中 按 快捷 键 【 F8 】 单 步 执行 下 面 的 过 程 ， 观 察 运行 


次 序 。 


源 代码 : 实例 文档 80.xlsm/ 流程 跳 转 控制 语句 


代码 分 析 : 第 5 行 ，GoTo L200 意思 是 跳 转 到 过 程 中 L200: 这 个 


1 
之 
本 
4 . 
hs 
6 
1 
8 
9 


Sub Testl]{() 
Debug .Print 
Debug .Print 
Debug .Print 
GoTo L200 
Debug. Print 

L200: 

Debug .Print 

End Sub 


"Monday™" 
"Tuesday™ 
"Wednesday”" 


“Thursday™ 


"Friday”™ 





标号 位 置 继续 回 下 执行 ， 直 接 打 印 Friday， 然 后 整个 过 程 结束 。 Le 
因此 运行 上 述 过 程 后 ， 立 即 窗 口 显 示 如 图 4-41 所 示 。 Friday 


打印 结果 中 没有 Thursday， 因 为 第 6 行 代码 被 跳 过 了。 图 4-41 运行 结果 29 


4.11.2 GoSub…Return 语句 


与 GoTo 语句 具有 非常 类 似 的 是 GoSub 语句 ， 该 语句 跳 转 到 标号 ， 执 行 到 Return 语句 
时 ， 可 以 返回 到 GoSub 的 地 方 继续 执行 。 
源 代 码 : 实例 文档 80.xlsm/ 流程 跳 转 控制 语句 





1 Sub Test2 () 
2 Debug.Print "Monday™" 
3 Debug.Print "Tuesaay"” 
由 Debug.Print "Wednesday" 
he GoSub L200 
6 Debug.Print “Thursday™ 
1 Exit Sub 
8 L200: 
9 。 Debug.Print “Friday™ 
10. Return 
11. End Sub 
代码 分 析 : 上 述 代码 执行 到 第 5 行 时 ， 跳 转 到 第 9 行 打印 ce 
Friday， 然 后 返回 到 第 $ 行 下 面 ， 打 印 Thursday， 然 后 运行 第 7 行 退 py 
由 过 程 | Thursday 
运行 结果 如 图 4-42 所 示 。 图 4-42 ”运行 结果 30 
注意 : 如 果 不 写 第 7 行 的 Exit Sub， 上 述 过 程 导致 出 错 ， 因 为 Return 语句 导致 过 程 


往 前 面 跳 转 ， 会 重复 多 次 运行 L200 标号 中 的 内 容 。 


从 以 上 运行 结果 可 以 看 出 GoSub 和 Goto 语句 的 区 别 。 
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4.11.3 “Exit 语句 


在 循环 结构 中 ， 使 用 Exit Do 可 以 提前 跳出 Do 类 循环 的 外 部 ， 但 不 跳出 过 程 ， 还 要 继 





续 执 行 循 环 体 外 后 续 的 语句 。 同 理 ， 使 用 Exit For 可 以 跳出 For 类 循环。 如 果 是 While 循 


， 无 对 应 的 跳出 语句 。 
Exit Sub 可 以 直接 跳出 过 程 ，Exit Function 跳出 轴 数 。 
源 代 码 : 实例 文档 80.xlsm/ 流程 跳 转 控制 语句 


1 Sub Test31() 

2 Dim 1 As Integer 

3 For i = 1 To 10 step 1 
4. It 1 > 2 Then 

3 Exit For 

6 Else 

1 Debug.Print 1 
有 全 End If 

+ Next 1 

10. Debug.Print "Monday” 
11. Debug.Print "Tuesday”" 
12. Exit Sub 

13。 Debug.Print "Weanesaay” 


14. End Sub 


代码 分 析 : 上 述 过 程 包含 一 个 循环 体 ， 以 及 打印 三 个 单词 。 循 环 体 内 包含 一 个 条 件 选 择 


结构 ， 当 i 循环 到 6 时， 就 直接 跳出 循环 ,继续 运 行 第 9 行 以 后 的 代码 。 


出 过 程 ， 因 此 不 执行 第 13 行 ， 直 接 跳出 过 程 。 

运行 结果 如 图 4-43 所 示 。 

如 果 是 在 重 循环 结构 中 用 到 了 Exit 语句 ， 那 么 只 跳出 直接 包含 
该 Exit 语句 的 循环 ， 而 不 是 所 有 循环 。 

其 实 Exit 语句 和 GoTo 语句 非常 类 似 ， 过 Exit 语句 跳出 的 
位 置 是 固定 的 ， 而 GoTo 语句 vie 


4.11.4 ”End 语句 


End 语句 会 终止 程序 的 执行 ， 并 且 清 除 所 有 变量 的 值 。 
源 代 码 : 实例 文档 80.xlsm/End 语句 


1 Public a As Integer, b As Integer 
2 Sub Testl 1() 

3 忌 一 23 

4. b = 21 

| End 

6 忌 三 忌 十 上 b 

1 End Sub 


由 于 第 12 行 是 跳 








图 4-43 ”运行 结果 31 


代码 分 析 : 上 述 过 程 中 变量 a、b 是 模块 级 变量 ， 运 行 Testl 后 ， 在 立即 窗口 中 输入 


“93a”， 发 现 a 的 值 被 重 置 为 0。 
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如 果 删 除 上 述 过 程 第 $ 行 中 的 End， 再 执行 一 次 ，a 的 值 将 会 是 44。 

End 语句 不 调用 Unload 、QueryUnload 或 Terminate 事件 ， 只 是 生硬 地 终止 代码 执行 ， 
窗 体 和 类 模块 中 的 Unload、QueryUnload 和 Terminate 事件 代码 未 被 执行 。 

在 实际 编程 应 用 中 ， 很 少 用 到 End 语句 。 


4.12 ”数组 


一 个 变量 只 能 存储 一 个 数据 ， 使 用 数组 可 以 只 用 一 个 变量 名 称 同 时 存储 多 个 数据 。 例 
如 ， 存 储 一 个 班 学 生 的 姓名 ， 使 用 变量 Studentl1 、Student2 、……… ， 有 多 少 学 生 就 需要 声明 
多 少 个 变量 。 而 使 用 数组 就 可 以 用 Students(40) 表示 40 个 学 生 的 姓名 集合 。 

从 概念 上 讲 ， 一 个 数组 包含 数组 名 称 (变量 名 )、 数 组 的 上 下 界 〈 数 组 的 索引 范围 )、 元 
素 类 型 三 个 范畴 。 

从 操作 步 台 上 讲 ， 一 个 数组 包括 数组 的 声明 、 数 组 的 赋值 和 数组 的 使 用 三 个 部 分 。 

从 维 数 上 讲 ， 数 组 分 为 一 维 数组 和 多 维 数组 。 


4.12.1 一 维 数组 


一 维 数组 可 以 看 作 一 些 整齐 排列 的 信封 或 抽 层 ， 每 个 抽 屠 都 有 唯一 编号 ， 每 个 抽 屠 里 可 
以 放 相 同类 型 的 东西 ， 也 可 以 放 不 同类 型 的 物品 。 

例如 ， 在 图 4-44 中 ，5 个 学 生 的 姓名 就 构成 了 
一 个 字符 串 数 组 Students ， 数 组 中 可 以 存储 5 个 学 
生 的 姓名 信息。 

在 使 用 数组 时 ， 只 需要 用 Students(2) 就 可 以 获 
得 到 HanMeimei。 该 数组 的 下 界 是 1， 上 界 是 5， 数 组 中 元 素 的 个 数 是 5。 

数组 的 声明 ， 需 要 指定 数组 名 称 、 数 组 的 上 下 界 、 数 组 的 类 型 (元素 的 类 型 )。 

数组 的 类 型 和 变量 的 类 型 基本 一 样 ， 实 际 上 为 数组 指定 类 型 就 是 为 了 限定 数组 中 元 系 的 
类 型 。 如 有 果 不 指定 数组 的 类 型 ， 则 默认 为 变 体型 (Variant)， 数 组 元 素 可 以 是 任意 数据 类 型 。 


4.12.1.1 数组 的 声明 

声明 一 维 数组 时 ， 必 须 指 定 上 标 ， 下 标 可 以 不 指定 。 下 标 如 果 不 指 定 则 默认 从 0 开始 ， 
如 采 模 块 项 部 声明 Option Base 1， 则 下 标 默 认 从 1 开始。 使 用 数组 的 元 系 时 ， 索 引 值 必须 在 
上 下 界 范 围 内 ， 不 可 越界 使 用 。 

VBA 的 一 维 数组 的 下 标 ， 可 以 从 任意 整数 开始 ， 也 可 以 从 负数 开始 。 

源 代 码 : 实例 文档 81.xlsm/ 一 维 数 组 





Students 
图 4-44 一 维 数 组 示例 


1. Option Base 1 
2. Sub Testl(}) 
3. Dim arr(3) As Integer 
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4. Debug.Print LBoundl(arr), UBoundl(arr) 
D3. End Sub 


代码 分 析 : 第 1 行 代码 是 模块 定义 部 分 ,含义 是 数组 的 默认 下 标 从 1 开始 。 第 3 行 代码 
是 数组 声明 的 核心 代码 ， 含 义 是 声明 一 个 可 以 容纳 整数 的 数组 arr， 索 引 为 1 ~ 3。 

运行 上 述 过 程 ， 打 印 结果 为 1 和 3， 表 示 arr(1)、arr(2)、arr(3) 可 以 使 用 。 如 果 把 第 1 
行 代码 注释 反 ， 重 新 运行 则 会 打印 0 和 3， 表 示 arr(0) 也 可 以 使 用 。 

为 了 避免 出 错 ， 在 声明 数组 时 ， 可 以 明确 地 给 出 下 标 ， 此 时 与 模块 是 否定 义 无 关 。 

源 代 码 : 实例 文档 81.xlsm/ 一 维 数组 


1 Sub Test2() 

2 Dim Stuadents(-3 To 1) As string 

3 Students (一 3) = "LiLei" 

和 4 Students(-—-2) = "HanMeimeli™ 

or Students (一 ) = "Lucy" 

6 Students(0) = "Jacky”" 

1 Students (1) = "Gates™ 

8 Dim 1 As Integer 

9 For 1 = TBounadl(Stuadents) To UBound (Students) 
10. Debug.Print UCase (Students (1)) 
11. Next 1 


12. End Sub 

代码 分 析 : 第 2 行 代码 声明 了 一 个 字符 串 数组 ， 索 3 引 | 为 -3 ~ 1， 
第 3 ~ 7 行 代 码 为 数组 各 元 又 赋值 ， 第 9 ~ 11 行 代 码 过 历 每 个 元 素 ， 
打印 每 个 元 素 的 大 写 。 运 行 结果 如 图 4-45 所 示 。 图 4-45 “运行 结果 32 





注意 : 遍历 一 维 数 组 也 可 以 使 用 For Each 语句 。 


4.12.1.2 ”数组 元 素 的 修改 

数组 一 旦 声明 以 后 ,不 可 以 增加 和 删除 元 素 ， 但 是 可 以 为 每 个 元 素 重 新 赋值 ， 也 可 以 完 
全 擦 除数 组 所 有 元 素 的 值 。 

源 代码 : 实例 文档 81.xlsm/ 一 维 数组 


1 Sub Test3() 

2 Dim Students(l1 To 5) As String 
3 Students(1) = "LiLe1i™ 

4 Students(2) = "HanMejmei" 

ps Erase Students 

6 Students(1) = "BaoBao" 

1 Students(3) = "Lucy” 

8 Students(4) = "Jacky" 

3 Students(5) = "Gates" 


10. stop 
11. End Sub 


代码 分 析 : 第 5 行 代码 用 来 探 除 数组 ， 释 放 数 组 所 用 的 内 存 。 
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第 6 ~ 9 行 代码 重新 为 数组 赋值 ， 由 于 没 给 2 号 元 素 赋值 ， 所 以 使 用 默认 值 空 字符 串 。 
数组 不 能 直接 输出 到 立即 窗口 ， 也 无 法 用 MsgBox 一 次 性 输出 数组 ， 只 能 一 个 一 个 元 素 
研究 数组 最 好 的 方法 是 使 用 VBA 的 本 地 窗口 ， 因 此 运行 本 过 程 之 前 打开 本 地 窗口 ， 当 
运行 到 第 10 行 Stop 时 ,会 暂停 程序 的 执行 ， 此 时 通过 本 地 窗口 可 以 看 到 数组 的 结构 和 当前 
值 ( 见 图 4-46)。 


人 一 维 兽 组 . Test3 


Students (1) 
Students (2) 
Students (3) 
Studente (4) 
Students (Ss) 





图 4-46 本 地 窗口 2 
可 以 看 到 ，1 号 元 素 被 重新 赋值 ，2 号 元 素 是 默认 值 。 


4.12.2 ”二 维 数组 


在 实际 编程 应 用 中 ， 也 经 常用 到 二 维 数组 。 一 维 数组 可 以 理 
解 为 行 向 或 者 列 向 排列 的 元 素 集 合 ， 那 么 二 维 数组 则 可 以 理解 为 1 
方 阵 排列 的 元 素 集合 。 

例如 ， 要 存储 5 行 3 列 共 15 个 数字 ， 就 可 以 使 用 二 维 数组 来 
存储 。 一 个 5 行 3 列 的 二 维 数组 示意 图 如 图 4-47 所 示 。 

假定 图 4-47 描述 的 数组 名 称 是 Num， 那 么 Num(3,2) 代表 第 


EEE 
3 行 第 2 列 的 元 素 ， 为 87。 最 左上 角 的 元 系 是 Num(1,1)， 最 右 下 ”图 4-47 二 维 数 组 示意 图 
角 的 元 系 是 Num(5,3)。 

4.12.2.1 二 维 数组 上 下 界 

二 维 数组 在 声明 时 ， 需 要 同时 指定 两 个 维度 的 上 下 界 。 语 法 为 : 





nn 请 oo ho 


Dim 数组 名 (m To n, p To q) 


其 中 , m、a 是 第 1 维 的 上 下 界 ， p、dq 是 第 2 维 的 上 下 界 。 
源 代 码 : 实例 文档 81.xlsm/ 二 维 数组 


1 Sub Testl]{() 

之 。 Dim Numl(l1 To 5, 1 To 3) 

3 Debug.Print LBound (Num, 1), UBound (Num, 1) 
4 


4. Debug.Print LBound (Num, 2), UBound (Num, 2} 
9. End Sub \ LE 

] 5 
代码 分 析 : LBound(Num, 1) 表示 数组 第 1 维 的 下 界 。 E 3 


上 述 过 程 的 运行 结果 如 图 4-48 所 示 。 4-48 ”运行 结果 33 
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4.12.2.2 ” 骨 套 循环 遍历 二 维 数组 

由 于 二 维 数组 是 两 个 维度 ， 所 以 需要 用 内 外 两 层 循环 才能 遍历 每 个 元 素 。 其 实 裔 历数 组 
的 实质 是 数组 的 索引 在 循环 。 

下 面 的 过 程 声明 一 个 整 型 二 维 数组 ， 为 右 干 元 素 进 行 赋值 ， 然 后 用 双 层 For 循环 遍历 
元 了 素 。 


源 代码 : 实例 文档 81.xlsm/ 二 维 数组 














1] Sub Test2() 
ra Dim Numl(l1 To SS, 1 To 3) As Integer 
3 Num(l1, 1) = 817 
4. Num(l1, 2) = 88 
a Num(l1, 3) = 一 8 
bs Numl(l1l, 2) = -23 
1 Num(3, 3} = 12 
8 Num(5, 3) = 821 
- Dim 1 As Integer, 1] As Integer 
10. For 1 = 1 To J 
11。 For ] = 1 To 3 
| Debug.Print Num(1i, J]J) 
L3s Next J 
14. Next i 
15。 stop 到 rm 
16. End Sub 
Intezer (l 
yi A hs 一 1, Integer 
代码 分 析 : 对 于 没有 赋值 的 元 素 ， 取 默认 值 5 
Ne oe i 2 Integer ll to 3 
0。 在 本 地 窗口 可 以 清晰 地 看 到 该 二 维 数组 的 结构 。” [i 下 me nteeer 
5 nteeer 
( 见 图 4-49)。 hn GO) Tnteeer 0 
3, Integer 
在 Excel VBA 中 ,一 维 数组 、 二 维 数 组 和 单 i 
| 下 区 和 - Integer fl 
元 格 区 域 的 数据 可 以 进行 快速 数据 传递 ， 相 关内 Inteeera 





容 请 参阅 Range 对 象 方面 的 鞋 市。 图 4-49 本 地 窗口 3 


4.12.3 ”使 用 Array 创建 数组 


使 用 Array 可 以 把 多 个 元 素 同时 输入 ， 从 而 成 为 数组 对 象 。 但 是 需要 用 一 个 变 体 型 变量 
接收 ， 接 收 后 成 为 一 个 下 界 从 0 开始 的 数组 。 
源 代 码 : 实例 文档 81.xlsm/ 使 用 Array 


1 Sub Testl () 

到 Dim TY As Variant 

s 训 v= Arrayl("Monday", "Tuesday", "Wednesday") 
4. Debug.Print LBound(v), UBound  (v) 

Se Debug.Print wv(2), v(l1), v(0) 

6 End Sub 


代码 分 析 : 第 4 行 代 人 码 打印 v 的 上 下 界 ， 下 界 必 0 5 
须 是 0， 因 此 上 界 是 2。 第 5 行 打 印 数组 所 有 元 素 。 Ry ey ee 
运行 结果 如 图 4-50 所 示 。 
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利用 这 个 特点 ， 还 可 以 使 用 Array 创建 二 维 数组 。 


1。 Sub Test2() 

Dim vw As Variant 

3. Vv = RARrray(RArray(" 唐 代 "，618，907，" 李渊")，Array(" 宋 代 "，960,，1127， 
匡 册 ") ，Array ("元 代 "，1271，1368，" 名 必 烈 ")) 

4. 

3 


代码 分 析 : 第 3 行 是 核心 代码 ， 使 用 了 双 层 和 藤 套 的 Array， 相 当 于 把 一 维 数组 再 次 作为 
本 
运行 到 Stop 语句 时 ， 从 本 地 窗口 可 以 看 到 二 维 数组 v 的 情况 ( 见 图 4-51)。 





Varianti Variant WO to 3) 
Variant/Strine 
Varlants TIntieger 醒 

Vari ant /Trt eeer 
Variant/Stringe 

Variant/ Variant (D0 to 3) 
Variant/Strine 

Variant/ TInteeer 
Variant/Intieger 
Variant/Strine 
VariantiVariant (D to 号] 
Variant/Strine 


Variant/ TInt 总 区 SE 
Varianty Int eeer 
Variant/Strine 





图 4-51 本 地 窗口 4 


在 Excel VBA 中 ， 经 负 利 用 Array 来 快速 选中 多 个 工作 表 ，, 或 者 利用 Array 快速 输入 
标题 。 





1 Sub Test31() 

过 ActiveWorkbook.Worksheets (Array("Sheetl", "Sheet3")).Select 

3 Sheet1.Range ("Al1:D1") .Value = Array(" 姓名 "，" 学 号 ",， "性 别 "，" 出 生年 月 ") 
4 End Sub 


代码 分 析 : 第 2 行 代 码 同时 选中 工作 表 Sheetl 和 Sheet3， 第 3 行 代码 往 单 元 格 区 域 
Al:D1 分 别 输入 4 个 标题 。 


4.12.4 ”对象 数组 


对 象 数 组 就 是 数组 中 各 个 元 素 的 类 型 是 对 象 类 型 ， 而 不 是 基本 数据 类 型 。 

如 有 果 所 有 元 率 的 对 象 类 型 是 一 样 的 ， 则 可 以 声明 数组 为 具体 的 对 象 类 型 ; 如 果 是 混合 对 
象 类 型 ， 需 要 声明 为 Object 类 型 。 

此 外 ， 在 对 元 素 赋值 时 ， 需 要 用 Set 关键 字 。 

例如 ， 使 用 Dim W(2 To 4) As Excel.Worksheet 声明 一 个 工作 表 对 象 数组 ， 那 么 W(2) 就 
是 其 中 一 个 工作 表 对 象 。 

源 代 码 : 实例 文档 81.xlsm/ 对 象 数组 


1] Sub Testl 1() 

pa Dim 全 (2 To 4) As Excel .Worksheet 

3 Set W(2) = ActiveWorkbook.Worksheets("Sheetl™) 
4 Set W(4) = ActiveWorkbook.Worksheets("Sheet3") 
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3 W(4) .Activate 
6. End Sub 


代码 分 析 : 由 于 全 是 工作 表 对 象 ， 所 以 第 2 行 代码 声明 为 Worksheet 类 型 。 第 5 行 用 于 
激活 工作 表 Sheet3。 
下 面 这 个 实例 ， 由 于 数组 中 元 素 之 间 是 不 同 的 对 象 类 型 ， 所 以 声明 为 Object。 


1 Sub Test2{() 

2 Dim 2(1 To 4) As Object 

3 Set 2(1) = Application 

4. Set 2(2) = 2(1) .ActiveWorkbook 
5 Set (3) = 2(2) .Worksheets (2) 
6 Set 2(4) = 2(3) .Range ("A2:B4") 
1 (4) .Interior.Color = VvbBlue 

8 End Sub 


代码 分 析 : 第 3 行 代码 获得 Excel 应 用 程序 ， 第 4 行 代 人 码 把 活动 工作 注 赋 给 Z(2), 第 5 
行 代 人 码 把 活动 工作 短 的 第 2 个 工作 表 赋 给 Z(3)， 第 6 行 代码 把 单元 格 区 域 赋 给 Z(4)。 


4.12.5” 变 体 数 组 


变 体 数组 意味 看 元 对 的 类 型 可 以 是 任意 的 ， 要 求 数组 的 类 型 为 Variant。 
源 代 码 : 实例 文档 81.xlsm/ 变 体 数组 


1 Sub Testl]() 
2 Dim XKX(l1 To 4) As Variant 

3 XX(1) = 2011 

4. XX(2) = "Year™ 

3 区 (3) = 3.14 

6 Set XKX(4) = ActiveCell 

1 X(4) .Value = (XKX(1) + X(3)) & X(2) 
8 End Sub 


代码 分 析 : 第 2 行 代码 声明 为 变 体 数组 ， 那 么 每 个 元 素 
可 以 任意 使 用 。 第 6 行 代码 把 活动 工作 表 赋 给 X(4)。 第 7 行 
代码 把 计算 结果 发 送 到 活动 单元 格 。 运 行 结果 如 图 4-52 所 示 。 





4.12.6 ”动态 数组 


动态 数组 就 是 在 使 用 过 程 中 ， 可 以 随时 变更 数组 的 上 下 界 。 再 明 数 组 时 ,不 需要 指定 上 
下 界 。 在 用 到 数组 时 ， 可 以 用 Redim 关键 字 重 新 声明 ,但 是 使 用 Redim 不 可 以 重新 指定 数 
组 的 类 型 。 

使 用 Redim 重新 定义 数组 后 ， 原 先 的 元 系数 据 全 被 清除 ， 如 果 要 保留 以 前 的 数据 ， 需 
要 使 用 ReDim Preserve 二 人 名。 

源 代 码 : 实例 文档 81.xlsm/ 动态 数组 


1。 Sub Testl() 
2. Dim a() As Integer 
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Se ReDim a(3 To 2) 

4. a(3) = 35 

i a(l4) = 37 

6. a(s3) = 39 

i. ReDim Preserve al(3 To 7) 
8. a(i) = 45 

+- Stop 

10. ReDim al(l To 4) 

i Stop 


12. End Sub 


代码 分 析 : 第 2 行 代 码 声明 一 个 整 型 动态 数组 ， 所 以 不 指定 上 下 界 。 第 3 行 代码 重 定 义 
上 下 界 。 第 4 ~ 6 行 代码 为 数组 赋值 。 

第 7 行 代码 保留 以 前 值 并 扩大 数组 到 7。 第 9 行 代码 的 Stop 语句 可 通过 本 地 窗口 看 到 
数组 的 情况 ， 如 图 4-53 所 示 。 





图 4-53 ”本 地 窗口 $ 


第 10 行 代码 清除 数组 元 素 值 ， 并 重新 定义 ， 第 11 行 代码 再 次 暂停 运行 ， 查 看 数组 状 
态 ， 结 果 如 图 4-54 所 示 。 





图 4-54 本 地 窗口 结 来 
可 以 看 出 ， 数 组 元 系 全 部 初始 化 为 0 了。 
注意 ， 当 使 用 Preserve 试图 保留 以 前 值 时 ， 下 标 必 须 和 原先 下 标 一 样 才 行 。 也 就 是 第 7 
行 必 须 写成 ReDim Preserve a(3 To 7)， 如 采写 成 ReDim Preserve a(2 To 7) 或 ReDim Preserve 
a(5 To 7) 会 发 生 下 标 越界 的 错误 。 


4.13 ”代码 优化 


实现 同一 个 功能 和 目的 , 不同 的 人 写 出 的 代码 风格 锭 异 ， 程序 代 人 码 的 构思 、 风 格 ， 与 每 
个 人 的 经 验 、 性 格 各 方面 部 有 关系 。 但 是 代码 编写 一 般 要 体 循 如 下 几 个 原则 。 

D 思路 清晰 、 正 确 ， 程 序 设计 的 思路 能 够 解决 实际 问题 。 

口 代 但 简 沪 ， 合 理 使 用 过 程 和 果 数 ， 做 到 不 重复 、 不 元 余 。 

D 程序 各 个 部 分 实现 模块 化 ， 各 行 代码 缩 进 合理 ， 有 层次 性 。 
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口 有 必要 的 注释 语句 ， 增 强 程序 的 可 读 性 。 
4.13.1 同一 行书 写 多 条 语句 


VBA 代码 一 般 是 一 行 代码 单独 占据 一 行 ， 但 也 可 以 把 多 行 语句 调整 到 同一 行 ， 各 条 语 
句 用 半角 冒号 陋 开 即 可 。 
例如 : 


避 二 3 
b=4 


人 一 

这 3 行 语 句 可 以 调整 为 ; 

a=3:b=4:c=5 

再 例如 

For Each wb In Workbooks 
wh.Close 

Next wb 

也 可 以 调整 为 : 


For Each wb In Workbooks : wb.Close : Next wb 


但 是 很 少 有 人 把 For 循环 结构 调整 为 一 行 ， 因 为 并 不 好 看 。 
4.13.2 长 语句 的 续 行 书写 


在 程序 代码 的 编写 过 程 中 ， 经 过 碰 到 一 行 很 长 的 代码 ， 一 个 屏幕 不 能 完全 显示 整 
行 代 码 。 此 时 ， 可 以 使 用 续 行 书写 。 例 如 ，MsgBox Application.Workbooks("MyBook"). 
Worksheets("MySheet").Range("A1:D5").Value ， 在 合适 的 位 置 输入 一 个 半角 空格 ， 册 输入 一 
个 下 面 线 ， 按 下 【 Enter 】 键 继续 输入 代码 即 可 。 效 果 如 下 : 


MsgBox Application.Workbooks ("MyBook™) 
.Worksheets ("MySheet") .Range ("Al :DI") .Value 


因此 ， 可 以 把 空格 加 一 个 下 夯 线 叫 作 续 行 侠 。 也 就 是 说 ， 虽 然 写 在 了 不 同 的 行 ， 执 行 时 
续 行 符 不 要 破坏 和 分 裂 字 符 串 或 变量 名 、 关 键 字 等 完整 单词 。 例 如 : 


Ms9 


Box "VBA" 


束 是 错误 的 。 因 为 MsgBox 是 一 个 完整 的 关键 字 ， 不 能 分 裂 。 
4.13.3 ”使 用 缩 进 
VBA 代码 的 两 大 特征 : 一 是 不 区 分 大 小 写 ; 二 是 忽略 空格 。 
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VBA 中 只 有 和 字符 串 中 的 字母 是 区 分 大 小 写 的 ， 变 量 名 、 过 程 名 、 关 键 字 不 区 分 大 小 写 。 
例如 ，MyHome 与 myhome、MYHOME 是 同一 个 变量 ， PUBLIC、FUNCTION 和 Public、 
Function 是 同一 个 关键 : 字 ， 

VBA 代码 中 ， 每 行 语句 左 侧 的 空 日 冤 度 不 限 。 也 就 是 说 ， 书 写 语 名 时 ， 既 可 以 紧 贴 者 
代码 编辑 硕 的 左 侧 书写 ， 也 可 以 先 按 下 空格 键 或 【 Tab 】 键 ,再 输入 代码 。 此 外 ， 相 邻 语句 
之 间 人 允许 插 和 人 多 个 空 月 行 ， 场 句 和 语句 之 间 的 空 月 行 、 过 程 和 过 程 之 间 的 空 日 行 ， 也 都 不 影 
啊 程 序 的 编译 和 运行 结果 。 但 是 为 了 美观 ,通常 在 过 程 的 结束 位 置 和 下 一 个 过 程 开 始 位 置 之 
间 插 入 一 个 空 晶 行 ， 便于 区 分 。 

VBA 中 的 缩 进 单位 是 一 个 制 表 人 位， 鼠标 置 于 代码 中 ， 按 下 【 Tab 】 键 ， 就 会 回 右 缩 进 ; 
如 果 按 下 [【 Shift+Tab 】 键 ， 就 会 减少 缩 进 量 ， 代 人 码 癌 左 移动 。 


注意 : 这 个 缩 进 与 减少 缩 进 的 功能 ， 不 止 针对 一 行 ， 如 果 事 先 用 鼠标 选中 了 多 行 代 
码 ， 那 么 会 发 生 整 体 缩 进 。 


如 果 不 习惯 按 快 捷 键 进行 缩 进 ， 也 可 以 在 VBA 编辑 器 的 空白 处 右 击 ， 在 弹出 的 快捷 菜 
单 中 勾 选 “编辑 ” 复 选 枉 ， 此 时 会 出 现 “ 编 辑 ” 工 具 栏 ( 见 图 4-55)。 


: 稼 谱 人 性 6 ” 坊 则 曲 视 辐 WW 插入 0 忻 到 [OY 调 坏 (DD 和 运行 本 | 工具 四 外接 程序 邮 ) 军品 QW) 帮助 [HI 
: 贺 岂 -加 关 晶 史 靖国 由 同 略 褒 办 “Mek 

: EE | be 家 员 训 n 3 

; 后 性 /方法 过 数列 快速 信 条 数 全 自动 完成 关 i 切 摊 断 设 理 注 解 妊 注 切 袜 书 下 十 上 书 

: 列表 人 十 忆 全 层 I 键 字 [WwW) 扣 四 


滞 除 所 有 
大 块 ” 释 内 ” 答 中 所) 笠 ) EO) 必 
区 | | 「 吗 用 ] cag 


sub Teatl () 
im a hs Single, b is Sinele, c Ms Sinel, 月 户 窗 体 
b _ 1 VEBE2014 
c= VBA.sgria 2+b 2) 自 定 网 {0}.. 
Debug. Print © 
b 











图 4-55 使 用 编辑 工具 栏 


工具 栏 中 有 “ 缩 进 "“ 凸 出 ”两 个 按钮 ， 其 功能 就 是 上 面 讲 过 的 缩 进 和 取消 缩 进 功能 。 
在 VBA 编辑 器 中 缩 进 一 次 ， 回 右 缩 进 的 宽度 与 VBA 选项 有 关 。 在 VBA 选项 对 话 框 的 
“编辑 器 ”选项 卡 中 ， 默 认 的 Tab 宽度 是 4， 也 就 是 说 按 一 ， | 
次 【 Tab ] 键 向 右 缩 进 4 个 半角 空格 的 宽度 。 用 户 可 以 更 。 [na jon a [wn 
改 该 数值 ( 见 图 4-56)。 
VBA 程序 设计 中 ， 合 理应 用 缩 进 ， 能 够 增强 程序 的 teh 
可 读 性 和 层次 感 ， 如 果 不 使 用 缩 进 ,或 者 是 不 合理 的 缩 进 ， | [Vw 
即使 是 自己 阅读 自己 写 过 的 代码 ， 也 会 觉得 杂乱 无 绪 。 ao 
很 多 VBA 初学 背 通 第 会 认为 ， 缩 进 和 取消 缩 进 
行 代 码 的 问题 。 其 实 这 样 理 解 是 错误 的 。 图 4-56 VBA 选项 对 话 框 1 

















三 委 求 杰 量 声明 闻 ) | 
厅 自动 到 由 成品 i) eat 











此 碍 识 置 
| [自动 唱 志 检 竹 在 ) |w 上 自动 病 进 I) 
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实际 上 ，VBA 的 缩 进 是 由 于 开始 标签 和 闭合 标签 造成 的 。 所 谓 的 标签 ， 可 以 想象 成 
HTML 语言 中 的 标签 ， 也 就 是 语法 结构 的 开始 标志 和 结束 标志 。VBA 语法 结构 中 用 到 的 标 
签 如 表 4-7 所 示 。 


表 4-7 VBA 语法 结构 中 的 标签 


开始 标签 闭合 标签 
Sub End Sub 
Function End Function 
Property End Property 
Type End Type 
Enum End Enum 
If End If 
With End With 
Select End Select 
Do Loop 
While Wend 
For Next 


书写 代 人 码 时 ， 要 如 循 开始 标签 和 对 应 的 闭合 标签 处 于 同一 个 缩 进 量 ， 标 签 内 的 所 有 语句 
块 缩 进 一 个 单位 。 顺 序 结构 的 每 一 行 均 对 齐 ， 缩 进 量 相 同 。 条 件 选 择 和 循环 结构 ， 其 内 部 的 
语句 块 缩 进 一 个 单位 。 

此 外 ， 模 块 顶部 的 模块 定义 、 模 块 级 变量 以 及 常量 的 声明 、API 声 明 的 缩 进 量 ， 与 
Sub…End Sub 一 样 ， 都 是 0， 也 就 是 说 要 坚 徘 左 侧 写 起 。 

一 个 恨 好 的 写作 习惯 是 ， 先 把 开始 、 财 合 标签 搭建 好 ， 然 后 在 标签 之 间 书 写 内 部 代 但 ， 
这 样 目 然而 然 就 形成 了 正确 的 缩 进 ， 基 本 无 顷 后 期 重新 调整 。 

现在 以 下 面 的 Testl 过 程 为 例 ， 说 明 如 何 从 头 书写 如 下 代码 结构 。 首 先 分 析 程 序 构成 ， 

过 程 的 内 部 由 变量 声明 语句 、For 循环 、 开 条 件 选择 语句 构成 ， 但 是 开 条 件 选 择 语句 内 部 又 

鹏 套 一 个 With 结构 。 


Sub Test]() 

Dim a As Integer 

Dim b As Integer 

Dim I As Excel .Range 

For a= To 10 
Debug.Print a 
b= b+ 2 

Next a 

If b > 10 Then 
Set 工 = Range ("A™" & b) 


With Ir 
.Interior.Color = vbRed 
.Value = b 
End With 
End I 


End Sub 
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从 头 书写 该 过 程 时 ， 首 先 从 最 外 侧 标签 写 起 : 
Sub Testl (1) 
End Sub 


然后 在 标签 内 部 空 晶 行 按 下 【 Tab 】 键 ， 缩 进 一 个 单位 后 书写 变量 声明 部 分 ， 以 及 For 
循环 的 标签 : 


Sub Testl]{) 
Dim a As Integer 
Dim b As Integer 
Dim I As Excel .Range 
For a= To 10 


Next a 
End Sub 


接 下 来 在 For 循环 体内 的 空 日 行 按 下 【 Tab 】 键 ， 缩 进 一 个 单位 后 书写 其 中 的 语句 块 : 


Sub Testl] () 
Dim a As Integer 
Dim b As Integer 
Dim Ir As Excel .Range 
For a= To 10 
Debug.Print a 
b= b+ 2 
Next a 
End Sub 


接 下 来 书写 下 条 件 选 择 的 标签 : 


Sub Testl1() 

Dim a As Integer 

Dim b As Integer 

Dim I As Excel .Range 

For a= 1 To 10 
Debug.Print a 
b= b+ 2 

Next a 

It b > 10 Then 


End If 
End Sub 


然后 在 在 结构 的 中 间 空 日 行 按 下 【 Tab ]】 键 ,书写 代码 并 创建 With 结构 的 标签 : 


Sub Testl]{() 

Dim a As Integer 

Dim b As Integer 

Dim I As Excel .Range 

For a= 1 To 10 
Debug.Print a 
b= b+i+2 

Next a 

Ift b > 10 Then 
Set I = Rangel("A" & b) 
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With 工 
End With 
End I 


End Sub 
最 后 填充 With 结构 中 的 代码 ， 效 果 如 下 : 


Sub Test]() 
Dim a As Integer 
Dim b As Integer 
Dim Ir As Excel .Range 
For a = 1 To 10 
Debug.Print a 
b= b+ 2 
Next a& 
If b > 10 Then 
Set Ir = Range ("A & b) 
With rr 
.Interior.Color = VvbRed 
.Value = b 
End With 
End If 
End Sub 


可 以 看 出 ， 由 于 VBA 的 语法 结构 标签 是 成 对 出 现 的 ， 所 以 
从 一 开始 的 Sub 开始 ， 到 最 后 的 End Sub 结束 ， 缩 进 量 到 最 后 总 
会 回归 到 0。 从 而 可 以 得 出 结论 : 产生 缩 进 的 行 效 和 取消 有 进 的 
行 数 是 相等 的 。 

如 采 对 已 有 的 程序 代码 进行 批量 缩 进 处理 ， 可 以 使 用 作者 制作 
的 VBE2014， 路 径 为 : VBA 作品 /VBE2014_Setup 20160709.exe。 

安装 本 工具 后 ,在 VBA 代码 区 域 右 击 ， 在 弹出 的 快捷 菜单 一 
最 下 方 有 “和 镶 能 缩 进 ” 命 令 ， 如 图 4-57 所 示 。 图 4-57“ 智 能 缩 进 ”命令 


募 切 口 
复制 从 
粘贴 扣 ) 
层 性 / 访 法 列表 [H) 

党 数列 志向 ) 

快速 信息 疗 ) 

参数 信息 心中 

自动 证 成交 键 字 QW 

茹 挽 品 t 
对 短 鹿 上 项 [局 ) 

汪 加 监视 皮 ).. 
定 尽 加 ) 


I 








三 


4.13.4 ”使 用 模块 定义 





模块 定义 是 指 书 写 于 模块 顶部 的 语句 ， 其 作用 是 对 该 模块 的 一 些 规定 和 约束 ， 对 其 他 模 
块 无 任何 影响 。 模 块 定义 可 以 书写 于 标准 模块 、 类 模块 、 用 户 窗 体 、 事 件 模块 中 。 
常用 的 模块 定义 语句 见 表 4-8。 


表 4-8 常用 VBA 模块 定义 语句 


语 句 说 明 
Option Base 1 数组 下 界 为 1 
Option Explicit 强制 变量 声明 
Option Compare Text 不 区 分 大 小 与 
Option Compare Binary 区 分 大 小 写 
Option Compare Database Access 中 使 用 
Option Private Module 标记 模块 为 私有 
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其 中 ， 以 Option Compare 开头 的 定义 ， 只 能 使 用 其 中 一 句 ， 也 就 是 说 同一 个 模块 不 能 
同时 使 用 两 句 以 上 这 样 的 定义 。 如 果 一 句 也 不 写 ， 则 默认 是 Option Compare Binary (区 分 大 
se 

如 果 在 标准 模块 项 部 写 上 Option Private Module， 当 在 Excel 中 按 下 快捷 键 【 Alt+F8 ]】 
时 ， 宏 列表 中 不 列 出 该 模块 中 的 过 程 。 该 定义 的 主要 作用 是 限制 其 他 工程 访问 该 模块 中 的 过 
程 、 变 量 等 


三 
于 于 6 


4.13.5 ”使 用 注释 


VBA 中 ， 注 释 分 为 整 行 注 释 和 行 中 注释 两 种 。 
整 行 注 释 是 指 注 释 部 分 左 侧 没有 任何 代码 ， 通 
第 用 Rem 或 者 单 引 号 作为 注释 的 开始 ,注释 的 结尾 编辑 器 “ 缩 辑 器 格式 | 通用 “| 可 连接 的 | 


只 能 是 行 尾 已 也 就 是 说 ， 注释 部 分 右 侧 不 可 能 再 有 -5 1 于 驶 水 床 硒 ICHINESE GP2312 | 
区 后 二 三 元 小 所 ) 
代码 。 ， se 


[” 边 寄 标 识 茶 加 


行 中 注释 呈 能 用 单 引 号 表示 ， 代 码 中 如 果 单 引 Es 
| ee Sr 、 : 前 景色 各 ): 站 景色 中 标志 色 种 
号 没有 包含 在 字符 串 中 ， 那 么 它 就 是 注释 。VBA 中 JE | | 人  | 让 < | 
的 注释 文本 通 稼 以 绿色 表示 ， 当 然 ， 根 据 个 人 喜好 ， 
也 可 以 通过 VBA 选项 对 话 框 中 的 “编辑 需 格 式 ” 选 
项 卡 进 行 设 定 ( 见 图 4-58)。 图 4-58 ”VBA 选项 对 话 框 2 
下 面 这 有 段 程序 演示 了 VBA 中 的 注释 方法 。 





1. Sub Test2() 

2. Rem 这 个 程序 是 我 昨天 写 的 

< Rem 变量 a 来 源 于 单元 格 区 域 的 行 号 
4. Dim a As Integer 

二 Dim b As Integer 

Gb. Dim TI As Excel .Range 

7. "以 下 是 循环 部 分 

8. For a = To 10 

9. Debug.Print a “立即 窗口 打印 'a' 的 值 
10. b= b & "Excel VBA 7” 
大 中 Next a 


lz2. End Sub 


代码 分 析 : 第 2、3、7 行 是 整 行 注释 ， 只 有 注释 没有 代码 。 

第 9 行 从 第 一 个 单 引 号 开始 一 直到 行 尾 属于 注释 部 分 。 

第 10 行 虽然 也 出 现 过 单 引号 ,但 是 两 个 单 引号 位 于 字符 串 中 ， 属 于 字符 串 的 
因此 不 是 注释 。 

如 果 要 把 连续 的 多 行 代码 一 次 性 注释 挥 ， 或 者 把 注释 部 分 快速 取消 注释 ， 可 以 单 击 “ 编 
辑 ” 工 具 栏 的 “设置 注释 块 ” 和 “解除 注释 块 ” 按 钮 ( 见 图 4-59 ) 。 
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全 Microsoft Visual Basic for Applications - 实例 文档 93.xlsm - [代码 的 缩 进 KR 到 


Sub Testl () 

Dim a As Integer 
i CR 六 疾 09. 1 sm) Dim b As Integer 
晶 :… 全 Microsoft Excel NW 和 凋 D A F-: ] R 
i “ 转 ] sheetl Sheetl) 0 Es 

别 ] sheet2 (Sheet2) For a= 1 lo 10 

“出 sheet3 (Sheet3) Debug. Print a 

Thi sY or kb ok 





If b > 10 Then 
图 4-59 ”注释 和 解除 注释 


6 ”使 用 With 结 松 


编程 过 程 中 ， 经 篆 遇 到 重复 引用 同一 对 象 或 对 象 变 量 的 成 员 。 使 用 With 结构 可 以 在 结 
构 内 部 输入 一 个 小 数 点 ， 就 日 动 列 出 对 象 的 成 员 。With 结构 的 功能 是 本 来 需要 多 次 书写 同 
一 个 对 象 ， 现 在 只 书写 一 次 即 可 。 

With 结构 的 语法 格式 是 : 

With 对 象 


- 成 员 


End With 


例如 ， 要 获取 Excel 应 用 程序 的 一 些 属性 ， 通 常 这 样 书写 代码 


1 Sub Test3() 

本 Debug.Print Applijcation.UserName 
EP MsgBox Application.OperatingSystem 
4. Application.DisplayAlerts = False 
3. End Sub 


使 用 With 结构 可 以 简化 为 : 


= 
6. 
1 


1 
A 
3 
4 


Sub Test3{) 
With Application 
Debug.Print .UserName 
MsgBox .OperatingSystem 
. DisplayAlerts = False 
End With 

End Sub 


可 以 看 出 ， 夹 在 With 与 End With 之 间 的 代码 ,省略 了 所 有 的 Application 对 象 。 当 我 
们 在 分 析 使 用 了 With 结构 的 代码 时 ， 要 学 会 倒 推 。 
例如 ， 以 下 代码 如 何 复原 成 非 With 结构 呢 ? 


1 Sub Test31{) 

wa Dim MyRange As Excel .Range 

;oe Set MYRange = Application.Range ("A2:B4") 
4. With MyRange 
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.Value = 3.24 

- Interior.Color = vbhYellow 
FormulaLocal = "0.000" 
MsgBox .Address (False, False) 
Debug.Print .Width + .Height 
10. End With 

ll1l. End Sub 


可 以 看 出 ， 上 述 代 码 中 省 略 的 对 象 是 MyRange， 所 以 首先 把 With MyRange 以 及 End 
With 这 两 行 删 兵 ， 然 后 中 间 部 分 只 要 是 出 现 小 数 点 《数字 中 的 、 字 符 串 中 的 小 数 点 除外 )， 
就 在 小 数 点 前 面 补 上 MyRange 对 象 即 可 。 修 改 结果 如 下 : 


(DD 5 3] Tm An 


1 Sub Test31() 

之 Dim MyRange As Excel .Range 

3 Set MyRange = Application.Range ("A2:B4") 

和 4 MyRange.Value = 3.24 

-EE MyRange.Interior.Color = vbhYellow 

6 MyRange.FormulaLocal = "0.000"™ 

1 MsgBox MyRange.Address (False, False) 

8 Debug.Print MyRange.Width + MyRange.Height 
时 End Sub 


此 外 ，With 结构 还 允许 多 层 节 套 。 对 于 骸 套 的 With 结构 ， 内 层 With 结构 中 的 默认 对 
象 就 是 内 层 With 后 面 的 对 象 名 。 


1 Sub Test4{() 

2 Dim wbk As Workbook, wst As Worksheet 
3 With Application 

4. MsgBox .UserName 

DJ。 Set whk = .Workbooks (1) 

6 With wbk 

1 MsgBox .FullName 

8 Set wst = wbhk.Worksheets(l1) 
9 With wst 

10. .UsedRange.ClearContents 
1 End With 

a End With 

1 End With 


14. End Sub 


代码 分 析 : 该 过 程 采 用 了 3 级 With 结构 般 侠 ， 最 外侧 的 默认 对 和 象 是 Application， 第 2 
层 的 默认 对 象 是 wbk， 最 内 层 默 认 对 象 是 wst。 

例如 第 7 行 ，.FullName 小 数 点 前 面 的 对 象 指 代 的 是 wbk， 而 不 是 Application。 再 如 第 
10 行 ，.UsedRange 这 个 默认 对 象 是 wst。 也 就 是 说 ， 默 认 对 象 的 有 效 范围 是 开始 于 With ， 
结束 于 End With， 如 果 结 构 内 部 有 艇 套 的 With 结构 ， 则 不 能 把 外 侧 的 默认 对 象 渗透 到 内 侧 。 

在 实际 编程 过 程 中 ,经营 会 遇 到 With 结构 与 其 他 语法 结构 (条件 选 择 、 循 环 结构 等 ) 
的 租 套 。 此 时 一 定 要 注意 标签 的 正确 艇 套 ， 只 能 包含 不 能 穿插 。 例 如 : 

If 条 件 Then 


With 对 象 
语句 块 
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End If 
End With 


就 属于 穿插 ， 这 会 引起 编译 错误 。 正 确 的 写法 可 以 是 条 件 选择 在 外 层 : 


If 条 性 Then 
With 对 象 

语句 块 
End With 
End If 


或 者 ，With 结构 在 外 层 : 


With 对 象 

工 工 条 件 Then 
语句 块 

End I 

End With 


4.13.7 ”使 用 Me 关键 字 


一 个 VBA 工程 由 才干 模块 构成 ， 模 块 中 可 以 包含 若干 声明 、 变 量 和 篆 量 、 过 程 和 加 数 
等 内 容 。 但 是 ,不同 的 模块 允许 定义 名 称 相同 的 变量 、 过 程 等 。 

在 实际 编程 应 用 中 ， 经常 需要 从 其 他 模块 访问 某 模块 中 的 内 容 ， 这 时 候 就 需要 用 到 模块 
名 称 ， 例 如 标准 模块 ml 中 有 一 个 ChangeColor 过 程 ， 在 其 他 模块 中 使 用 ml.ChangeColor 就 
能 调用 该 过 程 。 小 数 点 前 面 的 ml 是 模块 名 称 ， 加 上 模块 名 称 的 作用 是 避免 访问 到 其 他 模块 
中 的 同名 过 程 。 

很 多 情况 下 ,模块 中 需要 访问 本 模块 内 部 的 内 容 ， 这 就 可 以 利用 Me 关键 字 。Me 关键 
字 就 可 以 代表 模块 本 身 ， 用 于 标准 模块 之 外 的 其 他 类 型 模块 中 。 

当 Me 用 于 工作 表 Sheetl 的 事件 模块 中 ，Me 就 代表 工作 表 Sheetl， 它 是 一 个 Work- 
sheet 类 型 的 对 象 ， 此 时 的 Me 关键 字 具 有 和 Worksheet 对 和 象 同样 的 成 员 。 

源 代码 : 实例 文档 94.xlsm/Sheet1 


1]. Sub Testl() 
之 - Me .Name = "MyTable™ 
3. End Sub 


代码 分 析 : 由 于 上 述 代码 处 于 工作 表 事 件 模 块 中 ， 因 此 Me.Name 等 价 于 Sheetl.Name 
或 者 Worksheets("Sheet1").Name， 作 用 完全 相同 ,但 是 写法 更 简洁。 

当 Me 用 于 工作 短 ThisWorkbook 的 事件 模块 中 ，Me 束 代 表 宏 代码 所 在 的 工作 簿 ， 与 
ThisWorkbook 关键 字 功 能 等 价 ， 是 一 个 Workbook 类 型 的 对 象 。 

源 代 码 : 实例 文档 94.xlsm/ThisWorkbook 


1。 Sub Test2() 
a MsgBox Me.Worksheets.Count 
3. End sub 
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代码 分 析 : 第 2 行 代码 等 价 于 MsgBox ThisWorkbook.Worksheets.Count。 
当 Me 用 于 用 户 窗 体 模块 中 ，Me 束 代 表 UserForm。 
源 代码 : 实例 文档 94.xlsm/UserForm1 


1l. Private Sub CommandButtonl Click!{) 
A MsgBox Me.Controls.Count 
3. End Sub 


代码 分 析 : 第 2 行 代码 等 价 于 MsgBox UserForm1l.Controls.Count。 
此 外 ，Me 关键 字 还 可 以 用 于 类 模块 中 。 


习题 


1.， 斐 波 那 契 数列 〈Fibonacci) 中 ,=1，fy=1， 当 nn 宇 3 时 满足 =zt+Fw1， 即 任何 
一 项 都 等 于 其 前 面 两 项 之 和 。 请 写 一 个 程序 用 于 打印 斐 波 那 契 数列 的 前 10 项 。 

2. 写 一 个 程序 ， 用 于 计算 10 的 阶乘 ， 也 就 是 10!=10x9x8x*…x3x2x1。 

3. 字符 串 "Ci\Users\ryueifu\Documents\Camtasia Studio" 中 ， 出 现 了 几 个 反 和 斜 杠 \? 用 
VBA 代码 实现 。 
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过 程 与 函数 设计 






VBA 的 结构 化 程序 设计 中 ， 程 序 的 执行 是 以 过 程 (Subroutine) 和 限 数 (Function) 为 单 
位 的 。 从 组 织 结构 上 分 ,过程 和 肾 数 是 模块 的 组 成 部 分 ， 也 就 是 说 过 程 和 水 数 包括 在 模块 之 
中 ; 同时 ， 过 程 和 晴 数 是 由 奢 十 条 语句 构成 的 、 具 有 特定 意图 的 语句 集合 。 

一 个 完整 的 VBA 项 目 ,通常 包括 项 目的 用 户 界 面 ， 以 及 后 侣 的 程序 单元 。 用 户 界 面 就 
是 连接 用 户 操 作 与 后 台 程 序 的 纽 惠 。 在 这 里 面 ， 过 程 和 蚂 数 的 调用 占有 举足轻重 的 地 位 。 
为 标准 模块 的 作用 范围 和 调用 方式 也 是 最 方便 的 ， 因 此 本 章 主 要 介绍 标准 模块 中 的 过 程 和 多 
数 的 设计 方法 。 


S.1 过 程 


VBA 中 过 程 的 关键 学 用 Sub 表示 ， 每 一 个 过 程 必须 用 End Sub 作为 过 程 丝 束 标志 。 如 
采 运 行 过 程 期 间 需要 提前 退出 过 程 ， 可 以 使 用 Exit Sub 语句 。 





5.1.1 创建 过 程 


过 程 的 创建 通常 有 3 种 方法 。 第 一 种 方法 是 使 用 录 
录制 宏 的 功能 ，PowerPoint 高 级 版 本 不 能 录制 宏 。 

第 二 种 方法 是 在 VBA 编辑 带 中 选择 “插入 ”一 “过 程 ” 
令 ， 弹 出 对 话 框 ， 如 图 5-1 所 示 。 

洽 入 过 程 名 称 ， 并 单 击 “确定 ”按钮 ， 自 动 生 成 过 程 模板 : 





制 宏 ，Excel 和 Word SS 


3 


位 公共 的 外) 
Public Sub Testy() 个 私有 的 


[把 所 有 局 部 变量 声明 为 殉 态 变量 以 ) 


End Sub 


以 上 两 种 方法 只 能 生成 无 参数 过 程 。 图 5-1“ 添 加 过 程 ”对 话 杠 
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第 三 种 方法 是 在 模块 中 下 接手 工 输 入 代码。 对 于 比较 熟练 的 VBA 学 习 者 ， 推 荐 使 用 这 
种 直接 写 代码 的 方法 。 
一 个 VBA 过 程 的 完整 语法 格式 如 下 : 
Public|Private Sub 过 程 名 ( 参数 列表 ) 
语句 抉 
End sub 
对 于 标准 模块 中 的 过 程 ， 如 果 过 程 名 前 面 既 没 有 Public， 也 没有 Private 关键 字 ， 则 上 默 
认 是 Public， 也 就 是 该 过 程 可 以 让 本 模块 以 外 的 其 他 模块 调用 ; 如 果 是 Private， 则 只 能 在 本 
模块 内 部 调用 。 
一 个 模块 中 允许 书写 多 个 过 程 。 在 VBA 编辑 器 中 ， 过 程 和 过 程 之 间 显 示 一 条 横 线 作 
为 分 隐 符 ， 并 且 在 代码 窗 格 的 右上 角 下 拉 列 表 杠 中， 可 以 用 鼠标 快速 定位 到 特定 的 过 程 
( 见 图 5-2)。 


Pri 国光 en DIS 十 E ee si 人 2. 71828 
Sub Test1() 





Const Y Ms Integer = 2017 
YY 


MsgBox Pi + 下 + 
End Sub 
Sub Test2() 
2 a fs Integer, b As Integer 
= VERA. KeyCLodaLonstants. vblev+ 
二 VERA. KeyCodaCLonastants. vbhlevys 
MsgPo ox 号 十 也 





号 


ng 
= VBA. ColorConstants. vhGreen 
Ranee( A2:D5”). ts ior. Caolor = 七 
End Sub 





图 5-2 ”从 下 拉 列 表 框 中 选择 过 程 


过 程 的 命名 原则 与 之 前 讲 过 的 变量 命名 原则 完全 相同 ， 可 以 使 用 英文 单 词 或 者 中 文 作为 
过 程 名 ,但 不 推荐 使 用 中 文 作为 过 程 名 。 同 一 个 模块 中 不 许 出 现 同 名 过 程 ， 否 则 出 现 “ 二 义 
性 ”和 销 误 。 


5.1.2 ”过 程 的 运行 和 调用 





标准 模块 中 的 无 参数 过 程 ， 也 可 以 称 作 宏 ( Macro)。 将 光标 置 于 代码 中 ， 按 下 快捷 键 
【 F5 】 运 行 过 程 ， 或 者 按 下 快捷 键 【 F8 ]】 单 步 执行 过 程 。 

对 于 徐 体 模块 或 者 工作 表 、 工 作 注 事件 模块 中 的 事件 过 程 ， 这 些 过 程 不 能 耳 接 运行 ， 而 
是 通过 事件 驱动 机 制 ， 只 有 触发 了 特定 对 象 的 行为 ,才能 运行 过 程 。 

对 于 种 参 数 过 程 (至 少 1 个 参数 )， 不 可 生 接 运行 过 程 ， 必 须 通 过 其 他 过 程 或 语句 调用 
运行 。 在 Excel VBA 编程 中 ， 可 以 用 Call 或 Application.Run 方法 调用 其 他 过 程 。 

源 代码 : 实例 文档 95.xlsm/ 过 程 的 调用 


1 Public Sub Procl{) 

之 MsgBox Now 

3. End Sub 

4 Public Sub Proc2 (3 As String) 
5 MsgBox UCase (S) 
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6 End Sub 
7。 Public Sub TestcCal 1 1() 
9 Call Procl 


9. Procl 
10. Call Proc2("vhbha"™) 
11。 Proc2? "excel™" 


1l2. End Sub 


代码 分 析 : 以 上 3 个 过 程 中 ，Procl 是 一 个 无 参数 过 程 ，Proc2 带 有 一 个 参数 ，TestCall 
过 程 用 Call 关键 字 去 调用 上 述 两 个 过 程 。 

对 于 调用 无 参数 过 程 ，Call 关键 字 可 以 省 略 不 写 。 调 用 带 参 数 过 程 ， 使 用 Call， 过 程 名 
后 面 的 参数 必须 用 圆 括号 括 起 来 。 如 果 不 使 用 Call 关键 字 ， 则 过 程 名 后 可 以 不 使 用 圆 括 号 ， 
把 参数 依次 列 在 后 面 即 可 。 

Call Proc2 "vba" 是 错误 的 调用 方式 。 

如 采访 问 和 调用 的 过 程 在 其 他 模块 中 ， 则 尽量 在 过 程 名 前 加 上 过 程 所 在 的 模块 
名 。 假 设 标准 模块 m2 中 有 个 Proc2 过 程 ， 那 么 在 其 他 模块 中 采用 如 下 调用 方式 : Call 
m2.Proc2("vba") 或 者 m2.Proc2 "excel" 都 可 以 。 

Excel VBA 还 允许 使 用 Run 方法， 把 过 程 名 也 作为 字符 串 传 递 进 去 ， 实 现 调用 。 

源 代 码 : 实例 文档 95.xlsm/ 过 程 的 调用 


1 Public Sub TestRun () 

2 Application.Run "Procl" 

3 Application.Run "Proc2", "excel™" 
= End Sub 


如 采 调 用 其 他 模块 中 的 过 程 ， 别 起 记 加 模块 名 。 例 如 : 
Application.Run "m2.Procz2", "excel" 


如 有 果 要 调用 其 他 工作 短 中 的 过 程 ， 还 需要 加 上 工作 短 名 称 。 例 如 : 





Application.Run " 实例 文档 95 .xlsm! 过 程 的 调用 .Proc2m， "excel" 


表示 调用 实例 文档 95.xlsm 中 的 “过 程 的 调用 ”模块 中 的 Pro.c2 过 程 ， 参 数 是 excel。 
比较 以 上 两 种 方式 ， 更 推荐 使 用 Call 这 种 形式 ， 因 为 这 是 VB6 本 来 的 内 置 用 法 。 


5.1.3 “过程 的 参数 

在 过 程 中 使 用 参数 ， 可 以 让 程序 设计 变 得 更 加 灵活 、 便 捷 。 过 程 中 的 所 有 参数 ， 称 为 参 
数列 表 。 参 数 定义 的 格式 如 下 : 

ByRef|ByVal 参数 ] As 类 型 1， 参数 2 Rs 类 型 2… 

其 中 ， 关 键 字 ByRef 表示 按 地 址 传递 参数 ，ByVal 表示 按 值 传 递 参 数 。 参 数 1、 人 参数 2 
等 叫 作 形式 参数 ， 参 数 的 类 型 可 以 是 VBA 基本 数据 类 型 ， 也 可 以 是 对 象 型 。 


参数 的 传递 方式 、 参 数 个 数 及 其 类 型 ， 要 根据 编程 需要 目 行 指定 。 
为 过 程 定 义 了 参数 ， 就 一 定 要 想到 在 其 他 地 方 如 何 调 用 这 个 过 程 。 对 于 市 参数 过 程 的 调 
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用 ， 要 章 循 以 下 两 个 原则 。 
OD 实际 参数 的 个 数 要 与 过 程 中 形式 参数 个 数 相同 。 
口 实际 参数 的 类 型 要 与 过 程 中 形式 参数 的 类 型 相同 或 相近 。 
这 里 以 计算 根据 两 边 长 和 夹 角 计算 三 角形 面积 为 例 ， 说 明 一 下 过 程 中 参数 的 定义 和 调 
用 。 三 角形 的 面积 公式 是 5S=0.5abSinC， 其 中 a、5 是 两 边 长 , C 是 这 两 条 边 的 夹 和 朋 (弧度 制 )。 
可 以 看 出 ， 该 问题 的 已 和 条 件 是 3 个 ， 根 据 以 往 学 过 的 VBA 知识 ， 可 以 写 出 如 下 普通 
源 代码 : 实例 文档 95.xlsm/ 过 程 的 参数 


Sub Testl]{() 

Dim a As Single, b As Single, C As Single 
3 

1 

60 / 180 * 3.14159 

MsgBox 0-5D * a* hb * Sinl(c) 

End Sub 


1 
2 
3，。 
4 . b 
a 
6 
1 


代码 分 析 : 第 5 行 代 码 表示 上 C 是 60。 ， 需 要 转换 为 弧度 制 。 

运行 结果 是 15.155。 

但 是 可 以 发 现 ， 如 果 用 这 个 过 程 去 计算 男 一 个 三 角形 的 面积 时 ， 就 宕 要 重新 修改 原 过 程 
的 代码 ， 重 新 赋值 ， 这 就 很 不 方便 了 。 为 此 ， 可 以 把 上 述 过 程 改 成 带 参 数 的 过 程 ， 把 边 长 和 
角度 放 在 过 程 的 参数 列表 中 。 

源 代码 : 实例 文档 95.xlsm/ 过 程 的 参数 


Sub Test2(a As Single, b As Single, C As Single) 
MsgBox 0.5 * a* Db * Sin(c / 180 * 3.14159) 
End Sub 

Test31({) 

Call Test2(5, 717, 60) 

Test2 20, 20, 90 

End Sub 


代码 分 析 : Test2 是 一 个 市 有 3 个 参数 的 过 程 ，a、b、C 都 叫 作 形式 参数 。 在 Test3 中 调 
用 Test2 过 程 。 

第 5 行 代码 计算 两 边 长 为 5 和 7， 夹 角 为 60” 的 三 角形 面积 ， 其 中 5、7、60 都 叫 作 实 
际 参 数 ， 这 行 代码 的 返回 结果 是 15.155。 

第 6 行 代 但 计算 两 边 长 为 20 和 20， 夹 角 为 90” 的 三 角形 面积 ， 返 回 绪 采 是 200。 

从 第 5 ~ 6 行 代码 可 以 看 出 ， 这 个 带 有 参数 的 过 程 使 用 起 来 非常 方便 ， 只 需要 更 改 实际 
参数 的 数值 ， 就 可 以 计算 男 一 个 三 角形 的 面积 。 

调用 市 参 效 过 程 时 ， 一 般 情 况 下 不 需要 说 明 实 际 参数 和 形式 参 效 的 匹配 关系 ， 默 认 是 按 
照 从 左 到 右 分 别传 递 。 例 如 Call Test2(5, 7, 60)， 就 是 把 2 传递 给 a,7 传递 给 b, 60 传递 给 C。 
实际 上 ， 也 可 以 明确 地 说 明 参 数 的 分 配 情况 ， 例 如 


Call Test2 (a:=5, b:=i/, C:=60) 
Call Test2 (a:=9, C:=60, b:=7) 


wn 
己 
jh 
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这 两 行 代码 的 运行 结果 是 一 样 的 ， 尽 管 下 面 那 行 代 码 把 b 参数 指定 到 最 后 。 明 确 参数 这 
种 表达 形式 要 注意 以 下 两 点 。 

(1) 如 采 采 用 明确 参数 的 方式 ， 所 有 参数 都 必须 采用 ， 不 能 部 分 采用 。 例 如 Call 
Test2(a:=5, 7, 60) 会 导致 编译 错误 。 

(2) 参数 名 称 必 须 与 图 数 定 义 的 形式 参数 的 名 称 完全 吻合 ， 不 能 目 行 改动 。 例 如 Call 
Test2(m:=5, n:=7, Q:=60) 是 不 正确 的 ， 因 为 Test2 过 程 中 不 存在 m、n、Q 这 些 参数 名 称 。 


5.1.4 ”可 选 和 默认 参数 


前 面 举 过 的 例 了 于 ， 指 定 的 都 是 必需 参数 。 那 么 在 调用 这 种 过 程 ， 必 须 恰 好 匹配 参数 ， 参 
数 的 个 数 和 类 型 要 严格 匹配 。 

还 可 以 使 用 Optional 关键 字 为 过 程 指定 可 选 参 数 。 所 谓 可 选 参 效 ， 是 指 调用 这 种 过 程 
时 ， 这 个 参数 可 以 提供 ， 也 可 以 不 提供 。 使 用 IsMissing 因数 可 以 判断 一 个 参数 是 否 为 空 。 

下 面 的 实例 用 于 计算 日 平均 工资 。 一 般 情 况 下 一 个 月 有 22 天 是 正常 上 班 日 ， 用 一 个 月 
的 工资 数 除 以 22， 束 得 到 日 平均 工资 。 

源 代码 : 实例 文档 95.xlsm/ 过 程 的 参数 


Sub DailysSalary(Total As Integer, Optional Days AS lInteger = 22) 
MsgBox "平均 每 天 ; " & Total / Days 


] 。 

2 

3. End Sub 

4. Sub Testo{() 

= DailySalary 4000, 20 
6. End Sub 


代码 分 析 : DailySalary 过 程 有 一 个 必须 参数 Total 和 一 个 可 选 参 数 Days，Days 的 默认 
值 是 22。 

在 实际 的 调用 过 程 中 ， 可 以 使 用 “DailySalary 4000, 20” 计 算出 某 月 出 勤 20 天 ， 总 工 
资 4000 元 的 日 平均 结果 为 200。 

如 果 和 忽略 Days 参数 ， 例 如 是 DailySalary 4000 这 种 方式 ， 则 返回 181 元 ， 因 为 不 指定 
Days 的 情况 下 ， 按 出 勤 天 数 为 22 处 理 。 

此 外 ， 还 可 以 使 用 IsMissing 来 判断 是 否 为 过 程 传递 了 参数 。 

下 面 一 个 实例 用 于 计算 员工 一 天 的 出 勤 时 间 计 算 ， 根据 早 上 来 公司 的 时 刻 ， 以 及 下 班 离 
开 公 司 的 时 刻 ， 就 可 以 计算 出 上 班 总 时 间 数 ， 如 果 中 午 外 出 吃 午餐 ， 还 要 减 去 午休 时 间 60 
分 钟 。 

VBA 的 DateDi 人 ff 负数 可 以 计算 出 两 个 时 间 差 ， 例 如 ，DateDiff("n",#8:00:00#,#10:00:00#) 
束 可 以 返回 120， 因 为 n 表示 分 钟 。 

源 代码 : 实例 文档 95.xlsm/ 过 程 的 参数 


Sub WorkTime (come As Date, home As Date, Optional launch) 


a 

pa Dim ww A3s Integer 

S It IsMissing (launch) Then 
4. 


了 = VBA.DateTime.DateDiff ("nn", come, home) 
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< Else 

6. 了 = VBA.DateTime.DateDiff("n", come, home) 一 60 

汪 二 End 工 工 

8 MsgBox " 工作 时 长 (分 钟 ):" ET 

9 End Sub 

10. sub Test6{() 

11. WorkTime come:=#8:10:00 AM#, home:=#5:35:00 PM#, launch:=True 


1]2. End Sub 


代码 分 析 : WorkTime 过 程 中 ，launch 是 一 个 可 选 参 数 。 如 采 在 调用 过 程 中 ， 不 为 该 参 
数 传递 数值 ， 则 IsMissing 会 返回 True。 人 参数 缺失 的 情况 下 默认 为 该 员 | 
工 没有 外 出 就 餐 ， 不 扣 时 间 。 

第 11 行 代码 ， 调 用 过 程 时 为 launch 指定 了 和 参数， 所 以 IsMissing 
为 False ， 会 扣 掉 60 分 钟 。 

Test6 的 运行 结果 如 图 5-3 所 示 。 图 5-3 ”运行 纺 打 1 


工作 时 长 (分钟) : 505 





5.1.5 ”参数 的 传递 万 式 


VBA 过 程 的 创建 ， 可 以 为 每 个 参数 指定 传递 方式 。 参 数 传递 方式 分 为 按 引 用 传递 
(ByRef) 和 按 值 传递 (ByVal) 两 种 。 如 果 不 指定 ， 则 默认 为 按 引 用 传递 。 
如 末 是 按 引 用 传递 ， 当 把 实际 参数 传递 到 过 程 中 后 ， 被 调用 过 程 中 改变 形 参 的 什 ， 会 目 
动 修改 实 参 的 仁 。 反 之 ， 如 采 按 值 传递 ， 则 被 调用 过 程 不 能 修改 实 参 的 但 。 
源 代码 : 实例 文档 95.xlsm/ 参数 的 传递 方式 
3 Sub Testl (ByRef a As Integer, ByVal b As String) 
之 已 一 已 六 辽 
3 b = VBA.Strings.SstrReverse (b) 
4 MsgBox a & b 
9. End Sub 
6 Sub Test2() 
了 Dim C As Integer, d As String 
8 
3 


Cc 三 了] 
d= "VBA" 
10. Testl c, d 
jl Debug.Print c, d 


1]2. End Sub 


代 人 码 分 析 : Testl 过 程 中 ， 形 参 a 是 按 引 用 传递 ，b 是 按 值 传递 。 

运行 Test2 ， 执 行 到 第 10 行 时 ， 调 用 Test1l ， 变 量 c 传递 给 形 参 a, a 修改 为 自身 的 两 倍 ， 
c 也 随 之 变 成 42。 

变量 d 传递 给 形 参 b，b 修改 为 倒序 排列 ， 但 由 于 是 按 值 传递 ， 因 此 不 会 造成 变量 d 的 
改变 ， 因 此 第 4 行 代 码 的 输出 结果 是 42ABV。 

第 11 行 的 打印 结 末 是 42 VBA。 

可 以 看 出 ，e 发 生 了 改变 ，d 没 发 生变 化 。 
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5.1.6 ”参数 数量 可 变 的 过 程 


一 般 情 帝 下， 调用 过 程 时 传递 的 数目 要 与 限 数 定义 的 形式 参数 数目 相等 。 使 用 ParamArray 
关键 字 ， 可 以 创建 参数 数目 不 定 的 过 程 。 
源 代 码 : 实例 文档 95.xlsm/ 数目 不 定 的 参数 


1 Sub Testl(agv As Boolean, ParamArray numl()) 
2 Dim 1 As Integer 

3 Dim sum As Single 

44 For 1 = LBound{(noum) To UBound (num) 

Sh Sum = sum + numt{(i) 

6 Next 1 

1 Ift agv = True Then 

8 MsgBox sum / (UBoundad (num) -— LBound (num) + 1) 
= Else 

10. MsgBox sum 

上 Emo If 


1]l2. End Sub 

13. Sub Test2() 

14. Call Testl (True, 3, 4.2, 6) 
Ls Call Testl (False, 3, 6) 

1l6. End Sub 


代码 分 析 : Testl 过 程 的 定义 中 ，agv 是 一 个 必需 参数 ， 当 该 参数 为 True 时 ， 显 示 多 个 
数字 的 平均 但， 否则 ， 显 示 多 个 数字 的 总 和 。 

num0 是 一 个 参数 数组 ， 代 人 码 中 从 第 4 ~ 6 行 般 历 参 数 数组 的 中 的 每 一 个 元 系 ， 追 加 到 
SUIUII] 中 。 

第 8 行 代 人 码 计算 平均 值 ， 其 中 ，(UBound(num) - LBound(num) + 1) 用 来 获取 数组 num 
的 长 度 (元 素 个 数 )。 

运行 Test2 过 程 ， 执 行 到 第 14 行 时 ， 参 数列 表 中 的 3 个 数字 就 构成 了 一 个 数组 ,传递 
给 了 形 参 中 的 num。 

因此 第 14 行 的 运行 结果 是 4.4， 第 15 行 的 结果 是 9。 


5.1.7 ”数组 作为 参数 


一 般 情 况 下 ， 过 程 的 形 参 、 传 递 的 实 参 ， 其 类 型 通常 是 VBA 基本 数据 类 型 或 者 是 对 象 

但 有 些 时 候 ， 需 要 把 数组 作为 一 个 参数 整体 传递 。 此 时 ， 定义 晴 数 时 的 参数 类 型 需要 指 
定 为 Variant， 调 用 过 程 时 ， 只 需要 传递 数组 名 称 即 可 。 

下 面 的 实例 用 来 计算 数组 的 极 差 。 所 谓 极 差 就 是 数组 中 最 大 值 与 最 小 值 的 差 。 使 用 工作 
表 冰 数 可 以 快速 获取 数组 的 最 大 值 、 最 小 值 。 

源 代码 : 实例 文档 95.xlsm/ 数组 作为 参数 


1. Sub Testl] (Vv) 
pa MsgBox Application.WorksheetFunction.Max(v) 一 Application. 


WorksheetFunction.Minl(v) 
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3 End Sub 

4 Sub Test2{() 

i Dim arr(2 To 6) As JInteger 
6 arr(2) = 226 

了 arr(3) = 26 

8. arr(4) = 13 

90. arr(5)} = 28 

10. arr{(6)} = 82 

11. Testl1 arr 


ll2. End Sub 


代码 分 析 : Testl 带 有 一 个 变 体 型 参数 v， 调 用 过 程 时 ， 可 以 为 该 参数 传递 任意 数据 
类 型 。 

从 第 4 行 起 是 主 调 过 程 ， 第 5 ~ 10 行 声明 数组 并 为 数组 赋值 。 

第 11 行 调用 Test1， 并 把 arr 传递 给 形 参 v。 

第 2 行 返 回 数组 的 极 差 ， 结 果 是 213 。 


S.2 ”上 轴 数 


在 VBA 中 ， 肯 数 (Function ) 分 为 内 置 曙 数 和 用 户 上 自 定 义 困 数 ( User Defined Function ， 
UDF)， 这 市 主要 介绍 用 户 日 定义 限 数 的 设计 与 应 用 。 

VBA 中 的 函数 与 过 程 的 差异 非常 小 ， 几 乎 所 有 的 过 程 都 可 以 改写 为 消 数 。 

图 数 与 过 程 的 唯一 不 同 之 处 在 于 因数 可 以 有 返回 值 ， 而 过 程 不 能 有 返回 值 。 

图 数 的 书写 格式 为 : 

Public|Private Function 函数 名 (参数 列表 ) As 类 型 

函数 体 

End Function 

其 中 ， 函 数 的 作用 范围 关键 字 Public、Private 、 参 数列 表 ， 以 及 函数 的 返回 值 类 型 As 
类 型 ， 这 三 部 分 痢 是 可 有 可 无 的 。 唯 一 不 能 缺失 的 是 因数 名 称 。 

过 程 的 创建 、 运 行 和 调用 以 及 参数 方面 的 细 方 ， 同 样 适用 于 限 数 ， 这 里 不 青 重复 讲述 。 

此 外 ， 中 途 退 出 嚼 数 ,用 的 是 Exit Function， 而 不 是 Exit Sub。 

在 Excel VBA 中 ,用 户 自 定义 也 数 ， 还 可 以 用 于 工作 表 的 公式 计算 之 中 ， 而 其 他 Office 
组 件 的 目 定 义 旺 数 ， 只 能 供 VBA 语句 调用 。 


再 内 六 一 永生 并 识 朋 下 扣 过 你 本 人 除 什么， 多 语音 二 “驾到” 
Function Funny ) 或 和 反共 别 忆 ,| 用 户 定 汉 国 


迁 择 国 娄 屯 ) : 





















































End Function 


以 上 Funny 郴 数 只 有 函数 框架 ， 没 有 函数 内 容 ， 是 
个 空 函 数 。 该 函数 既 没 有 作用 范围 的 关键 字 ， 也 没有 参 
数列 表 ， 还 没有 返回 类 型 ,但 是 仍然 可 以 从 工作 表 函 数 
列表 中 看 到 它 ( 见 图 5-4)。 图 5-4“ 插 入 函数 ”对 话 框 1 
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此 外 ， 通 过 VBA 语句 也 可 以 调用 该 函数 。 
源 代码 ， 实例 文档 96.xlsm/ 函数 的 创建 和 调用 


1]. Sub Test2() 
-a Call Funny 
3. End Sub 


运行 Test2 过 程 后 ， 结 果 显 示 什 么 也 不 做 。 


5.2.1 自 定 义 函 数 的 返回 值 


自 定 义 图 数 的 返回 值 以 及 返回 值 的 数据 类 型 ， 往 往 与 图 数 的 参数 有 一 定 的 关系 。 困 数 参 
数 的 类 型 可 以 是 任意 类 型 ， 函 数 的 返回 值 类 型 同样 也 可 以 是 任意 类 型 。 

例如 计算 圆柱 的 体积 ， 函 数 的 参数 是 圆柱 的 半径 和 圆柱 的 高 ， 返 回 值 就 是 圆柱 的 体积 
值 。 对 于 VBA 初学 者 ， 直 接 写 出 自 定义 函数 也 许 有 些 困难 ,但 是 可 以 先 写 出 解决 一 个 问题 
的 VBA 过 程 ， 然 后 把 过 程 改写 为 限 数 即 可 。 

源 代码 : 实例 文档 97.xlsm/ 自 定义 函数 





1 Public Sub CylinderVolume  () 

Dim radius As Single, height As Single 

3 Dim VYV As Single 

4. radius = 2 

Ys height = 10 

6. V= 3.14159 * radius ^ 2 * height 

7 MsgBox " 圆柱 的 体积 是 : " & V 

8 End Sub 

运行 上 述 过 程 后 ， 结 果 如 图 5-5 所 示 。 图 5-5 运行 结果 2 


分 析 上 述 过 程 ， 该 数学 问题 的 参数 就 是 半径 和 高 ， 计 算 结 果 是 体积 。 因 此 可 以 把 一 个 问 
题 的 所 有 参数 放 在 负数 的 括号 内 ， 计 算 结 来 束 是 限 数 的 返回 结 来 ， 而 对 于 参数 中 实际 参数 的 
传递 ， 则 是 半数 被 调用 时 再 传递 。 因 此 可 以 改写 为 如 下 哺 数 形式 。 

源 代码 : 实例 文档 97.xlsm/ 自 定义 函数 


1. Public Function CylinderVolume (radius As Single, height As Single) As Single 
pa CylinderVolume = 3.141593 * radius ”和 2 * height 


3。 End Function 


由 于 这 个 数学 问题 涉及 的 数据 可 能 是 浮上 总 型 的 小 数 ， 因 此 参数 和 国 数 的 返回 值 都 是 
Single, 

对 于 有 返回 值 的 函数 ， 必 须 把 返回 的 结果 赋 给 子 数 名 。 也 就 是 说 ,上述 函 数 第 2 行 必 须 
用 CylinderVolume 去 接收 计算 的 结果 。 


5.2.2 目 定 义 冰 数 的 用 途 


VBA 的 目 定 义 盟 数 ， 一 般 情况 下 是 提供 给 其 他 VBA 过 程 或 曙 数 调用 的 。 
在 其 他 过 程 中 调用 定义 好 的 目 定 义 果 数 时 ， 要 考虑 是 否 需 要 获得 日 定义 图 数 的 计算 结 
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果 。 如 果 不 需 要 ， 则 和 调用 VBA 过 程 完全 一 样 ， 用 Call 关键 字 即 可 。 
下 面 的 过 程 调用 了 5.2.1 节 定 义 的 圆柱 体积 图 数 。 
Sub Testl () 


Call CylinderVolume (3, 8) 
End Sub 


Testl 过 程 计 算 了 半径 为 3、 蜗 为 8 的 圆柱 体积 ,但 是 计算 值 并 不 赋 给 任何 变量 。 也 可 
以 省 略 Call 关键 字 ， 改 写 为 : 
sub Testl]{() 


CylinderVolume 3, 8 
End Sub 


但 一 般 情形 下 ， 有 人 返 回 值 的 中 数 一 定 要 让 返回 值 补 其 他 语句 利用 。 
源 代码 : 实例 文档 97.xlsm/ 自 定义 函数 


1 Sub Test2{) 

2 Dim v1 As Single, wv2 As Single 

3。 MsgBox CylinderVolume (2, 10) + CylinderVolume (3, 8) 
4. vi = CylinderVolume (2, 10) 

5 v2 = CylinderVolume (3, 8) 

6 Debug.Print v2 一 wl 

1 End Sub 


代码 分 析 : 第 3 行 代码 计算 了 两 个 不 同 的 圆柱 体积 之 和 。 

第 6 行 代码 计算 两 个 圆柱 的 体积 之 差 。 

对 于 Excel VBA， 还 可 以 在 工作 表 的 公式 中 使 用 日 定义 晴 数 。 在 宏 有 所 在 的 工 
作 簿 的 工作 表 中 ， 输 入 圆柱 的 基本 信息 ， 然 后 在 要 计算 体积 的 单元 格 中 输入 公式 
”=CylinderVolume(B2.B3)”， 或 者 单 击 Excel 的 “ 插 和 人 图 数 ” 对 话 杠 的“ 用户 定义 ”类 别 ， 
找到 用 户 目 定义 图 数 CylinderVolume， 使 用 肯 数 癌 导 对 话 框 输入 也 可 ( 见 图 5-6)。 

总 而 言 之 ， 图 数 的 参数 可 以 没有 ， 也 可 以 是 多 个 ， 而 且 参 数 的 类 型 可 以 互 不 一 样 。 困 数 
的 返回 值 只 能 是 一 个 ， 其 类 型 既 可 以 是 VBA 基本 数据 类 型 ， 也 可 以 是 对 象 类 型 ， 还 可 以 是 
数组 。 





5 


| Pl 
Bas | 


Height 


没有 帮助 信息 


计算 尖 果 = 471.2384949 


育 关 该 鲜 数 的 帮助 () 





图 5-6 工作 表 中 使 用 自 定义 函数 
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返回 对 象 的 函数 必须 用 Set 关键 字 为 目 定 义 清 数 赋值 ， 返 回 数组 的 和 目 定义 限 数 必须 用 变 
体型 变量 去 接收 日 定义 限 数 。 
源 代码 : 实例 文档 97.xlsm/ 自 定义 函数 


1 Public Function LastSheet() As Excel .Worksheet 

2 Dim C As Integer 

EP c= ActijveWorkbook.Worksheets.Count 

4 Set LastSsheet = ActiveWorkbook.Worksheets. Iteml(c) 
与 


End Function 


代码 分 析 : 以 上 畏 数 的 功能 是 返回 工作 笑 的 最 后 一 个 工作 表 ， 返 回 类 型 是 Worksheet， 
因此 在 第 4 行 要 用 Set 关键 字 为 函数 赋值 。 

下 面 的 过 程 调用 了 上 述 过 程 。 

源 代码 : 实例 文档 97.xlsm/ 自 定义 函数 


1 Sub Test3() 

2 Dim Ww As Excel .Worksheet 
EP Set w = Lastsheet 

= Ww.Activate 

2 End Sub 


代码 分 析 : 第 3 行 代码 调用 了 LastSheet 归 数 ， 由 于 该 限 数 不 含 参数 ， 因 此 无 须 括号 。 
运行 上 述 过 程 ， 自 动 激活 工作 簿 的 最 后 一 个 工作 表 。 

下 面 是 一 个 返回 数组 的 自 定义 函数 。 

源 代码 : 实例 文档 97.xlsm/ 自 定义 函数 


1 Public Function SplitTime() As Variant 
Dim arr(l To 6) As Integer 
3 Dim dt As Date 

工 dt = Now 

Ss arr (1) = Year (dt) 
6 arr(2) = Month (dt) 
1 arr(3) = Day (dt) 

8 arr(4) = Hour (dt) 

9 arr(3) = Minute (dt) 
10 。 arr(6) = Second (dt) 
Ls SplitTime = arr 

1l2. End Function 


代码 分 析 : 返回 数组 的 函数 ， 一般 可 以 用 VBA 代码 中 的 变 体型 变量 去 接收 ， 从 而 成 为 
一 个 VBA 数组 ， 也 可 以 在 单元 格 中 以 数组 公式 的 形式 调用 日 定义 限 数 。 

上 述 SplitTime 函数 的 功能 是 把 当前 系统 时 间 拆 分 为 6 部 分 : 年 、 月、 日 以 及 小 时 、 分 
钟 、 秒 。 这 6 部 分 放 入 一 个 整 型 数组 中 。 

在 第 11 行 代码 ， 把 数组 arr 整体 赋 给 盟 数 名 ， 从 而 使 得 在 调用 该 晒 数 时 ， 目 动 获取 时 
间 的 拆 分 结果 。 

为 测试 该 限 数 的 实用 性 ， 可 以 选中 水 平方 铝 的 6 个 单元 格 ， 然 后 输入 数组 公式 
“| =SplitTime() | ， 并 按 下 快捷 键 【 Ctrl+Shift+Enter ]， 结 果 如 图 5-7 所 示 。 
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图 5-7 运行 结果 3 


5.2.3 ”设置 目 定 义 辆 数 的 说 明 信 息 


在 实际 编程 过 程 中 ， 一 个 自 定义 函数 往往 包含 很 多 行 代 码 ， 算 法 和 逻辑 也 相当 复杂 ， 例 
如 世界 三 大 智力 游戏 之 一 的 数 独 ( Sudoku) 问题 ， 就 可 以 理解 为 函数 ， 函 数 的 参数 就 是 数 独 
题目 的 初始 画面 ， 而 函数 的 返回 值 就 是 数 独 的 最 终 解 ( 见 图 5-8)。 


IBICIDIE|IF|I GIHII| TIK 
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图 $S-8 数 独 

作为 目 定 义 卫 数 的 开发 者 ， 一定 要 确保 限 数 的 正确 性 。 日 定义 函数 通过 测试 后 ， 束 要 发 
布 给 用 户 ， 除 了 把 消 数 交 给 用 户 之 外 ， 还 要 把 限 数 的 使 用 文档 提供 给 用 户 。 也 就 是 说 ， 你 要 
告诉 你 的 函数 该 怎么 有 用， 当然 ， 用户 无 须知 道 自 定 义 函数 的 编制 原理 和 过 程 。 

Excel VBA 的 Application 有 一 个 MacroOptions 方法 ,可 以 为 日 定义 隐 数 设置 有 关 说 明 
信息 (作用 是 帮助 用 户 更 便利 地 使 用 日 定义 函数 )。 

MacroOptions 方法 的 主要 参数 如 下 。 

口 Macro: 宏 名 ， 也 就 是 子 数 名 称 ， 字 人 符 串 类 型 。 

口 Description: 明 数 描述 文字 ， 字 符 串 类 型 。 

D Category: 图 数 分 类 ， 整 效 或 字符 串 。 

D ArgumentDescriptions: 参数 说 明 ， 字 符 串 数组 。 

口 HelpFile: 帮助 文档 地 址 ， 字 符 串 。 

口 HelpContextID: 帮助 文档 页 面 索 引 值 ， 整 数 。 

其 中 ，Category 规定 了 自 定义 函数 在 Excel 图 数 对 话 村 





E 中 的 所 属 类 别 ( 见 表 5-1)。 


表 5-1 Excel 函数 类 别 划 分 表 
类 别 编 号 类 别名 称 
0 全 部 
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续 表 

类 别 编 号 类 别名 称 

] 财务 

2 日 期 与 时 间 

3 数学 与 三 角 函 数 

4 统计 

5 查找 与 引用 

6 数据 库 

? 文本 

, 逻辑 

9 信息 

命令 

11 目 定 义 

12 宏 控 件 

13 DDE/ 外 部 

14 用 户 定义 

15 工程 

10 Cube 

17 兼容 性 


ArgumentDescriptions 参数 必须 是 一 个 数组 ， 数 组 的 每 一 项 内 容 恰好 是 目 定 义 果 数 每 一 
个 参数 的 说 明文 字 。 

对 于 5.2.1 方 中 的 圆柱 体积 函数 CylinderVolume， 运 行 如 下 过 程 ， 为 该 困 数 指定 呵 数 类 
别 ， 以 及 函数 的 描述 、 各 个 参数 的 说 明 。 

源 代码 : 实例 文档 97.xlsm/ 自 定 义 函 数 

1 Sub Test4() 

之 Dim args(l1 To 2) As String 

args (1) = " 圆柱 的 半径 ， 浮 点 型 。" 

4. args (2) = "圆柱 的 高 ， 浮 点 型 。" 

= Application.MacroOptions Macro:="CylinderVolume", Description:=" 本 函数 
根据 半径 和 和 高 和 计算 圆柱 的 体积 。 ", Category:=3, ArgumentDescriptions:=args 

6. End Sub 

代码 分 析 : 该 过 程 中 的 args 是 一 个 字符 串 数 组 ， 用 来 把 它 赋 给 MacroOptions 方法 的 
ArgumentDescriptions 参数 。 由 于 圆柱 体积 图 数 只 有 2 个 参数 ， 所 以 args 数组 也 只 需要 2 个 

第 5 行 是 核心 代码 ， 为 CylinderVolume 困 效 指定 了 困 数 的 撒 述 、 上 因数 类 别 为 3 (数学 与 
三 角 困 数 )， 使 用 数组 args 作为 参数 说 明 。 

运行 过 程 Test4 后 ， 回 到 Excel 工作 表 界 面 ， 单 击 “ 搬 和 人 图 数 ”按钮 ， 弹 出 对 话 杠 
( 见 图 5-9)。 

类 别 选择 “数学 与 三 角 六 数 ”， 从 中 可 以 找到 目 定 义 困 数 CylinderVolume， 同 时 可 以 看 
到 该 明 数 的 描述 文字 :“ 本 上 因 数 根据 半径 和 高 ， 计 算 圆 柱 的 体积 。 
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单 击 “ 插 入 了 清 数 ”对 话 框 的 “确定 ”按钮 ， 进 入 卫 数 癌 导 界面 ( 见 图 5-10)。 


| | “a =Cylinderyolune (B2, E3Y 























| 本国 数 恨 需 半径 和 襄 ， 计算 画 栏 白条 积 。 
| Heighi 圆柱 的 高 . 滩 点 型 . | 


计算 结 曙 = 1.23B4949 





Lm |]| ws | 
图 5-9“ 捅 和 函数” 对话 框 2 图 5-10 ”也 数 向 导 
“ 隐 数 参数 ”对 话 杠 中， 如 果 单 击 Height 参数 ， 可 以 看 到 显示 该 参数 的 说 明文 字 : 
“Height 圆柱 的 高 ， 浮 点 型 。 。 
但 是 ， 单 击 该 对 话 框 左下 角 的 “有 关 该 限 数 的 帮助 (HH) ,会 弹出 “没有 该 子 数 的 
帮助 ”。5.2.4 方 将 会 介绍 使 用 HIML Help Workshop 制作 帮助 文档 。 


注意 ， 一 个 自 定义 函数 只 能 处 于 某 一 特定 函数 类 别 中 ， 也 就 是 说 上 述 函 数 能 够 在 “ 数 
学 与 三 角 函 数 ”中 找到 ， 那 么 就 意味 着 从 其 他 函数 类 别 中 找 不 到 该 函数 。 当 然 ， 从 
“全 部 ”类 别 中 能 找到 任何 一 个 函数 (内 置 的 ， 以 及 用 户 自 定义 的 )。 


对 于 刚刚 创建 的 月 定义 困 数 ， 如 果 不 通过 MacroOptions 方法 重新 指定 所 属 类 别 ， 那 么 
默认 类 别 是 14 (用 户 定 义 )。 通 过 MacroOptions 方法 还 可 以 把 日 定义 函数 放 在 一 个 用 户 定 义 
的 单独 类 别 中 。 

源 代 码 : 实例 文档 97.xlsm/ 自 定义 函数 


1]. Sub Testo() 


2 Application.MacroOptions Macro:="SplitTime™, 下 
Category:=" 刘 永 富 的 函数 列表 " 揪 地 国 整 [5): 
请 坑 人 一 条 币 短 说 明 来 插 还 您 如 佑 什么 ， 天 车 单 击 " 苇 到 
EE Application.MacroOptions Macro:="LastSsheet™, 
Category:=" 刘 永 富 的 函数 列表 " | 


4. End Sub 


代码 分 析 : 该 过 程 的 Category 参数 不 是 一 个 整数 ， 而 是 一 
个 字符 串 ， 这 表示 要 创建 一 个 新 的 图 数 类 别 。 此 时 ， 在 Excel | sease sms 
工作 表 界 面 本 搬入 子 数 ， 可 以 看 到 多 了 一 个 用 户 自 定义 的 
限 数 类 别 :“ 刘 永 宦 的 水 数 列表 ”， 从 该 类 别 中 可 以 找到 两 个 用 
户 自 定义 函数 ，LastSheet 和 SplitTime， 如 图 5-11 所 示 。 图 5-11 自 定义 函数 类 别 














5.2.4 为 上 自 定 义 国 数 创 建 帮 助 文 档 


HTML Help Workshop 是 微软 公司 开发 的 专门 制作 帮助 文件 的 软件 ， 用 该 软件 可 以 方 
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便 地 制作 扩展 名 为 .chm 的 帮助 文件 。 本 书 配 大 资源 可 以 下 载 到 该 软件 ， 文 件 名 为 HHWork- 
shop474.zlp。 

chm 送 助 文件 也 可 以 称 作 “电子 书 ”， 看 起 来 有 点 像 Word 文档 ， 呈 现 为 树 形 级 联结 构 
( 见 图 5-12 ) 。 


图 帮助 


二 吕 让 
隐 臣 ”上 上 一步。 打印 球 击 占 ] 


i 


日 训 | "BE& 中 的 过 程 
过 程 的 运行 和 调用 
习 这 程 的 荣 独 
日 说 ”名 中 的 加 者 
国 自 宝 党 民 吉 cminaaryvolmail | [Pupblic EPECTEORE CYlineaerV oumelradius As Sirniele, heieht As vingle) As Sirnele 
ii + height 


国 自 定 岂 画 赤 sz1i rcTime 的 用 时 CylinderVFolume = 3.7413590 + yadiuns 了 站 下 


End Function 


参数 说 明 : 


® AdINS: 圆柱 的 半径 ， 学 点 型 
s。 height， 贺 柱 的 高 度 。 学 点 型 


返回 值 : 
国 柱 的 体积 。 学 点 开 


| 再 用 示例 : 





图 $-12 chm 帮助 文件 


chm 帮助 文件 实质 上 是 多 个 HTML 网 页 的 集合 ， 也 就 是 把 多 个 有 关系 的 HIML 网 页 整 
合成 一 个 扩展 名 为 .chm 的 单独 文件 。 

以 下 假定 chm 帮助 文件 中 有 两 大 方 ， 每 一 大 方 包含 两 小 厂 。 对 于 chm 帮助 文件 ， 大 市 
既 可 以 有 关联 的 HIML 页 面 ， 也 可 以 没有 。 在 启动 HTML Help Workshop 软件 之 前 ， 需 要 
在 一 个 文件 夹 中 准备 以 下 6 个 htm 文件 (可 以 使 用 网 页 编辑 工具 制作 )。 

DD VBA 中 的 过 程 (文件 : VBA 中 的 过 程 .htm)。 

> 过 程 的 运行 和 调用 (文件 : 过 程 的 运行 和 调用 .htm ) 。 
> 过 程 的 参数 (文件 : 过 程 的 参数 .htm ) 。 
口 VBA 中 的 函数 (文件 : VBA 中 的 函数 htm)。 
> 日 定义 阴 数 CylinderVolume 的 用 法 (文件: 目 定 义 图 数 Cylindervolume 的 用 
法 .htm)。 TI 
> 自 定义 函数 SplitTime 的 用 法 (文件 lassalal 
日 定义 卫 数 SplitTime 的 用 法 .htm ) 。 

网 页 文件 制作 完毕 后 ， 接 下 来 解压 缩 “ 开 发 
资源 /HHWorkShop474.zip” 中 的 文件 ， 安 装 好 
HTML Help Workshop 软件 并 启动 。 

选择 “文件 ”一 “新 建 ” 命 令 , 在 弹出 的 对 话 框 中 

在 新 建 方案 对 话 框 中 ， 单 击 “ 训 览 ” 按 钮 ， 
新 建 一 个 chm 工程 文件 ， 与 前 面 的 htm 网 页 文件 5-13 ”新 建 方 案 
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处 于 同一 路 径 ， 工 程 名 重 命 名 为 FunctionsHelp.hhp ( 见 图 5-14)。 


单 击 “ 下 一 步 ” 按 钮 后 ,创建 工程 完成 ， 可 以 看 到 左 侧 界面 有 “方案 " “目录 ”“ 索 引 ”3 
个 窗 格 ， 如 图 5-15 所 示 。 


泌 HTML Help Workshop 人 | 
到 二 工具 ID 再 助 HH) 
口 | 他 | 到 | 到 | 


方案 | 目录 | 索引 | 


当 | 5 ilud fils big 

己 Gi 1l]s s 
指定 您 的 方案 妈 件 的 名 称 ， 以 及 您 天意 把 下 
让 可 


mr complle rogressko 
Languags=0x6ny 中 六 哨 访 ， 中 国 | 


叫 生 吾 法 基础 chm 示例 FunctionsHelp. hhp 下 


局 
浏览 | 





| 





图 5-14 指定 方案 保存 路 径 图 5-15 工程 界面 
单 击 “方案 ” 窗 格 ， 并 单 击 从 上 往 下 数 的 第 2 个 按钮 ， 为 工程 添加 前 面 设计 好 的 6 个 网 
页 文件 ( 见 图 5-16)。 


接 下 来 切换 到 “目录 ”和 窗 格 ,这 个 窗 格 的 设计 对 于 chm 最 终 文 件 具 有 非常 重要 的 作用 ， 
因为 这 个 窗 格 决定 这 个 文档 的 目录 层次 。 
首先 创建 大 标题 ， 单 击 文 件 夹 形状 的 按钮 ， 输 入 标题 “VBA 中 的 过 程 “， 如 采 该 标题 与 


一 个 htm 文件 关联 ， 则 单 击 “添加 ”按钮 ， 选 择 一 个 网 页 文件 。 如 采 该 标题 只 是 一 个 标题 ， 
单 击 标题 不 切换 到 任何 页 面 ， 则 只 需要 输入 标题 《 见 图 5-17)。 


最 HTML Help Weorkshop 


最 HTML Help Workshop 


Conpatibiliis=]. | mr Later 
i1a=Fume iinsHelp. ln 





图 5-16 添加 网 页 文件 


图 5-17 创建 目录 


仿照 上 面 的 做 法 ， 单 击 从 上 往 下 数 的 第 3 个 按钮 (文件 形状 的 按钮 )， 为 大 标题 添加 小 
标题 ， 单 击 “ 添 加 ”按钮 ， 如 图 5-18 所 示 。 


添加 完成 后 ， 可 以 清晰 地 看 到 目录 层次 是 两 个 大 标题 ， 每 个 大 标题 包含 两 个 小 标题 ， 如 
图 5-19 所 未 。 


到 此 ， 一 个 人 简单 的 chm 工程 就 创建 好 了 ， 接 下 来 就 可 以 把 hhp 工程 文件 编译 为 chm 
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帮助 文件 了 。 


嘱 HTML Help Workshap | 加 | HrMLHclpwWordshop ee Pp 9 [ec pS 
一 一 栅 图 [机 车 工具 [后 一 和 时 [HH 
口 | 梳 | 气 |e| 副 | 


方案 目录 | 索引 | 


上 9 一 一 一 - 
富 规 | 高 级 | 
特 记 标题 交 ] : 可 用 的 入 忌 淆 别 元 ] : 


| s 的 用 法 
的 站 刘 编辑 友 ). . .| 磷 陈 二 2 | 

素 片 TEL 与 它们 昌 导 局 兴 别 呈 2): 

[se rat r= 


ET Dm]... 





图 5-18 ”添加 二 级 目录 标题 图 5-19 工程 初步 完成 


单 击 工 具 栏 中 从 左 到 右 数 的 第 3 个 编译 按钮 ， 出 现 界面 如 图 5-20 所 示 。 

单 击 “编译 ”按钮 ， 稍 等 片刻 在 文件 夹 中 可 以 看 到 生成 了 一 个 FunctionsHelp.chm 文件 ， 
这 个 就 是 最 终 的 成 品 。 双 击 这 个 chm 文件 ， 就 可 以 查看 。 

从 以 上 的 讲解 可 以 看 出 ，chm 文件 就 是 把 多 个 HTML 网 页 文件 整合 在 一 起 ， 用 户 通过 单 
击 左 侧 的 文档 结构 图 ， 就 可 以 实现 页 面 的 跳 转 。 

chm 帮助 文件 还 有 一 个 重要 的 概念 ， 就 是 页 面 的 ID 值 。 在 程序 开发 中 ， 很 多 情况 下 需 
要 日 动 跳 转 到 菏 chm 文件 的 某 一 特定 页 面 ， 这 就 需要 在 编译 为 chm 文件 之 前 ， 为 网 页 文件 
设置 编号 值 。 在 HTML Help Workshop 软件 中 选择 “文件 ”一 “全 部 关闭 ”命令 ， 然 后 在 文 
件 夹 中 找到 FunctionsHelp.hhp ， 用 记事 本 打开 该 文件 。 

在 [INFOTYPES] 上 方 插 入 以 下 4 行文 本 : 


[ALIRAS ] 
#include ALIAS.h 


[MAP| 
#include MAP.h 


结果 如 图 53-21 所 示 。 


FE lp Workshap 


Compatibility=1. 1 er later 
Compiled file=FunctionsHelp. chm 
Contents file=Contents. hhe 
|Dasplay compile progress=M 


Laneuage=0x804 中 文 ( 简 体 ， 中 国 ) 


三 坑 译 前 怪 存 所 有 训 件 G) 
「 却 碳 动 显示 已 才 笠 的 帮助 交 件 以 





NBME 法 训 chm 直 FunctionsHelphhp "| LINFOTYPES] 


a 图 5-21 在 记事 本 中 编辑 工程 文件 
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然后 关闭 并 保存 记事 本 文件 。 
接 下 来 ， 用 记事 本 新 建 一 个 文本 文件 ， 重 命名 为 ALIAS.h， 该 文件 的 内 容 如 图 5-22 所 示 。 
用 类 似 的 方法 创建 MAP.h, 文件 内 容 如 图 5-23 所 示 。 








| 文人 (F) 靖 全 FE) 格式 (DO) 查看 (V} 帮助 (H} 京 性 [F) “六 妓 [E) 必 式 'O) 坦 吾 fw] 帮助 (H) 


P5- 自 定义 函数 Cy ee olume 的 用 法 . htm 
P6= 自 定 忌 函数 splitTime 的 用 法 . htm #define P6 2009 





图 5-22 ”编辑 ALIASh 文件 图 5-23 ”编辑 MAPh 文件 


我 们 仔细 观察 上 面 两 个 文件 ， 可 以 发 现 Ps 对 应 的 网 页 是 “ 自 定义 函数 CylinderVolume 
的 用 法 .htm”， 对 应 的 ID 是 2001。 那 么 在 代码 中 调用 到 2001 ， 就 意味 着 月 动 跳 转 到 它 对 应 
的 网 页 文件 。 

编辑 并 保存 好 以 上 两 个 文件 后 ， 用 HTML Help Workshop 再 次 编译 一 次 ， 生 成 新 的 chm 
帮助 文件 。 

制作 好 chm 帮助 文件 后 , 在 VBA 中 可 以 通过 多 种 方式 去 利用 帮助 文件 。 

源 代码 : 实例 文档 97.xlsm/ 自 定义 函数 


1] Sub Test6{) 

2 Dim chm As String 

5 chm = “"E:\ chm 示例 \FunctionsHelp.chm" 

4 Application.Help HelpFile:=chm, HelpContextID:=2000 
3 End Sub 


代码 分 析 : 字符 串 变 量 chm 表示 帮助 文件 的 路 径 。 
运行 上 述 过 程 ， 会 自动 打开 chm 帮助 文件 ， 并 且 首 先 显 示 ID 为 2000 的 网 页 页 面 。 
也 可 以 把 过 程 中 第 4 行 代码 更 换 为 : 


MsgBox "Hello CHM ! "， vbhOKCancel + vbhQuestion + vbMsgBoxHelpButton, 
HelpFile:=chm, Context:=2001 


重新 运行 Test6， 前 先 弹 出 输出 对 话 框 ( 见 图 5-24)。 
单 击 “帮助 ”按钮 ， 会 自动 打开 帮助 文件 ， 并 日 动 显示 ID 为 2001 的 网 页 页 面 (也 就 是 
日 定义 函数 CylinderVolume 的 那 页 )， 如 图 5-25 所 示 。 


注意 : 单 击 Msgbox 的 “帮助 ”按钮 后 ， 并 不 会 关闭 MsgBox 对 话 框 。 必 须 单 击 “ 确 
定 ” 或 “取消 ”按钮 才能 关闭 对 话 框 。 


在 Excel VBA 中 除了 用 Application.Help 方法 和 Msgbox 来 利用 帮助 文件 外 ， 还 可 以 为 
目 定 义 图 数 (CUDEF ) 提供 帮助 信息 。 
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超 实 用 的 数学 困 数 : CylinderVolume 
函数 原型 : 


blie Funerion Cirider omerrality AY Sngile, Haipht AS SNele As Spele 
Cinder pome = 3. 41 30 本 FT * 2 + feleh 
Er Puncton 











参数 说 明 : 


s ITS 出 1 图 性 扑 半 和 社 ; 尝 点 型 
hisht， 回 柱 的 高 诗 ; 污点 型 


返回 值 : 


[| 
@ Hello CHM ! : 图 柱 的 十 各 。 泽 点 型 


调用 示例 : 


5 


|| 
, | ED Suh 
| | mm 也 


4 














图 5-24 带 有 帮助 按钮 的 输出 对 话 框 图 5-25” 跳 转 到 指定 ID 的 页 面 


源 代码 : 实例 文档 97.xlsm/ 自 定义 函数 


1] Sub Testy/ 1() 

FA Dim chm As String 

:和 chm = “"E: \chm 示例 \FunctionsHelp.chm" 

4. Application.MacroOptions Macro:="CylinderVolume", HelpFile:=chm, 


HelpContextID:=2001 
D3. End Sub 


代 人 码 分 析 : 第 4 行 代码 ， 通 过 宏 选 项 规定 目 定 义 函 数 CylinderVolume 的 帮助 文件 ， 以 
及 该 帮助 文件 中 的 页 面 位 置 。 

运行 Test7 过 程 后 ， 在 工作 表 中 再 次 插入 清 数 时 ， 在 也 数 向 导 对 话 框 的 左下 角 ， 单 
击 “ 有 关 该 晒 效 的 帮助 (H)” 按 钮 ， 就 日 动弹 出 chm 帮助 文件 ， 显 示 该 限 数 的 信息 ( 见 
图 5-26)。 





CylinderVolume 
Radius Be 国 


5 
Height |B3 晤 | = 6 


471.2384949 








本 函数 根据 半径 和 高 ,计算 圆柱 的 体积 。 
Radius 圆柱 的 半径 ， 泽 点 型 。 


图 5-26 指定 函数 参数 的 说 明文 字 





提示 : 如 果 对 编译 完成 的 chm 文件 不 满意 ， 可 以 在 HTML Help Workshop 中 选择 “ 文 
件 ” 一 “打开 ”命令 ， 选 择 方案 文件 ， 重 新 编辑 修改 。 


至 此 ，chm 帮助 文件 的 制作 讲述 完毕 。 如 有 果 要 设计 更 加 美观 、 完 善 的 帮助 文件 ， 请 庶 独 
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查阅 其 他 相关 资料 。 
本 广 chm 帮助 文件 相关 源 文 件 路 径 为 : 源 代码 文件 \ 过 程 与 果 数 设计 \chm 示例 。 


习题 


1. 设计 一 个 囊 参 数 的 过 程 ， 并 通过 男 一 个 过 程 调用 并 执行 它 。 

2. 设计 一 个 根据 出 生年 份 判断 属相 的 图 数 ， 例 如 2017 年 出 生 的 属 鸡 。 制 作 完 成 后 ， 从 
工作 表 中 输入 公式 ， 使 用 该 日 定义 函数 。 

3. 海伦 公式 根据 三 角形 的 三 边 长 ， 计 算 三 角形 面积 ， 适 合 于 任意 形状 的 三 角形 。 其 公 
式 为 : 

S=Vyp(p-a)(p-b)(p-o) 

甘 巾 ，_Q+2+c 
其 中 ,pp = 

请 基于 上 述 公 式 设 计 一 个 自 定义 函数 Area， 用 于 计算 任意 三 角形 的 面积 。 设 计 完 后 ， 
调用 Area 图 数 计算 三 边 长 分 别 为 8、1$、17 的 三 角形 面积 。 


第 6 章 


门 程序 调试 和 错误 处 理 






“人 非 圣 贤 ， 训 能 无 过 。” 程 序 代码 虽然 是 通过 计算 机 编 详 执行， 但 是 大 多 数 代 人 码 部 是 人 
类 写 出 的 ， 这 样 就 难免 出 现 各 种 各 样 的 错误 。 项 目的 重要 程度 和 错误 类 型 不 同 ， 寻 致 的 后 采 
的 严重 程度 也 不 同 。 例 如 ， 在 一 次 全 国 性 的 目 动 化 考试 过 程 中 ， 出 题 系 统 存在 一 处 Bug， 寻 
到 
在 程 





6.1 程序 调试 技巧 


一 个 VBA 项 目 主要 涉及 两 个 范畴 : 一 是 开发 端 ; 二 是 用 户 病 。 开 发 人 员 根据 用 户 需 求 
制订 程序 编写 和 实施 计划 ， 把 项 目 完 全 制作 好 后 ， 才 能 交付 给 用 户 使 用 。 一 般 来 说 ， 用 户 的 
任务 只 是 使 用 开发 人 员 做 好 的 软件 。 

但 是 在 很 多 情况 下 ， 开 发 人 员 在 设计 软件 时 ， 同 时 还 要 充当 用 户 的 角色 ， 模 仿 用 户 使 用 
软件 。 这 样 就 可 以 在 程序 调试 期 间 发 现 更 多 的 问题 ， 从 而 使 得 问题 及 时 得 到 解决 。 

实际 上 ， 用 户 使 用 的 是 开发 人 员 制 作出 来 的 功能 ， 一 个 功能 可 能 由 多 个 过 程 、 多 个 清 数 
构成 ， 用 户 在 使 用 这 个 功能 的 时 候 ， 和 该 功能 有 关 的 程序 代码 会 一 连 串 连续 执行 完毕 。 而 开 
发 人 员 在 开发 这 个 功能 的 时 候 ， 是 一 行 一 行书 写 代 人 码 的， 为 了 测试 该 功能 是 否 正 第， 就 需要 
用 到 程序 的 调试 技巧 了 。 


6.1.1 单 步 执行 程序 


VBA 程序 调试 过 程 中 ， 按 下 快捷 键 【 F5 】 可 以 一 次 性 把 一 个 过 程 执行 完毕 ， 如 果 按 下 
快捷 键 【F8 】， 则 可 以 从 过 程 的 开始 处 单 步 执 行 ， 按 一 下 快捷 键 【F8 】 回 下 执行 一 行 。 

单 步 执 行程 序 的 目的 和 意义 在 于 ， 在 执行 期 间 ， 可 以 通过 立即 窗口 、 监 视窗 口 或 本 地 窗 
口 及 时 查看 变量 或 表达 式 的 类 型 和 取 值 。 
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一 天 二 次 方程 的 求 根 公 式 为 
_ b+ Nb” —4ac 


元 二 
2a 


下 面 的 程序 用 来 求解 2x+11x-21=0 这 个 方程 的 两 个 实数 根 。 根 据 求 根 公式 可 以 写 出 如 
下 博 数 和 过 程 。 
源 代码 : 实例 文档 98.xlsm/ 逐步 调试 


1 Public Function Solvela As Single, b As Single, cc As Single) 
过 Dim delta As Single 

本 Dim XL As Single, x2 As Single 

4. delta 一 日 2 4*a*c 

= XL = -b + Sqr{(delta) 

吾 X1L = xl / 2 * a 

1 X22 = -bb — Sqr{delta) 

8 X2 = Xx2 /2*a 

9 Debug.Print xl, Xx2 


10. End Function 

11. Public Sub Testl]l{) 
12. Solve 2, l11, -21 
13. End Sub 


代码 分 析 : 上 述 程序 的 人 口 在 第 11 行 ， 因 此 鼠标 置 于 过 程 Testl 中 ， 按 下 快捷 键 【 F8 】， 
可 以 看 到 即将 要 执行 到 的 行 ， pope 同时 该 行 左 侧 有 个 箭头 ( 见 图 6-1)。 


Public Function Solve(a As Single, b As Single, c As Single) 
Dim delta As Single 
Dim xl] As Single, xX2 hs Single 
人 =b 之 一 入 末 旦 来 开 
三 = 和 4 hg 
i = XL， 六 
x2 = -b — me 


X 二 xX2/2#*a 
Debue. Print xl, x2 
End Function 
ee Sub Testl1() 
ul J = 
Ew Sub 





图 6-1 爱 步 运行 

由 于 Testl 过 程 调 用 了 Solve 函数 ， 所 以 会 日 动 跳 人 到 Solve 函数 中 ， 继 续 单 步 执行 。 

全 部 执行 完毕 后 ， 立 即 窗口 打印 出 的 两 个 实数 根 是 6 和 -28。 这 个 结 采 与 笔算 的 结 采 完 
全 不 一 样 

为 此 ， 单 击 VBA 编辑 太 的 “视图 ” 沫 单 ， 打开 立即 窗口 和 本 地 窗口 ， 再 次 逐步 运行 
程 Testl 。 

每 执行 一 行 ， 会 看 到 本 地 窗口 各 个 变量 的 数值 在 发 生变 化 。 在 此 期 间 还 可 以 在 立即 窗口 
输入 “? 变量 ”这 样 的 方式 ， 来 计算 表达 式 的 全。 例如 输入 “? xlx2” 可 以 一 次 性 查看 两 
个 变量 的 当前 取 值 ( 见 图 6-2)。 

利用 这 种 方式 不 难 发 现 ， 出 问题 的 代码 行 位 于 x1=x1/2*a 这 一 行 ， 应 该 把 2*a 用 圆 括 号 
括 起 来 。 

修改 代码 后 ， 再 次 运行 ， 该 方程 的 两 个 正确 的 实数 根 是 1.5 和 -7。 
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国文 HB 后 和 视 加 中 把 DD HE 调 城 [四 运行 TaD 外 棕 程 序 四 枪 吕 EM 帮 包 时) 
国 罗 - 园 | 中 征询 牛 | 林 站 | 有 而 国 骨 | 时 呈 窟 和 关 | 和 | 行列 2 
: 挛 旺 的 种 用 - 字符 与 字符 囊 针 时 - 惧 刀 去 簿 - 加 据 兴 有理 - 己 用 申 引 -” 兰 侍 选 捍 -” 扩 环 持 市 | ~” 这 程 与 函 获 ”错误 外 至 -” 进 阶 接 要 -= pplication 对 总 -Workbookd 乏 - 和 
i 4 | [ 蝇 击 ? =] [selvwe -| 
Pub]lie Funetion Solvefa As Single, b As Single, ¢ as Single) 了 
Dim delta As Single 
Dim xl Bs 2 x2 As Single 
人 = 上 b 和 上 宙 到 于 


= Sor elta) 
到 = xl] /2 
x2 = —b — Sar (delta) 
如 


X22 = x A 3 册 
Debue. Print xl1, x2 
End Function 


Public Sub Testl1 





solve 2, 11, -21 
End sub 





图 6-2 通过 本 地 窗口 查看 变量 的 值 


6.1.2 设置 断 点 


很 多 情况 下 ， 一 个 VBA 过 程 或 消 数 中 的 代码 有 成 干 上 万 行 ， 调 试 这 种 过 程 时 ,使 用 单 
步 执行 就 不 合适 了 ， 那 需要 按 成 干 上 万 次 快捷 键 【 F8 】 才 能 调试 完毕 。 但 是 也 又 不 能 直接 按 
快捷 键 【 F5 】 一 次 执行 冠 ， 因 为 这 样 往往 找 不 到 错误 。 

VBA 可 以 设置 为 代 但 行 设置 断 点 ， 设 置 了 断 点 后 ， 即 使 按 下 了 快捷 键 【F5 】， 当 执行 到 
断 点 行 时 ， 也 会 日 动 暂停 程序 的 执行 。 设置 和 取消 设置 断 点 的 快捷 键 是 【 F9 】， 把 光标 置 于 
茶 一 行 代码 中 ， 按 下 快捷 键 【 F9 】 后 ， 这 行 代 人 码 背 景色 变 成 紫色 ， 表 次 按 下 快捷 键 【 F9 】， 
这 行 代码 颜色 变 成 正常 颜色 。 在 一 个 过 程 或 隐 数 中 ， 可 以 将 多 行 设置 为 断 点 行 ( 见 图 6-3)。 





Public Function Solvet(a Ms Single, b As Single, ce Ms Single) 
Dim delta Ms Sinele 
Dim xl1 As Single, x2 Ms Single 


Xl = = -b 和 


End Function 

Publie Sub Testl0 
Solve 2, 11, 21 

End sub 





图 6-3 设置 断 点 
设置 断 点 后 ， 调 试 程序 时 ， 就 可 以 百 接 按 快捷 键 【 F5 】 了 ， 对 于 没有 设置 靳 点 的 语句 
块 ， 就 可 以 一 次 性 执行 完毕 ， 直 至 遇 到 断 点 行 ， 从 而 大 大 提高 了 程序 调试 的 效率 。 
6.1.3 使 用 Stop 语句 


根据 个 人 的 习惯 爱好 ， 有 些 开 发 人 员 不 喜欢 设置 断 点 行 ， 那 么 可 以 使 用 Stop 语句 ， 
Stop 语句 与 断 点 行 的 作用 相同 ， 程 序 执行 到 Stop 语句 时 ， 自 动 暂 停 程 序 的 执行 。 而 在 Stop 
之 前 或 之 后 的 语句 块 是 一 次 执行 的 。 





程序 处 于 暂停 模式 时 ， 可 以 利用 立即 窗口 和 本 地 窗口 查看 各 个 变量 的 值 。 此 外 还 可 以 把 
鼠标 置 于 代码 中 某 个 变量 上 方 ， 会 自动 弹出 该 变量 的 取 值 ， 例 如 图 6-4 提示 delta=289。 这 
个 自动 提示 变量 值 的 功能 ， 在 VBA 的 “选项 ”对 话 框 中 ,但 必须 确保 勾 选 了 “自动 显示 数 
据 提 示 ” 复 选 枉 ， 如 图 6-5 所 示 。 


丧 后 器 | | 可 过 接 的 | 
代码 准 于 
Public Function Solvefa As Single, b As Single, © As Single) 也 二 
m delta Ms Single ais 全 自动 北齐 工 ) 
Di 1 Bs Sinegl 也 向 1 a 由 
i 万 自动 员 比 店员 呈 | 
kl 二 -b + Sgr (delta) [自动 显示 快速 信息 心 ) 


xl] = XxX] / 2a 区 自动 显示 埃 据 择 示 此 | 
x2 = -b — Sqgr (delta) 








| s a 
1 惨 党 辑 时 可 摘 训 训 下 各) 
招 扫 省 可 看 所 有 六 岂 出] 

Debug. Print xl, x2 [ 过 程 切 师 符 让) 

End Function 

Publie Sub Testl 人 
Solve 2, ll, -21 

End Sub 





图 6-4 使 用 Stop 语句 暂停 程序 执行 图 6-5 勾 选 “自动 显示 数据 提示 ” 复 选 杠 
如 果 未 勾 选 该 复 选 框 ， 则 在 程序 暂停 期 间 ， 不 会 提示 变量 的 当前 值 。 


注意 : Stop 语句 的 功能 非常 类 似 于 设置 断 点 ， 但 Stop 语句 仅 用 于 程序 调试 。 在 作品 
发 布 给 用 户 之 前 ， 要 记得 清除 作品 中 所 有 的 Stop 语句 ， 人 否则 ， 当 用 户 使 用 到 相应 的 
功能 时 ， 有 可 能 出 现 莫 名 其 妙 的 错误 。 


6.2 和 馈 误 处理 


VBA 中 的 代码 错 误 主要 分 为 编译 错误 和 运行 时 错误 

编译 错误 是 指 代码 中 存在 语 法 销 吕 导致 代码 无 的 生 ， 刚 放 拆 行 ， 训 出 和 商 村 话 

例如 ， 单 词 与 单词 之 间 没 有 保留 一 个 以 上 的 空格 ,多 个 关键 字 连 在 一 起 ,或 者 关键 字 拼 
写 错 误 等 ， 都 会 引起 如 图 6-6 所 示 的 编译 错误 。 

再 例如 ， 同 一 个 模块 中 ,书写 了 一 个 以 上 的 同名 过 程 引 起 的 二 义 性 错误 ,也 属于 编译 错误 。 

一 般 来 说 ， 编 译 错 误 比 较 明 显 ， 当 开发 人 员 试 图 执行 某 过 程 时 ， 立 刻 弹出 警告 对 话 框 ， 
根据 对 话 框 提示 的 错误 种 类 ， 找 到 出 错 原 因 、 进 行 修改 即 可 。 

而 对 于 运行 时 错误 ， 则 在 VBA 语法 上 一 般 没 什么 大 的 问题 。 运 行 时 错误 通常 有 类 型 不 
匹配 、 数 组 越界 、 对 象 不 存在 等 ( 见 图 6-7)。 


Sub testl() 
Dim a As Single 
a= “Hello” /0 
End Su 


Microsoft Wisual Basic 


证 行 时 出 品 “13 : 
类 型 二 匹配 





贡 中 FE] | [imy| 如 助 H] | 


图 6-6 编 详 错误 图 6-7 运行 时 错误 
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像 这 类 错误 ， 一 般 从 字面 上 难以 找到 原因 ， 一 般 需 要 仔细 调试 ， 逐 行 排查 才 行 。 对 于 
一 些 无 法 通过 修改 代码 来 排除 的 和 错误， 还 需要 使 用 错误 处 理 霹 句 ， 使 得 程序 能 够 顺畅 地 运 
TF 去。 

运行 时 错误 的 出 错 原 因 错 综 复 杂 ， 错 误 处 理 的 方法 也 比较 多 ， 因 此 本 章 重 点 讨论 运行 时 
错误 及 其 处 理 方法 。 


6.2.1 Err 对 象 


在 VBA 程序 中 ， 有 一 个 看 不 到 的 Err 对 象 ， 这 个 Er 对 象 用 来 描述 程序 当前 的 错误 状态 。 

Err 对 象 有 两 个 重要 属性 。 

D Number : 错误 代 人 码 。 当 程序 未 出 错时 为 0， 运 行 时 出 错 后 ， 该 属性 是 一 个 正 整 数 ， 
数字 大 小 依据 错误 类 型 而 定 。 

D Description : 与 错误 代码 相对 应 的 错误 描述 文字 ， 用 来 告诉 开发 人 员 或 用 户 出 错 的 
原因 。 

Err 对 象 有 两 个 重要 方法 。 

口 Clear: 清除 错误 ， 使 得 Number 属性 为 0。 

口 Raise: 引发 销 充 。 

通过 下 面 的 过 程 ， 来 理解 和 运用 一 些 Err 对 象 。 

源 代 码 : 实例 文档 99.xlsm/ 错误 处 理 


1 sub Testl{) 

pa On Error Resume Next 

Dim a As Single 

4. a= "Hello"™ 

ee Debug.Print Err.Number, Err.Description 
6 a = 2.35 

Ei Err.Clear 

8. Debug.Print Err.Number, Err.Description 
全 a= 6/ 0 

10. Debug.Print Err.Number, Err.Description 


11. End Sub 


代码 分 析 : 第 2 行 代码 的 作用 是 ， 当 某 行 代码 出 错时 不 弹出 错误 对 话 框 ， 而 是 继续 向 下 


执行 





第 4 行 代 但 试图 把 字符 串 赋 给 浮 点 型 变量 ， 导 致 出 错 。 第 5 行 代码 打印 错误 的 编码 和 描述 。 
第 6 行 代码 没有 任何 错误 。 人 第 7 行 代 但 的 功能 是 清除 错误 ， 如 果 不 写 这 行 ， 那 么 以 后 
Err.Number 仍然 是 13。 清 除 错 误 后 ，Number 属性 变 为 0，Description 属性 为 空 字符 串 。 

第 9 行 代 码 是 一 个 明显 的 被 去 除 的 错误 。 第 10 行 代码 打印 错误 信息 。 

运行 结果 如 图 6-8 所 示 。 

从 这 个 例子 可 以 看 出 ， 在 过 程 开 始 处 如 果 不 写 On Error Resume 
Next， 程 序 不 会 执行 到 过 程 结 尾 处 ， 只 要 有 错误 行 就 弹出 错误 对 
话 框 。 男 外 ， 在 代码 中 任何 地 方 均 可 随时 查看 Err 对 象 的 相关 属 图 6-8 ”运行 结果 1 
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性 ， 代 人 码 未 出 错 或 者 错误 被 清除 ， 都 会 导致 Err.Number 为 0。 
6.2.2 ” 亿 历 错误 号 和 错误 摘 述 

当 发 生 错 误 时 ， 错 误 号 大 于 0， 并 且 其 相应 的 描述 也 随 之 变化 。 那 么 有 哪些 浓 见 的 错误 
呢 ? Error$ 因数 可 以 根据 错误 号 查询 对 应 的 摘 述 文字 ， 使 用 该 吗 数 本 映 不 会 造成 错误 。 例 
如 ，Error$(11) 会 返回 一 个 “除数 为 0” 的 字符 串 。 

下 面 的 过 程 罗 列 错 误 号 在 1000 以 内 的 所 有 错误 描述 

源 代 码 : 实例 文档 99.xlsm/ 错误 处 理 


E 
应 用 程序 定妆 或 对 户 定 必 弄 证 
和 

元 Bagsub 讶 

用 和信 寺 训 直 又 狂 训 
元 效 的 过 程 调用 或 苔 数 
源 出 
和 内存 注 
区 用 可 人 下 从 钳 话 
下 标 越 


Sub Test2{) 


CF 


1 
之 Dim 1 As Long 
3 For 1 = 1 To 1000 
4. Range ("A™. & ji).Value = 1 让 组 二 四 十 或 时 视 认 
3 Range ("B™" & i) .Value = Errors (i) 2 证 双 和 十 尺 和 
6 Next 1 人 
i End Sub 总 用 程序 定 又 或 对 旬 定 又 镇 
这 陈 本 复杂 
2 错误 人 
现 用 
代码 分 析 : Error$ 本 误 描 述 文字 , 但 ”|i 和 放大 本 和 
无 乔 诸 ' 


该 函数 不 会 造成 出 错 ， 因 此 上 述 过 程 可 以 顺利 执行 完毕 。 应 用 程序 定 又 或 对 象 定 又 错 误 
运行 结果 如 图 6-9 所 示 。 图 6-9 ”运行 结果 2 





6.2.3 故意 引发 错误 


一 般 情 况 下 ， 程 序 的 错误 是 由 代码 本 身 的 问题 造成 的 ， 不 过 VBA 代码 还 可 以 在 没有 错 
误 的 情形 下 创造 错误 。 引 发 错误 有 两 种 方法 : ErrRaise 以 及 Error Number。 
源 代码 : 实例 文档 99.xlsm/ 错误 处 理 


1 Sub Test3() 

2 Dim a As Integer 

3 = 二 32 

4 Err.Raise Number:=2017，Description:=" 刘 永富 制造 的 错误 1 " 
5 End Sub 


代码 分 析 : 前 3 行 代码 毫 无 错误 。 第 4 行 代码 故意 引发 错误 ，Raise 方法 可 以 日 行 指 定 
出 错 的 编号 以 及 描述 文字 。 

运行 结果 如 图 6-10 所 示 。 

此 时 ， 单 击 “ 调 试 ” 按 钮 ， 可 以 编辑 代码 并 且 继 续 执 行 ， 单 击 “ 结 束 ” 按 钮 则 结束 程 
厅 的 执行 。 

使 用 Error， 只 能 指定 错误 编号 

源 代 码 : 实例 文档 99.xlsm/ 错误 处 理 


1 Sub Test4() 

之 。 Dim a As Integer 
本 愉 一 32 

+4 Error 13 
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D3. End Sub 


代码 分 析 : 第 4 行 代 码 将 会 引发 一 个 编号 为 13 的 错误 。 
结果 如 图 6-11 所 示 。 


运行 时 华 训 “2017 : 运行 时 措 呈 13 : 
刘 床 语 制 里 的 错位 ! 茶 型 不 [ 近 西 


弄 续 | 结束 外 | | 漂 训 全 卉 续 上 ) | 结束 外) | | 油 训 全 
图 6-10 ”故意 引发 错误 图 6-11 引发 错误 





6.3 ”错误 跳 转 


程序 代码 发 生 错 误 后 ， 必 须 进行 必要 的 处 理 ， 如 果 没 有 任何 的 错误 处 理 ， 用 户 在 使 
用 时 ， EO 甚至 会 导致 用 户 数据 的 丢失 。 因 此 ， 一 个 健壮 的 
VBA 作品 ， 对 于 其 中 的 每 一 个 过 程 、 哺 数 都 应 进行 必要 的 错误 处 理 ， 这 样 即使 在 用 户 端 出 
错 后 ， 也 能 根据 错 pitt lea 

所 谓 错误 跳 转 ， | J 了 代码 发 生 错 误 后 ， 接 下 来 怎么 办 的 问题 。 要 实现 错误 跳 
转 ， 需 要 使 用 On Error 语句 ， 该 语句 后 面 可 以 连接 如 下 跳 转 结构 。 

DQ GoTo Line: dng ， 跳 转 到 标号 为 Line 的 代码 行 。 

D GoTo 0: 禁止 当前 过 程 中 已 设 定 的 错误 处 理 程序。 

口 Resume Next: 发 生 错 误 后 ， 错 误 行 无 法 执行 ， 继 续 执 行 下 一 行 。 

为 了 便于 讲解 ， 下 面 举 一 个 从 用 户 输入 的 有 身份 证 号 码 中 提取 出 生日 期 的 错误 处 理 。 


6.3.1 错误 发 生 时 跳 转 到 某 行 


在 一 个 过 程 的 开始 位 置 写 人 On Error GoTo MyError， 当 程序 执行 到 某 行 出 错 后 ， 就 会 
味 转 到 MyError 这 个 标号 位 置 继续 加 下 执行 ， 直 至 过 程 结束 。 
源 代 码 : 实例 文档 99.xlsm/ 错误 处 理 





1 Sub Testo5 () 

之 On Error GoTo MyError 

3 Dim sfz As Variant 

4. Dim Y A3 Integer, M AS Integer, D As Integer 
一 sfz = InputBox(" 请 输入 您 的 身份 证 号 码 : ") 

6 Y = Midl(sfz, i, 4) 

1 M = Midl(sfz, 11, 2) 

8 D = Midl(sfz, 13, 2) 

< Debug.Print DateSerial (Y, M, DD) 

10. Exit Sub 

ll1. MyError: 

下 二 < Debug.Print Err.Number, Err.Description 
1 MsgBox " 您 输入 的 不 是 合法 的 身份 证 号 码 。" 

14. End Sub 
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代码 分 析 : 本 过 程 中 变量 了 Y、M、D 用 来 获取 到 身份 证 中 的 年 月 日 ， 然 后 在 第 9 行 代码 
中 重新 组 合 为 日 期 。 

由 于 变量 sfz 是 用 来 获取 用 户 输入 的 身份 证 ， 那 么 用 户 输入 的 未 必 全 都 是 合法 的 身份 证 
号 位， 如 采用 户 输入 的 不 是 连续 的 数字 ， 或 者 输入 人 的 不 足 18 位 ， 都 将 导致 第 6 ~ 8 行 代码 
不 能 正 篆 执行 。 但 是 不 论 是 哪 一 行 代码 出 现 了 运行 时 错误 ， 只 要 遇 到 错误 ， 就 直接 跳 转 到 第 
11 行 的 MyError 标号 位 置 。 

标号 位 置 以 上 的 Exit Sub 也 是 必 不 可 少 的 ， 其 作用 是 假如 用 户 输入 的 是 正确 的 号 份 证 
号 位， 那么 程序 不 会 出 错 ， 此 时 如 果 不 加 Exit Sub， 程 序 也 会 执行 到 标号 位 置 后 面 的 代码 ， 
就 产生 了 不 合 逻辑 的 运行 结 有 末 。 如 采 是 在 一 个 图 数 中 的 错误 处 理 ， 应 把 Exit Sub 改 为 Exit 
Function。 

VBA 过 程 中 的 代码 ， 还 可 以 加 入 行 号 或 者 标号 。 行 号 或 标号 可 以 单独 占据 一 行 ， 也 可 
以 在 一 行 中 先 写 行 号 再 写 语 句 ， 数 字 、 英 文 单词 、 汉 语 都 可 以 作为 标号 ， 数 字形 式 的 标号 后 
面 可 以 不 加 冒号 ,但 是 英文 和 汉语 的 标号 后 面 必须 加 冒号 。 行 号 和 标号 并 不 会 像 其 他 语句 那 
样 执行 ， 只 是 一 个 记号 而 已 。 例 如 下 面 的 过 程 演示 了 行 号 、 标 号 的 写法 。 


sub Teste ( ) 


1 
之 Dim sfz As Variant 
3 Dim YY As Integer, M As Integer, D As lnteger 


IdentifyNumber: sfz = InputBox(" 请 输入 您 的 身份 证 号 码 : ") 
Y = Mid(sfz, 17, 4) 

Month: M = Midl(lsfz, 11, 2) 
D = Mid(sfz, 13, 2) 


打印 结果 : 


Debug.Print DateSerial (Y, M, DD) 
End sub 


下 面 的 示例 展示 了 因数 中 的 错误 处 理 。 


Public Function UpperLettersl(s As String) As Integer 
On Error GoTo 9 
Dim 1 As Integer 
For 1 = 1 To Lent(s) 
If Midl(s, i, 1) >= "A™ And Midl{(s, i, 1) <= "2" Then 
UpperLetters = UpperLetters + 1 
End If 
Next 1 


Exit Function 


MsgBox Err.Description 


End Function 


代码 分 析 : 第 1 行 代码 ， 当 发 生 错 误 时 跳 转 到 标号 为 9 的 行 。 
在 其 他 过 程 中 调用 该 限 数 时 ， 可 以 用 类 似 下 面 的 方法 : 


MsgBox UpperLetters ("Excel VBA") 
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6.3.2 ”错误 发 生 时 继续 向 下 执行 


在 过 程 的 开始 位 置 使 用 On Error Resume Next 语句 ， 那 么 无 论 过 程 中 发 生 过 多 少 次 错 
误 ， 发 生 错 误 的 行 会 目 动 被 越过 ， 继 乡 执行 后 面 的 代 但 。 

下 面 的 过 程 用 来 计算 一 个 数组 中 每 个 元 素 的 算术 平方 根 。 

源 代 码 : 实例 文档 99.xlsm/ 错误 处 理 


1 Sub Test81{) 

之 On Error Resume Next 

3 Dim A(l To 5) As Single 
和 4 Dim BI(l1 To 5) As Single 
I Dim 1 As Integer 

6 A(l1) = 3 

1 A(2) = -16 

8 A(3) = "Hello™ 

he A(4) = 25 

10. A(5) = 12.25 

11. For i = 1 To J» 

12. B(1) = Sqr (aA(1)) 

Ls Debug.Print 1 , B(1) 
14. Next 1 


15. End Sub 


代码 分 析 : 很 明显 ， 第 8 行 代码 把 字符 串 赋 给 A(3) 会 出 错 ， 因 为 数组 是 浮 点 型 的 。 由 
于 过 程 开始 位 置 使 用 了 On Error Resume Next， 因 此 第 8 行 出 错 后 ， 就 不 会 为 A(3) 赋值 ， 
A(3) 依然 保持 初始 默认 值 0。 

在 第 11 ~ 14 行 循环 体 中 ， 试 图 对 每 个 元 系 计 算 平方 根 ， 由 于 负数 不 能 计算 平方 根 ， 
此 当 计 算 A(2) 的 平方 根 时 ， 依 然 会 出 错 。 

运行 上 述 过程 ， 不 会 弹出 任何 出 错 对 话 框 ， 立 即 窗口 的 打印 结 
果 如 图 6-12 所 示 。 

在 实际 开发 过 程 中 ， 尽 量 要 少 使 用 On Error Resume Next， 
为 该 请 句 屏 贡 了 所 有 出 错 ， 整 个 过 程 运行 完 也 不 知道 哪 一 行 有 错 ， 
哪 一 行 没 错 。 它 的 特征 是 目 动 越过 出 错 行 ， 继 续 回 后 执行 。 





6.3.3 Resume 与 Resume Next i 吾 句 


Resume 语句 的 作用 是 跳 转 到 错误 发 生 的 那 行 重新 执行 ，Resume Next 的 作用 是 跳 转 
到 错误 行 的 下 一 行 继续 执行 。 这 两 个 语句 一 般 用 在 On Error GoTo Line 结构 的 错误 处 理 的 
标号 中 。 


源 代码 : 实例 文档 99.xlsm/ 错误 处 理 


1 Sub Test91{) 

+ On Error GoTo Errl 

s Dim a As Integer, b AS Integer, cc As Integer 
= a = 100 

3 b= -4 
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已 C= 9 

了 了。 Debug.Print Sqr (a) 
8 Debug.Print Sqr (P) 
-a Debug.Print Sqr{c) 
10. Exit Sub 

11-。 Errl: 

了 Resume Next 


13. End Sub 

代码 分 析 : 本 过 程 最 容易 导致 出 错 的 是 第 7 ~ 9 行 ， 当 运行 到 第 8 行 时 ,计算 负数 的 平 
方 根 时 出 错 ， 会 跳 转 到 第 11 行 ， 第 12 行 中 的 Resume Next 的 作用 是 返回 到 出 错 行 的 下 一 行 
继续 执行 。 

因此 运行 上 述 过 程 ， 立 即 窗口 打印 出 了 a 和 的 平方 根 10 和 3。 


注意 : 如 果 把 第 12 行 中 的 Next 去掉 ， 只 留 下 Resume， 则 会 导致 一 个 死 循 环 ! 因为 
出 错 了 依旧 会 重新 执行 出 错 行 ， 导 致 跳 不 出 该 过 程 。 


但 是 ，Resume 语句 在 某 些 场 合 下 ， 能够 解决 一 些 实 际 的 问题 。 
源 代码 实例 文档 99.xlsm/ 错误 处 理 


1]. Sub Testl10() 

2 On Error GoTo Errl 

A Dim a As Single 

4. a = InputBox{" 请 输入 一 个 数字 1 ") 
5 MsgBox "a 的 平方 是 " & ae^ 人 2 

60. Exit Sub 

Ts Errl: 

8 . Resume 

9. End Sub 


代码 分 析 : 本 过 程 的 作用 是 计算 一 个 数字 的 平方 。 运 行 本 过 程 后 ,首先 弹出 输入 对 话 
框 ， 用 户 如 有 果 输 入 的 是 一 个 字符 串 或 者 其 他 非 数 学 的 内 容 ， 变 量 a 就 无 法 接收 输入 内 容 ， 因 
为 a 是 浮 点 型 。 

运行 上 述 过 程 ， 弹 出 输入 对 话 框 ( 见 图 6-13 ) 。 

当 用 户 输入 一 个 英文 单词 ， 上述 过 程 第 4 行 发 生 
错误 ， 但 由 于 第 8 行 是 Resume， 所 以 出 错 后 仍然 会 继 
续 执 行 第 4 行 ， 重新 弹出 输入 对 话 框 让 用 户 输 入 ， 只 要 
用 户 输 入 的 不 是 数 池 ， 就 一 二 弹出 ， 和 下 到 输入 的 是 数字 
为 止 。 图 6-13 输入 对 话 框 





习题 


1. 阅读 如 下 过 程 ， 信 计 一 下 输出 结 来 是 多 少 ， 然 后 在 VBA 编辑 此 中 实际 运行 一 下 ， 
看 看 日 己 售 计 的 是 否 正 确 。 
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Sub Testl{() 
On Error Resume Next 
Dim 1 As Integer 
1 = 2011 
i = 2017 / 0 
1 = 2016 
MsgBox 1 
End Sub 


2. 阅读 如 下 过 程 ， 估 计 一 下 输出 结果 是 多 少 ， 然 后 在 VBA 编辑 器 中 实际 运行 一 下 ， 
看 看 目 己 估计 的 是 否 正 确 。 


Sub Testz () 
On Error GoTo Errl 
Dim i As Integer 
i = 20117 
1 2017 / 0 
i = 2016 
MsgBox 1 
Exit Sub 
Errl: 
MsgBox 1 
End sub 


3. 阅读 如 下 过 程 ， 估 计 一 下 输出 结果 是 多 少 ， 然 后 在 VBA 编辑 器 中 实际 运行 一 下 ， 
看 看 目 己 估计 的 是 否 正 确 。 


Sub Test3 1() 


On Error GoTo Errl 


Dim 1 A3s Integer 


i = 2017 

1 = 2017 * 0 

i = 2016 

MsgBox 1 
Errl: 

i = 2015 

MsgBox 1 


End Sub 





程序 开发 是 为 了 解决 现实 世界 的 问题 ， 而 现实 世界 的 很 多 事物 的 行为 、 属 性 都 需要 用 数 
据 来 摘 述 。 用 来 描述 事物 属性 的 数据 类 型 通常 有 数字 、 文 本 、 日 期 与 时 间 等 ， 尤 其 是 文本 型 
数据 广泛 用 于 人 们 的 日 第 生活 和 工作 之 中 。 例 如 ， 人 的 姓名 、 城 市 的 名 称 、 人 与 人 之 间 的 谈 
话 内 容 等 ， 这 些 数 据 不 能 用 数字 来 代 符 ， 只 能 用 文本 摘 述 。 

在 编程 领域 ,文本 数据 称 作 字符 串 ( String)， 而 每 个 字符 串 由 多 个 文字 构成 ， 单 独 的 文 
字义 称 作 字符 (Character)， 和 常见 字符 包括 : 

口 英文 字母 (大 小 写 )。 

0 汉字 。 

口 其 他 外 国文 字 。 

D 标点 符号 、 特 殊 符号 。 

例如 “ 邯 亩 市 从 台 区 北 仓 路 453 号 3 号 楼 1 单元 A503” 这 个 地 址 就 包含 很 多 种 类 的 字 
什 ， 骨 例如 “Love$China※People ”包含 一 些 特殊 特写。 

在 现实 生活 中 ， 字 符 串 中 往往 包含 着 至 关 重 要 的 信息 ， 例 如 电报 内 容 、 乱 码 文字 ， 往 往 
是 由 很 多 币 人 理解 不 了 的 内 容 在 里 面 。 因 此 ， 利 用 编程 的 手段 来 处 理 字 符 串 ， 是 程序 开发 很 
重要 的 部 分 。 

字符 串 处 理 主要 包括 字符 串 的 认识 、 字 符 串 转换 这 两 个 主要 范畴 。 而 这 两 个 范畴 离 不 开 
字符 串 处 理 图 数 ，VBA 的 字符 串 处 理 六 数 主 要 包含 在 VBA.Strings 这 个 类 库 中 ( 见 表 7-1 )。 


表 7-1 VBA 字符 串 处 理 常 用 函数 


功能 类 别 孙 数 
字符 与 ASCII 转换 Asc、Chr 
查找 子 字符 串 位 置 Instr、InstrRev 
子 字 符 串 提取 Left、 Right、 Mid 
字符 串 转 换 LCase、UCase、LTrim、RTrim、Trim、StrConv、StrReverse、Replace 
字符 串 与 数组 Split、Join、Filter 
字符 串 生 成 Space、String 


其 他 Like Len 
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7.1 认识 字符 中 
7.1.1 全 角 与 半角 


计算 机 中 的 字符 分 为 全 角 字 符 和 半角 字符 。 一 个 半角 字符 占用 1 字 节 ， 一 个 全 角 字 符 占 
用 2 字 节 ， 这 是 两 种 字符 的 根本 不 同 之 处 。 

人 例如， 英文 字母、 数字 是 半角 字符 ， 而 汉字 是 全 角 字 符 。 在 使 用 键盘 输入 时 ， 当 按 下 快 
捷 键 【 Shiftt+Space 】 时 ， 会 在 全 角 输 入 模式 和 半角 输入 模式 之 间 切 换 。 当 处 于 全 角 模 式 时 ， 
输入 英文 和 数字 是 这 样 的 : Excel 2013。 

Excel 这 个 字符 器 有 5 个 人 字符， 占用 5 字 节 ; Excel 也 有 5 个 字符 ， 但 是 占用 10 字 节 。 
不 论 是 全 角 字 符 ， 还 是 半角 字符 ， 都 可 以 转换 为 字 节 数组 ， 字 节 数 组 中 元 素 的 个 数 就 是 字 

下 面 的 代码 ， 分 别 把 半角 、 全 角 的 Excel 转换 为 字 节 数组 。 

1. Sub 字符 串 转 字 节 数组 () 

上 Dim bl() As BYte b2() As Byte 
3 bl = VEA.StrConv ("Excel™", vbhFromUnicode) 

4. b2 = VBRA.StrConv(nmn EXCe 1 vbhFromUnicode) 

与 Debug.Print UBound(bl) - LBound(bl) + 1 

6 
7 


Debug.Print UBound(b2) — LBound(b2) + 1 
End Sub 


代码 分 析 : 把 半角 的 Excel 赋 给 字 节 数组 bl 后 , bl 的 下 界 是 0， 上 界 是 4， 共 5 个 元 素 。 
把 全 角 的 Excel 赋 给 字 节 数组 b2 后 ，b2 的 下 界 是 0， 上 界 是 9， 共 10 个 元 素 。 
运行 上 述 程 序 ， 立 即 窗口 打印 出 的 两 个 结果 分 别 是 5 和 10。 


7.1.2” 子 字符 串 


在 有 关 字 符 串 的 编程 过 程 中 ， 经 常 需要 在 字符 串 中 抽取 其 中 一 部 分 ， 这 一 部 分 形成 的 字 
符 串 ， 可 以 称 作 源 字符 串 的 子 字符 串 。 例 如 源 字符 串 是 "Excel2013"， 那 么 这 个 字符 串 的 子 
字符 串 可 以 是 "Excel"、"cel"、"3"， 甚 至 是 空 字符 串 。 

VBA 中 与 子 字符 串 概 念 相关 的 图 效 有 Leff 、Right、Mid 等 。 

Left 因数 从 源 字 符 串 左边 提取 n 个 字符 形成 子 字符 串 。 例 如 Left("Excel",2) 返回 "Ex"。 

Right 则 是 从 右边 提取 。 例 如 Right("Excel",2) 返回 "el"。 

Mid 函数 是 从 源 字符 串 中 间 某 处 提取 mn 个 字符 形成 子 字 符 串 。 其 语法 是 : 





Mid{String,Sstart,Length) 

例如 ，Mid(" 大 江东 去 浪 淘 尽 ",3,2) 是 从 句子 中 从 第 3 个 位 置 起 ， 提 取 连 续 的 2 个 字符 ， 
返回 “ 东 去 ”。 而 Mid(" 大 江东 去 浪 淘 尽 ",1,4) 则 和 Left(" 大 江东 去 浪 淘 尽 ",4) 功能 完全 相 
同 ， 均 返回 “大 江东 去 ”。 

此 外 ,Mid 哺 数 与 Left、Right 不 同 的 地 方 在 于 ， 该 函数 还 可 以 修改 源 字符 串 中 的 一 部 分 。 
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源 代 码 : 实例 文档 100.xlsm/ 认识 字符 串 


1 Sub Test31{) 

之 Dim 3 As String, 七 As String 
3 = " 大 江东 去 浪 淘 尽 " 

4. t = Midl(s, 3, 4) 

2 Debug.Print 七 

6 Mid(s, 3, 3) = "DOL™" 

1 Debug.Print 3 

8 End Sub 


代码 分 析 : 第 4 行 代码 提取 s 中 的 局 部 ， 赋 给 变量 t。 

第 6 行 代码 的 作用 是 把 源 字符 串 s 中 自 第 3 个 位 置 起 ， 连 续 的 3 个 
字符 符 换 为 "DQL"。 

运行 上 述 过 程 ， 立 即 窗口 的 结果 如 图 7-1 所 示 。 





7.1.3 字符 串 的 长 度 


字符 串 的 长 度 可 以 用 Len 旺 数 来 获得 ， 字 符 串 包含 几 个 字符 ，Len 哺 数 就 返回 几 。 
遍历 字符 串 中 的 子 字符 串 需要 事先 了 解 源 字 符 串 的 长 度 ， 这 就 用 到 了 Len 捕 数 。 
下 面 的 过 程 ， 把 一 个 长 的 字符 串 ， 每 4 个 字符 一 组 提取 出 来 打印 到 立即 窗口 。 

源 代码 : 实例 文档 100.xlsm/ 认识 字符 串 





1 .Sub Testl 1() 

pa Dim 3 As String 

3 Dim 1 As Integer 

4. s = " 赵 钱 孙 李 周 吴 郑 王 冯 陈 褚 卫 薪 沈 韩 杨 朱 秦 尤 许 何 吕 施 张 孔 曹 严 华 金 魏 陶 姜 " 
hs For 1 = 1 To Len(s) Step 4 

6. Debug.Print Midl(s, 1i, 4) 

8 。 


Next 1 
End Sub 


代码 分 析 : 第 5 ~ 7 行 是 关键 代码 ，Mid(s,i,4) 表示 字符 串 s 中 从 第 i 个 位 置 开 始 的 连续 
4 个 字符 。 

运行 结果 如 图 7-2 所 示 。 

当然 ， 根 据 需 要 可 以 把 切割 后 的 每 行 直接 发 送 到 Excel 单元 格 中 。 

此 外 ,遍历 字符 串 还 经 第 用 于 统计 特定 字符 的 个 数 。 

下 面 的 过 程 用 于 统计 句子 中 英文 单词 的 个 数 ， 其 原理 是 先 统计 各 
子 中 空格 的 个 数 。 图 7-2 运行 结果 2 

源 代码 : 实例 文档 100.xlsm/ 认识 字符 串 





Sub Test2{) 
Dim 3 As String 


Dim 1 As Integer 


3 = "Nothing is impossible to a willing heart™ 
total = 0 


a 

2 

4. Dim total As Integer 
3 

6 

1 For 1 = 1 To Lenl(s) 
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8. Ift Midl(s, i, 1) =" " Then 
- 。 total = total + 1 

10. End If 

11. Next 1 


12. MsgBox " 甸子 中 的 英文 单词 个 数 : " & (total + 1) 
13. End Sub 


代码 分 析 : 第 7 ~ 11 行 过 历 每 一 个 字符 ， 如 有 果 某 字符 是 空格 就 给 
变量 total 加 1。 

由 于 单词 个 数 总 比 空格 数 多 1， 因 此 第 12 行 代 码 中 使 用 了 total+1。 

运行 结果 如 图 7-3 所 示 。 





7.1.4 “检索 子 字符 串 的 位 置 


在 与 字符 串 相 关 的 编程 中 ,经常 要 查找 源 字符 串 中 是 否 包 含 某 字符 串 ， 如 果 包 含 ， 出 现 
在 何 处 等 问题 。VBA 中 的 Instr、InstrRev 和 Like 函数 可 以 用 来 检索 子 字符 串 。 

Instr 中 数 用 来 查找 子 字 符 串 出 现 的 位 置 ， 如 果 找 到 符合 条 件 的 第 一 个 子 字 符 串 ， 就 返 
回 其 位 置 ， 如 果 找 不 到 ， 则 返回 0。 该 函数 语法 是 : 


Instr{Sstart,stringl,string2,Compare) 


各 参数 含义 如 下 。 
D Start: 检索 的 开始 位 置 ， 如 果 不 指定 该 参数 ， 软 认 从 第 一 个 字符 开始 检索 。 
D Stringl: 字符 串 1。 
D String2: 字符 串 2。 
D Compare: 大 小 写 比 较 模式 。 
下 面 的 过 程 实现 在 字符 串 sl 中 查找 VBA 这 个 单词 的 位 置 。 
源 代码 : 实例 文档 100.xlsm/ 认识 字符 串 
1 Sub Test4() 
2 Dim sl1 As String, 32 As String, pos As Integer 
3 31 = "ExcelVBAWordVBAOut lookVBA" 
4. 32 = "VBA" 
3 Pos = Instr{(sl, s2) 
6 Debug.Print pos 
1 End Sub 
代码 分 析 : 由 于 第 5 行 代码 未 指定 开始 查找 位 置 ， 因 此 从 sl 的 最 左 侧 开始 找 。 
找到 的 第 一 个 VBA 出 现在 sl 的 第 6 个 位 置 ， 因 此 第 6 行 的 打印 结 采 是 6。 
如 条 把 第 5 行 代码 更 改 为 : pos = InStr(9, s1, s2)， 草 新 运行 上 述 过 程 ， 打 印 结 末 是 13。 
因为 是 从 第 9 个 位 置 才 开 始 找 ， 实 际 上 找到 了 sl 中 第 二 个 VBA 的 出 现 位 置 。 
另外 ， 还 要 注意 Instr 是 数 的 Compare 参数 设 定 市 来 的 影响 。 当 在 Instr 哺 数 中 明显 地 规 
定 了 大 小 写 比 较 模 式 的 ， 则 无 论 模块 项 部 采用 了 什么 样 的 定义 ， 都 按照 Instr 函数 中 规定 进 
行 比较 ; 如 果 Instr 国 数 中 未 规定 比较 模式 ， 则 遵循 模块 的 比较 模式 。 
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源 代 码 : 实例 文档 100.xlsm/ 认识 字符 串 


1 Sub Testo5 () 

2 Dim sl] As String, 32 As String, pos As Integer 
本。 31 = "ExcelVBAWordvbaOutlookVba" 

4. 32 三 “TVba- 

5 pos = JInstr(l, sl, sz2, vbBinaryCompare) 

6 Debug.Print pos 

1 End Sub 


代码 分 析 : 第 5 行使 用 了 二 进 制 比较 模式 ， 也 就 是 区 分 大 小 写 ，sl 中 第 13 个 位 置 出 现 
了 小 写 的 vba， 因 此 打印 结果 是 13。 

如 有 果 把 第 5 行 修改 为 : pos = InStr(1, s1, s2, vbTextCompare)， 则 运行 结果 是 6。 

还 有 一 个 InstrRev 国 数 ， 也 是 用 来 检索 子 字 符 串 出 现 位 置 的 。 但 是 这 个 函数 是 从 右 回 左 
碍 找 ， 如 采 找 到 了 目标 子 字符 串 ， 则 返回 从 左 四 右 的 位 置 。 

源 代 码 : 实例 文档 100.xlsm/ 认识 字符 串 


1] Sub Testé6{) 

由。 Debug.Print InstrRev( "goodgoodstudy", Do) 

3 Debug.Print InSstrRev ("goodgoodstudy", "d") 

4 End sub 

代码 分 析 : 第 2 行 代码 从 源 字符 串 右 侧 查 找 两 个 连续 的 o， 后面 的 两 个 o 处 于 源 字符 串 


的 第 6 个 位 置 ， 因 此 返回 6。 

第 3 行 代 但 从 字符 串 右 侧 碍 找 d4， 返 回 12。 

在 处 理 文件 路 径 方 面 , InstrRev 困 数 经 销 用 于 截取 路 径 的 文件 名 ， 例 如 “Ex 
ADOSQLwizard' 示例 数据 源 \data.txt ”这 个 路 径 ， 可 以 检索 最 后 一 个 反 矢 杠 的 出 现 位 置 ， 然 
后 利用 Right 也 数 来 获取 该 反 冬 杠 右 侧 的 部 分 。 

源 代码 : 实例 文档 100.xlsm/ 认识 字符 串 


1 Sub Test/() 

之 Dim path As String 

3 Dim file As String 

4 Dim pos As Integer 

5, path = "E:\ADOSQLwizard\ 示例 数据 源 \data .txt" 
6 pos = InstrRev (path, ™\") 

7 file = Right (path, Lenl(path) - pos) 

8 Debug.Print file 

9 End Sub 


代码 分 析 : 第 6 行 代 码 返回 最 后 一 个 反 斜 杠 的 出 现 位 置 。 
第 7 行 代码 用 path 的 总 长 度 减 去 pos， 就 可 以 获得 文件 名 的 长 度 ， 然 后 用 Right 吨 数 
截取 。 


在 实际 编程 中 ， 经 第 会 判断 一 个 字符 串 中 是 否 包含 看 为 一 个 字符 串 ， 而 不 关心 出 现 的 具 
体位 置 。 这 种 情形 下 ， 可 以 用 Instr 或 Like 来 判断 。 
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产 代 码 : 实例 文档 100.xlsm/ 认识 字符 串 

1 Sub Test8() 

过 Dim sl1 As String, 32 As String, pos As Integer 
3 31] = "ExcelvbhaWordvbaOutlookvba" 
4. 32 = "vba" 

se If sl Like "*™ & 3S2 & "*™" Then 

6 MsqgBox "sl 中 包含 S22" 

1 Else 

8 MsgBox "sl 中 找 不 到 s2" 

-pe End If 

10. End Sub 


代码 分 析 : 第 5 行 代码 中 ，* 是 一 种 可 以 匹配 任意 长 度 任意 字符 的 通配符 ， 用 它 与 82 
连接 在 一 起 构成 模式 字符 串 ， 如 果 Like 返回 True， 则 表示 sl 中 包含 s2。 

第 5 行 代码 也 可 以 更 改 为 更 简单 的 : If Instr(s1,s2)>0 Then，Instr 子 数 返回 值 大 于 0， 则 
表示 sl 包含 者 s2。 

关于 Like 更 详细 的 用 法 ， 请 参阅 4.2.3 节 相 关内 容 。 


7.2 ”字符 串 转 换 
7.2.1 字符 与 ASCII| 码 


Asc 困 数 用 于 把 一 个 字符 转换 为 对 应 的 ASCII 码 值 ， 而 Chr 则 与 Asc 功能 相反 ， 它 是 根 
据 ASCII 码 值 得 到 对 应 的 字符 。 

大 写字 母 A 的 ASCII 码 值 为 65, Z 的 ASCII 码 值 为 90 ; 小 写字 母 a 的 ASCII 码 值 为 
97,， z 的 ASCII 码 值 为 122。 

下 面 的 过 程 ， 打 印 出 ASCII 码 值 为 0 ~ 127 的 所 有 字符 。 

源 代码 : 实例 文档 101.xlsm/ 字符 串 转换 


1 Sub Testl{() 

之 Dim 1 As Integer 

3 For 1 = 0 To 127 

4. Range ("A™ & (1 + 1))}.Vvalue = 工 十 工 

本 Range("B™ & (i + 1)).Value = Chr(i + 1) 
6 Next 1 

1 End Sub 


代码 分 析 : 由 于 循环 变量 i 是 从 0 开始 的 ， 所 以 第 4 ~ 5 行 需要 使 用 i+1 才能 从 单元 格 
Al 开始 向 下 填 元 。 

通常 可 以 利用 ASCII 码 值 的 差异 ,来 鉴别 字符 的 种 类 ， 例 如 统计 一 个 字符 串 中 英文 字 
母 的 字符 个 数 。 

源 代码 : 实例 文档 101.xlsm/ 字符 串 转换 


1 Sub Test2() 

pa Dim 1 As Integer 

3 Dim word As String 
4 


Dim A As Integer 
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< Dim total As Integer 

6 WOIQ 一 " 非 ##Excel@VBA###" 

1. total = 0 

8 For 1 = 1 To Len(word) 

9. A = Asc{(Mid(word, i, 1)) 

10. If A >= 65 And A <= 90 Or A >= 97 And A <= 122 Then 
11. total = total + 1 

12 End If 

1 3 Next 1 

14. Debug.Print ™ 英文 字母 个 数 : " & total 

19s Debug.Print ™ 非 英文 字母 个 数 ， Vg& (Len{({word) — total) 


1l16. End Sub 


代码 分 析 : 第 9 行 代 人 码 用 来 计算 每 一 个 字符 对 应 的 ASCII 人 码 值 。 

第 10 行 代 码 用 来 验证 字符 是 否 属于 英文 字母 ， 如 果 是 英文 字母 则 total 自 加 1。 

第 14 行 代码 打印 所 有 英文 字母 个 数 ， 结 果 为 8。 

第 15 行 代码 用 单词 总 长 度 减 去 英文 字母 个 数 ， 得 到 的 是 非 身 文字 母 个 数 ， 结 果 为 7。 


7.2.2 大 小 写 转 换 


LCase 把 一 个 字符 串 转 换 为 小 写 ，UCase 则 将 字符 串 转 换 为 大 写 。 除 此 以 外 ，StrConv 
图 数 还 可 以 进行 更 丰 曙 的 字符 转换 。StrCony 函数 的 语法 格式 为 : 
StTrCoOnV (Stringl,Conversion) 


参数 Stringl 是 指 需要 转换 的 源 字 符 串 ，Conversion 是 转换 模式 ， 可 取 的 值 参见 表 7-2。 


表 7-2 VBA.VbStrCony 枚 举 值 





枚 举 什 功能 
vbFromUnicode 畴 

vbHiragana 转换 为 平 假名 
vbKatakana 转换 为 片 假名 
vbLowerCase 转换 为 小 写 英文 字母 
vbNarrow | 转换 为 半角 
vbProperCase 转换 为 单词 首 字母 大 写 
vbUnicode 里 和 

vbUpperCase 转换 为 大 写 英 文字 母 
vbWide 转换 为 全 角 


下 面 的 过 程 演示 了 英文 字 母 的 大 小 写 转 换 方法 。 
源 代 码 : 实例 文档 101.xlsm/ 字符 串 转 换 


1 Sub Test31{) 

之 Dim 3 As String 

3 3 = "Excel 2013 VBA 1s very powerful" 

4. Debug.Print LCase(s), UCase (3s) 

5 Debug.Print StrConv(s, vbhLowerCase), strConvl(s, vbhUpperCase) 
6 Debug.Print StrConv(s, vbProperCase) 

1 End Sub 
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代码 分 析 : 第 5 行 代码 与 第 4 行 代码 的 作用 完全 相同 ， 都 是 把 字符 串 转 换 为 小 瑟 、 大 瑟 
字母 ， 如 有 果 原 来 的 字符 不 是 英文 字母 ， 则 不 发 生 转 换 。 

第 6 行 代码 是 转换 为 词 首 大 写 形式 。 

上 述 过 程 的 运行 结果 如 图 7-4 所 示 。 


exce] 20]3 vba is verv powerful ERCEL 2013 VEBA ITIS VERY POWERFUL 


exce] 20]3 vbha is verv powerful FACEL 2013 VBA ls VERY POWERFUL 
EXeel 2013 Vbha Is Verv Powerful 





| 
| 


图 7-4 3 


六 


行 结 果 4 
7.2.3 ”全 半角 转换 


StrConv 图 数 把 Conversion 参数 设置 为 vbNarrow， 将 字符 转换 为 半角 ; 设置 为 vbWide， 
将 字符 转换 为 全 角 。 
源 代码 : 实例 文档 101.xlsm/ 字符 串 转换 


1 Sub Test4{) 

a Dim 3s As String 

3 3 = "Excel 2013 VBA is very powerful" 
4. Debug.Print StrConv(s, vbhNarrow) 

I Debug.Print strConv(s, vbWide) 

6 End Sub 


代码 分 析 : 第 4 行 代码 将 字符 转换 为 半角 ， 第 5 行 代码 将 字符 转换 为 全 角 。 
运行 结果 如 图 7-5 所 示 。 





7.2.4 ”去 除 多 余 空 格 


LTrim 限 数 去 挥 源 字符 串 左 侧 连 续 的 空格 ; RTrim 呐 数 去 挥 源 字 和 从 串 右 侧 连续 的 空格 ; 
Trim 了 数 去 挥 源 字 和 从 串 左 右 两 问 连 续 的 空格 。 注 意 ， 以 上 3 个 图 数 均 不 改变 源 字 符 串 。 
源 代码 : 实例 文档 101.xlsm/ 字符 串 转 换 


1] Sub TestSs{() 

Dim 3 As String 

3 s = " 我 在 学 习 Excel 2013 VBA " 
4. Debug.Print LTrim(s) 

i Debug.Print RTrim(s) 

6 Debug.Print Triml(s) 

1 End Sub 


以 上 过 程 中 ,第 4 ~ 6 行 分 别 去 挥 左 侧 、 右 侧 、 左 右 两 端的 连续 空格 。 运 行 完 毕 后 ， 变 
量 s 不 发 生变 化 。 
如 来 要 去 挥 子 符 串 中 间 出 现 的 空格 ,需要 用 Replace 图 数 来 符 换 。 
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7.2.5 倒序 


字符 串 处 理 “《 鲍 


使 用 StrReverse 因数 可 以 把 一 个 字符 串 按 照 从 右 到 左 的 顺序 排列 ， 形 成 新 的 字符 串 。 


源 代 码 : 实例 文档 101.xlsm/ 字符 串 转换 


Sub Test6() 
Dim 3 As String, tt As String 
s 二 "上海 自来水 来 自 海上 " 
t = StrReversel(s) 
Debug.Print s, t 


1] 
2 
a 
4. 
二 
6 End Sub 


代码 分 析 : 变量 s 是 一 个 回 文 (从 左 到 右 、 从 右 到 左 念 是 一 样 的 )， 因 此 第 5 行 的 两 个 


第 来 是 一 样 的 。 读 者 可 以 把 s 换 为 为 外 一 句 话 ， 测 试 一 下 运行 效 采 。 


7.2.6 车 换 


众所周知 ， 日 前 办 公 和 程序 开发 过 程 中 ， 字 符 串 的 蔡 换 使 用 频率 非 芝 局。 在 VBA 编程 


中 ， 字 符 串 和 蔡 换 使 用 Replace 图 数 。 其 语法 格式 如 下 : 


Replace (Expression,Find,Replace,start,Count,Compare) 


口 Expression: 源 字 符 串 。 

D Find: 要 蔡 换 的 于 字符 串 。 

口 Replace: 替换 为 的 字符 串 。 

D Start: 答 换 起 始 位 置 ， 在 该 位 置 左 侧 的 即使 找到 也 不 葵 换 。 

D Count: 限定 蔡 换 频次 。 

口 Compare: 规定 大 小 写 比 较 模式 。 

其 中 ， 前 3 个 参数 是 必须 规定 的 参数 ， 而 后 3 个 参数 是 可 选 参数 。 
源 代码 : 实例 文档 101.xlsm/ 字符 串 转换 


1 Sub Test/() 

pa Dim 3S AS String, 七 As string 

= 一 "高手 就 是 高 手 " 

4 t = Replace(s，" 高 手 ",， "HighHand"™) 
2 Debug.Print 七 

6 End Sub 


代码 分 析 : 上 述 过 程 把 源 字 符 串 中 所 有 的 “ 噩 手 ” 都 蕉 换 为 瑞 文 单词 。 


运行 结 采 是 : HighHand 就 是 HighHand。 
在 实际 编程 开发 过 程 中 ， 还 经 党 遇 到 空格 、 换 行 符 、 引 号 的 蔡 换 。 
源 代码 : 实例 文档 101.xlsm/ 字符 串 转换 


1 .。 Sub Test81() 
之 。 Dim 3 As String, 七 As String 
: Dim a AS String, b As String, cc As String, d AS String 
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4. 3 = "Excel VBA Programming™ 

号 a = Replacel(s, ””， "") 

上 。 b = Replace(s, ”” VbNewLInel) 
1. Debug.Print a, b 

8. 

= t = “Hello World"'™ 

10. c= Replace(t, ™"", Chr(34)) 
11. d = Replace{(t, ™"™, "“@") 

12. Debug.Print c, d 


13. End sub 


' 删除 所 有 空格 
' 空格 替换 为 换行 


' 单 引 号 苦 换 为 双 引 号 
' 单 引 号 车 换 为 @ 


如 果 在 Replace 因数 中 使 用 了 Start、Count 和 Compare 这 些 参 数 ， 则 可 以 实现 更 复杂 的 


蔡 换 规则 。 
源 代 码 : 实例 文档 101.xlsm/ 字符 串 转换 


1。 Sub Test9() 

本 Dim 3 As String 

SS Dim a(l To 6) 

4. 3 = "A 

= a(l) = Replace (Expression:=3, 

6. a(2) = Replace (Expression:=3, 

了 了。 Debug.Print "a(l): " & a(l) 

38. Debug.Print "a(2): " & al(2) 

3 

10. a(3) = Replace (Expression:=3, 

11. a(4) = Replace (Expression:=3, 

12. Debug.Print "a(3): " & a(3) 

13. Debug.Print "a(4): " & 日 (4) 

14. 

le a(3) = Replace (Expression:=3, 

16. a(6) = Replace (Expression:=3, 
Compare:~=vbhTextCompare) 

17 Debug.Print “ 忌 (5): " & a(>) 

18. Debug.Print "a(6): " & 日 (6) 


19. End Sub 


Book Is The Same Today As It Always Was And It Will Never Change" 
Find:="It", 
Find:="It", 


Replace:="++") 
Replace :一 "十 十 ”， start:=40) 


' 从 第 40 个 字符 起 才 开 始 蔡 换 。 


Find:="It", Replace:="t++") ' 不 限 次 数 。 
Find:="It", Replace:="++", Count:=]1) 

' 只 闭 换 1 次 。 
Find:="As", Replace:="++") ' 区 分 大 小 写 


Find:="As™", 


Replace:="++", 


' 不 区 分 大 小 写 。 


代码 分 析 : 第 5 ~ 8 行 对 比 了 Start 参数 的 影响 。a(2) 是 从 第 40 个 字符 处 截取 后 再 礁 


换 的 。 


第 10 ~ 13 行 对 比 了 Count 参数 的 影响 。a(4) 只 替换 1 次 ， 后面 即使 找到 也 不 再 替换 。 
第 15 ~ 18 行 对 比 了 Compare 参数 的 影响 。a(6) 不 区 分 大 小 写 ， 只 要 找到 "AS" 就 替换 


上 述 过 程 的 运行 结果 如 图 7-6 所 示 。 
Afl): 


al2?): 
al3): 


A Book ls 
As And ++ 
A Book Is 
A Book 工 5 
: A Book ls T 
: A Book Is 


The Same Todar Ms 
Will Never Change 
Same Today | 
Same Today | 
' Same Today 
' Same [Today 


五 (由 ) : 


a(s) 
atB) 


图 7-6 


Mlwavs 


Alwars 
Blwavs 
Alwarve 
Mlwave 


Was And ++ Will Never 


Was And ++ Will Nevwer 
Was And It Will Newver 
Was And It Will NeweT 
Wi++ And It Will Never 





运行 结果 6 
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7.3 ”学 和 付 串 生成 
7.3.1 String 函数 


String 图 数 可 以 把 一 个 字符 重复 多 次 ， 生 成 新 字符 串 。 如 采 源 字符 串 长 度 大 于 1， 则 重 
复 第 一 个 字符 多 次 。 

源 代码 : 实例 文档 102.xlsm/ 字符 串 生成 

1 Sub Testl]() 

之 Dim 3 As String 

了 。 3 = String(4, "ABC") 

4 Debug.Print s 

要 End Sub 


代码 分 析 : 由 于 "ABC" 不 止 一 个 字符 ， 因 此 重复 第 一 个 字符 4 次 ， 运 行 结 末 是 AAAA。 
使 用 String 名 数 可 以 快速 生成 多 个 同样 的 字符 组 成 的 子 符 串 。 


7.3.2” ”Space 国 数 


Space 果 数 用 来 生成 多 个 半角 空格 。 例 如 ，Space(3) 等 价 于 3 个 连续 的 空格 。 


7.4 ”学 付 串 与 数组 


市 有 特定 分 隔 符 的 字符 串 ， 可 以 转换 为 便于 使 用 的 数组 ， 相 反 ， 字 符 串 数组 也 可 以 连接 
为 一 个 字符 串 。 


7.4.1 ”Spilit 函数 


Split 胃 数 根据 指定 分 隔 符 ， 把 一 个 字符 串 转 换 为 数组 ,返回 的 数组 下 界 为 0。Split 隔 
数 的 语法 为 : 

Split (Expression, Delimiter, Compare) 

参数 说 明 如 下 。 

口 Expression: 行 分 隔 的 源 宇 符 串 。 

口 Delimiter: 分 隔 符 ， 可 以 是 任何 字符 串 。 如 果 不 指定 该 参数 ， 默 认 按 照 空格 分 隔 。 

口 Compare: 字母 大 小 写 比 较 模式 。 

下 面 的 过 程 把 字符 串 以 空格 为 分 隔 符 转换 为 数组 。 

源 代 码 : 实例 文档 103.xlsm/ 字符 串 与 数组 


Sub Testl1 (| 


1 

之 。 Dim 3 As String 
习 Dim T As Variant 
4 


号 一 "excel word outlook access" 
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3 Vv = Split!(s) 

上 。 Debug.Print wv{(0), v(3) 

1 ActiveSheet.Range ("B3:E3") -Value = 了 
8 End Sub 


代码 分 析 : 第 5 行 代 码 ， 变 量 v 将 会 变 为 一 个 字符 串 数组 。 

第 6 行 打 印 数组 奢 干 元 孙 ， 结 果 为 excel access。 

第 7 行 直接 把 数组 写 人 单元 格 区 域 ， 绪 末 如 图 7-7 所 示 。 

如 有 果 字 符 串 的 分 隔 符 是 其 他 符号 ， 则 需要 指定 Delimiter 参数 。 
源 代码 : 实例 文档 103.xlsm/ 字符 串 与 数组 


1 Sub Test2{) 

-a Dim 3s As String 

3 。 Dim TY As Variant 

4. s = "/ 河北/ 河南 / 内蒙古/ 四川/ 黑龙江/ 青海 /" 
全 Vv = Splitl(s, "/") 
ts Stop 

1 End Sub 


代码 分 析 : 由 于 源 字 符 串 是 用 “/” 分 隔 的 ， 因 此 Split 销 数 中 也 应 该 使 用 “/”。 
为 了 查看 v 的 取 值 情况 ， 运 行 到 第 6 行 时 ， 通 过 本 地 窗口 可 以 看 到 v 数组 的 各 元 对 ( 见 


图 7-8 ) 。 





由 于 字符 串 s 开头 和 结尾 都 是 “/”， 所 以 数组 v 的 首 项 和 尾 项 都 是 空 字符 串 。 


“7 河北 庆 河南 /内 蒙古 /四 川 因 Sing 
本 7) 
ACCESS Ee String 
tr Te 
String 
String 
Str1ne 
String 
Strine 
String 


下 CEl word outlook |access 


图 7-7 运行 结果 7 图 7-8 查看 变量 的 值 


如 果 分 隔 符 包 含有 英文 字母 ， 还 应 注意 Compare 参数 的 影响 。 
源 代 码 : 实例 文档 103.xlsm/ 字符 串 与 数组 


1 Sub Test3() 

ea Dim 3 As String 

二 Dim TY As Variant 

4. s = mm 张 三 andq 李 四 RMND 王 五 and 赵 六 " 
3 v= Split(s, "and") 

6. Debug.Print wv{(0), v(1) 

1 End Sub 


代码 分 析 : 如 末 模 块 项 部 没有 特别 的 声明 ， 则 默认 是 按 二 进 制 比较 模式 。 
第 5 行 代码 没有 使 用 Compare 参数 ， 和 区 分 大 小 写 ， 因 此 只 能 按照 小 写 的 and 来 


作为 分 隔 符 ， 数 组 v 只 有 两 个 元 素 。 运 行 结果 如 图 7-9 所 示 。 


下 面 的 过 程 使 用 Compare 参数 来 忽略 大 小 写 。 
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源 代 码 : 实例 文档 103.xlsm/ 字符 串 与 数组 


1]. Sub Test31() 

-a Dim 3 As String 

sR Dim Vv As Variant 

4. s = "” 张 三 and 李 四 RND 王 五 and 赵 六 " 

YY = Splitl(s, "and", Compare:~=vbhTextCompare) 
0. Debug.Print v{(0), v(l), vi(2) 

1. End Sub 


代码 分 析 : 由 于 不 区 分 大 小 写 ， 字符 串 s 中 大 写 的 AND 也 可 以 作为 分 陋 符 ， 数 组 了 就 
有 3 个 元 素 。 运 行 结果 如 图 7-10 所 示 。 





立即 窗口 
张 三 诗 四 AND 王 五 


图 7-9 运行 结果 8 图 7-10 运行 结果 9 
7.4.2 Join 国 数 
Join 田 数 用 于 把 字符 串 数 组 各 个 元 素 连 接 为 一 个 字符 串 ， 其 语法 是 : 


Join(Array, Delimiter) 


如 采 不 指定 Delimiter 参数 ， 则 用 空格 连接 。 
源 代码 : 实例 文档 103.xlsm/ 字符 串 与 数组 


1 Sub Test4{) 

之 Dim arr(l2 To 2) As String 
村 Dim 3 As String 

= arr(2) = "excel™ 

i arr(3) = "word"™ 

6 arr(4}) = "outlook™ 

1 arr() = "access" 

3 3 = 二 Join (arr, "#t##t#") 


Debug.Print s 
10. End Sub 


代码 分 析 : 第 8 行 代码 用 ### 连接 各 项 
运行 结果 为 : 
eXxCel###wordQdt#t##0Outloocokt###access 

如 果 把 第 8 行 改 为 s= Join(arr)， 则 运行 结果 为 : 


excel word outlook access 


7.4.3 Filter 国 数 


Filter 串 数 可 以 把 数组 中 具有 某 些 特征 的 元 又 第 选 出 来 ， 生 成 一 个 新 的 数组 。Filter 困 数 
的 语法 为 : 


Filter (Array,Match,Include,Compare) 


152 Office VBA 开发 经 典 一 一 基础 入 门 卷 


参数 说 明 如 下 。 

D Array: 原 数 组 。 

口 Match: 特征 字符 。 

D Include: 是 否 包 含 ， 布 尔 值 。 其 值 为 True 时 表示 把 包含 特征 字符 的 元 系 贤 选 出 来 。 
口 Compare: 字母 大 小 写 比较 模式 。 

下 面 的 过 程 把 数组 中 凡是 包含 字母 e 的 元 素 筛 选 出 来 ， 组 成 新 数组 。 

源 代 码 : 实例 文档 103.xlsm/ 字符 串 与 数组 


1 Sub Testo{() 

pa Dim arr(2 To 2) As String 
3 Dim vw As Variant 

4 。 arr(2) = "excel™ 

so arr(3) = "word™ 

6 arr{(4) = "outlook™ 

1 arr(3) = "access" 

98 VV = Filterl(arr, "e", True) 


Stop 
10. End Sub 


代码 分 析 : 上 述 过 程 运 行 后 ， 从 本 地 窗口 可 以 看 到 ， 数 组 v 只 有 两 个 元 素 ， 分 别 是 
excel 和 access。 

下 面 的 过 程 把 不 包含 0 的 元 素 跨 选 出 来 组 成 数组 。 

源 代 码 : 实例 文档 103.xlsm/ 字符 串 与 数组 


1 Sub Test6() 

-a Dim 了 

: v= Filterl(Array(l20, 2883, 304, 482, 60), 0, False) 
4. Stop 


5. End Sub 


代码 分 析 : 第 3 行 代码 ，Include 参数 指定 为 False， 因 此 含义 是 把 不 包含 0 的 元 素 筛 选 
出 来 。 
运行 上 述 过 程 ， 本 地 窗口 看 到 的 结果 如 图 7-11 所 示 。 


VBAProject. 字 行 串 与 数组 . Test+6 


z | 类 型 
字 愉 吊 与 数组 字 翌 忠 与 数组 / 字 罕 帅 与 数组 
Variantistrinel0 to 1) 
String 
Strine 





图 7-11 运行 结果 10 


在 实际 编程 过 程 中 5 很 少 用 到 Filter 呐 数 ， 了 解 即 可 。 


习题 


1. 请 分 别 统计 下 面 字 符 串 中 小 写字 母 、 大 与 字母 、 数 字 ， 以 及 其 他 字符 的 出 现 次 数 。 
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“ Deutsche Bank wins the Farsight Award 2015/16 for their report The Logistics of Supply 
Chain Alpha out of 38 reports considered.” 

2. 单元 格 B2 中 有 一 首 艇 文 许 ， 散 文 诗 的 每 行 长 短 不 一 ， 现 在 要 求 在 每 行 左 侧 添 加 连 
续 的 “ 宝 ",， 使 得 每 行 句子 都 有 20 个 字符 。 处 理 后 的 结果 置 于 C2 中 ,期望 结果 如 图 7-12 


1 学 过 的 字符 串 处 理 方面 的 知识 ， 写 一 个 过 程 ， 完 成 此 任务 。 


江 
学 
也 
3 


我 独步 福 雨 后 的 蔓 镶 里， 玉 玉 宇 宇 宝 宇 宝宝 宝 拒 独步 在 十 后 的 芋 钻 里， 
踏 着 泥 学 的 小 路 。 
多少 外间 的 号 续 啊 ， 


里 条: 轩 两 过 后 ， 天 辽 是 慰 腌 。 
于 伏 ' 找 没有 什 笃 拥有 ， 
可 找 还 有 退 求 。 扩 玉 于 玉宇 宝玉 家 宝宝 宝宝 宝 可 找 还 有 追求 。 





图 7-12 习题 2 图 


3. 利用 For 循环 结构 ， 编 写 一 个 程序 ， 运 行程 序 后 在 立即 窗口 打印 一 个 上 三 角 的 图 形 ， 
每 行 左 侧 的 空白 处 是 连续 的 空格 ( 见 图 7-13 ) 。 





图 7-13 习题 3 图 
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VBA 编程 中 ， 需 要 经 常 处 理 数值 型 数据 与 日 期 时 间 型 数据 ， 针 对 数值 型 数据 ， 除 了 简 
单 的 加 减 乘除 四 则 运算 之 外 ， 还 需要 学 习 VBA 中 的 数学 困 数 。 


日 期 时 间 数 据 运算 与 数值 型 计算 有 很 多 不 同 之 处 ， 因 此 还 要 丈 悉 VBA 中 的 日 期 与 时 间 


VBA 中 的 数学 函数 属于 VBA.Math 类 库 ， 常 用 数学 函数 列 于 表 8-1 中 。 


表 8-1 VBA 中 的 数学 处 理 函 数 








西数 范例 
Exp e 的 乘 短 ，e~2.718 28 Exp(2) 返回 7.389 
Log 自然 对 数 (以 e 为 底数 ) Log(7.389) 返回 2 
Sgn 符号 函数 ， 正 数 返回 1， 负数 返回 -1， 零 返回 0 
Sqr 算术 平方 根 ， 参 数 不 能 为 负数 Sqr(49) 返回 7 





Sin Sin(1) 返回 0.841 47 
Cos 余弦 因数 Cos(1) 返回 0.5403 
= TE 


以 上 函数 中 ， 使 用 频率 较 高 的 有 Abs、Sqr 和 三 角 消 数 。 
8.1.1 三 角 遂 数 计 算 


需要 注意 的 是 ， 三 角 吗 数 的 参数 必须 是 弧度 制 。 
VBA 中 没有 圆周 率 7 这 个 稼 数 ， 在 编程 过 程 中 需要 用 到 7 的 时 候 ， 可 以 用 Atn 盯 数 
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转换 而 得 。 因 为 Tan(45°) 是 1， 所 以 Atn(1) 返回 圆周 率 的 四 分 之 一 ， 在 VBA 中 就 可 以 表 
达 为 Atn(1)*4。 

例如 ， 计 算 30。 的 正弦 、 余 苞 和 正切 值 ， 需 要 按照 狐 度 制 传递 参数 。 

源 代 码 : 实例 文档 104.xlsm/ 数学 函数 


1]. Sub Testl (1) 
加 Dim 五 As Double 
3. TT = VBA.Math.Atn(1) * 4 
4. Debug.Print VBA.Math.Sin(30 / 180 * TT) 
与 。 Debug.Print VBA.Math.Cos(30 / 180 * 7T) 
6 。 Debug.Print VBA.Math.Tan(30 / 180 * TT) l 
7. End Sub 
-D 
代码 分 析 : 第 4 行 用 来 计算 30” 的 正弦 值 ， 需 要 事先 转换 “|‖ . 366025403784439 
本 .D11350269189626 


运行 结果 如 图 8-1 所 示 。 





8.1.2 ”随机 数 


Rnd 胃 数 可 以 产生 一 个 0 ~ 1 的 随机 小 数 。 
下 面 的 实例 , 用 Rnd 生成 10 个 随机 小 数 ， 发 送 到 单元 格 区 域 中 。 
源 代 码 : 实例 文档 104.xlsm/ 数学 函数 


1 . Sub Test2() 

本 Dim 1 As Integer 

3 For 1 = 1 To 10 

4 Range ("A & 1I) .Value = Rnd 
i Next 1 

6. End Sub 


代码 分 析 : 由 于 工作 表 中 的 饼 图 的 数据 源 是 A1:A10， 因 此 每 运行 一 次 过 程 Test2 ， 饼 图 
的 样子 就 自动 变化 一 次 。 运 行 结果 如 图 8-2 所 示 。 


| 让 | | | EE 
| 0.547668517 | | |, 
0. 922954559 大 ~ 
5. 38E-01 图 表 标题 
0. 406421304 
0. 847245514 
0. 826225519 
0. 672427595 
0. 721895099 
0. 996771395 





-i 


0. 33980608| 


a5 sb a Bd 10 





图 8-2 运行 结果 2 
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在 实际 编程 应 用 中 ， 经 稼 用 到 随机 整数 。 例 如 ， 从 1000 道 题 中 随机 选 出 100 道生 成 试 
卷 ， 从 而 实现 每 个 考生 的 试卷 各 不 相同 的 目的 。 

生成 指定 区 间 的 随机 整数 的 推导 过 程 如 下 : 0 和 Rnd 和 1， 该 不 等 式 两 端 同时 乘 以 正 整 
数 b 得 0 三 b*Rnd 三 b， 同 时 加 上 一 个 整数 a 得 a 三 b*Rndta 三 b+a， 此 CInt(b*Rnd+a) 
就 可 以 生成 一 个 处 于 区 间 [a , b+a] 内 的 随机 整数 。 

这 里 假定 在 区 间 [4 , 15] 内 生成 一 个 随机 整数 ， 可 以 看 出 a=4，b=11。 随 机 数 不 等 式 束 
可 以 写作 : CInt(11*Rnd+4) 

源 代 码 : 实例 文档 104.xlsm/ 数学 函数 


1 Sub Test31{) 

之 Dim 1 A3 Integer 

ER For 1 = To 0 

4 Debug.Print Clint (ll * Rnd + 4) 
品 Next 1 

6 End Sub 


代码 分 析 : 运行 上 述 过 程 ， 打 印 在 立即 窗口 中 的 整数 ， 最 小 是 4， 最 大 是 15。 


注意 : CInt 和 Int 函数 是 不 一 样 的 ，CInt 是 四 人 五 入 取 整 ,而 Int 是 直接 舍弃 小 数 部 分 。 


如 果 是 Excel YBA， 还 可 以 值 用 工作 表 清 数 RandBetween 直接 生成 随机 整数 。 
源 代 码 : 实例 文档 104.xlsm/ 数学 函数 


1。 Sub Test4() 

-A Dim 1 As Integer 

: For 1 = 1 To 20 

4. Debug.Print Application.WorksheetFunction.RandBetween (4, 15) 
Ds Next 1 

6. End Sub 


运行 结 采 与 Test3 的 结果 一 样 。 


8.2 ”日 期 与 时 间 卫 数 


VBA.DateTime 类 库 中 包含 日 期 与 时 间 处 理 图 数 ， 和 名 用 日 期 、 时 间 困 数列 于 表 8-2 中 。 


表 8-2 VBA 日期、 时间 函数 


本 


Date 返回 或 设置 当前 日 期 Msgbox Date 
Time 返回 或 设置 当前 时 间 Msgbox Time 





Now 返回 当前 日 期 和 时 间 Msgbox Now 
nn 
Month Month (#2004/7/26 胡 返回 7 
机 和 
Hour Hour (#18:20:54#) 返回 18 
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六 数 功 能 实 例 
Minute Minute (#18:20:54#) 返回 20 
Timer 返回 从 00:00:00 到 现在 的 秒 数 略 
Second 返回 时 间 的 秒 数 Second(#18:20:54#) 返回 54 
WeekDay 返回 日 期 的 星期 序号 Weekday(#2017/9/2 抽 返回 7 (星期 六 ) 





+WeekDayName 返回 星期 名 称 WeekDayName(3) 返回 “星期 二 ” 
*MonthName 返回 月 份 名 称 MonthName(3) 返回 “三 月 ” 


注 ， 前 面市 有 * 的 函数 ， 不 属于 DateTime 类 库 。 
8.2.1 ”返回 与 设置 当前 日 期 时 间 


Date 和 Time 咀 数 获取 当前 日 期 、 时 间 ， 可 以 赋 给 日 期 时 间 类 型 的 变量 。 
源 代码 : 实例 文档 105.xlsm/ 日 期 函数 


1 Sub Testl]{() 

2 Dim dtl1 As Date, dt2 As Date, dt3 As Date 
3 局 七 = Date 

二 dt2 = Time 

= dt3 = Now 

6 Debug.Print dtl 

1 Debug.Print dt»2 

8 Debug.Print dt3 13:45:40 

9. End Sub 2017/9/2 13:45:40 





2017/9/2 





上 述 过 程 的 运行 结果 如 图 8-3 所 示 。 图 8-3 ”运行 结果 3 
同上 时， 使 用 Date 和 Time 还 可 以 更 改 系统 时 间 。 
Sub Test2 () 

Date = #3/25/1998# 


Time = :1 .3 之 各” 
End Sub 


运行 上 述 代码 ， 系 统 时 间 会 目 动 改变 。 


8.2.2 ”计算 程序 运行 时 间 


Timer 困 数 返回 从 午夜 《00:00:00) 到 现在 的 秒 数 ， 例 如 现在 是 中 午 12 点 ， 那 么 Timer 
就 等 于 12 x 3600=43 200。 

如 采 一 个 VBA 过 程 需 要 运行 很 长 时 间 ， 束 可 以 在 运行 前 用 Timer 记录 开始 时 刻 ， 过 程 
运行 完 骨 计算 一 次 时 刻 ， 两 个 时 刻 的 差 束 是 这 个 过 程 的 用 时 。 

源 代码 : 实例 文档 105.xlsm/ 日 期 函数 


1 Sub Test31{) 

2 Dim start As Double, over As Double 
3. start = Timer 

4 Dim L As Long 

-J For L = 1 To 40000 
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10. End 


Range ("A™ & L) .Select 


Nexxt I 

OVer = Timer 

Debug.Print ™ 总 用 时 (种 ): VE& (over 一 start) 
Sub 


代码 分 析 : 上 述 过 程 ， 从 Al 单元 格 开始 向 下 ， 连 续 选 中 4 万 次 。 
运行 结果 为 : 


总 用 时 ( 秒 )，66.4296875 


8.2.3 日 期 时 间 的 生成 


在 实际 编程 中 ， 经 和 常会 用 年 、 月 、 日 单独 的 整数 来 组 合 为 日 期 ，VBA 中 的 DateSerial 


部 数 可 以 把 整数 组 合 为 日 期 ，TimeSerial 田 数 可 以 把 整数 组 合 为 时 间 。 


DateValue 职 数 可 以 把 字符 串 转 换 为 日 期 类 型 ，TimeValue 困 数 把 字符 串 转 换 为 日 期 时 


源 人 代码 : 实例 文档 105.xlsm/ 日 期 函数 


1] Sub 
2 
3 
4. 
I 
6 
时 
8 
9 


10. End 


Test4() 

Dim dtl1 As Date, dt2 As Date 

Dim YY A3 Integer, m As Integer, d As Integer 
Dim 3S As String 

y= 2015: m= 8: d= 30 

dtl1 = DateSerial(y, m, d) 

s = "2015 年 8 月 2 日 " 

dt2 = DateValue(s) 

Debug.Print dtl, dt2 

Sub 


代码 分 析 : 第 6 行 代码 ， 把 3 个 整数 组 合 为 日 期 。 
第 7 行 代码 中 s 是 一 个 字符 串 ， 不 是 日 期 。 第 8 行 代码 把 字符 串 转换 为 日 期 。 
运行 结果 为 : 


2015/8/30 2015/8/2 


除了 使 用 DateValue 哨 数 外 ， 使 用 CDate("2015 年 8 月 2 日 ") 也 可 以 把 其 他 类 型 转 


换 为 日 期 。 


源 代码 : 实例 文档 105.xlsm/ 日 期 函数 


1] Sub 
pa 
3 
4. 
= 
6 
7 
8 
9 


10. End 


Testo{() 

Dim dtl1 As Date, dt2 As Date 

Dim h As Integer, n As Integer, 3 As lInteger 
Dim 七 As String 

h = 13: n= 8: ss = 30 

dtl1] = TimeSerial (h, n, 3) 

t = "6:12:54" 

dt2 = TimeValue (t) 

Debug.Print dtl, dt»2 

SUb 
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代码 分 析 : 本 过 程 演示 了 时 间 的 生成 ， 把 小 时 、 分 、 秒 组 合 为 时 间 。 
运行 结 采 为 : 


15:08:30 6=:12:54 
8.2.4 ”日 期 时 间 的 加 减 运算 


日 期 、 时 间 的 加 减 运算 至 关 重 要 ， 因 为 平时 经 常 需要 计算 过 nm 天 后 是 几 月 几 日 ,或 者 两 
个 日 期 之 间 相 差 多 少 天 的 问题 。 

如 有 末 遇 到 要 求 比 较 精 细 的 场合 ， 还 需要 进行 时 间 的 加 减 计算 。 

在 VBA 的 日 期 时 间 数 据 中 ,通常 有 以 下 3 种 情形 的 数据 。 

口 只 有 日 期 部 分 ,例如 #017/9/2#。 

口 只 有 了 时间 部 分 ， 例如 #15:08:30#。 

口 两 者 都 有 ， 例 如 #2017/9/2 15:08:30#。 

实际 上 ， 无 论 是 哪 一 类 数据 ， 都 可 以 理解 为 两 者 都 有 。 

如 条 只 有 时 间 部 分 ， 则 软 认 其 日 期 是 1899 年 12 月 30 日 ， 例 如 克 5:08:30# 等 价 于 
#1899/12/30 15:08:30#。 

如 果 只 有 日 期 部 分 ， 则 默认 其 时 间 是 00:00:00， 例 如 埠 017/9/2# 等 价 于 #017/9/2 00:00:00#。 

如 果 一 个 是 只 有 日 期 的 ， 男 一 个 是 只 有 时 间 的 ， 那么 二 者 相 加 可 以 得 到 一 个 新 的 日 期 数 
据 ， 例 如 #2017/9/2# 十 #15:08:30# 就 可 以 返回 #2017/9/2 15:08:30#。 

VBA 中 的 DateAdd 困 数 的 作用 是 在 一 个 日 期 的 基础 上 加 上 或 减 去 一 个 时 刻 ， 得 到 另 一 
个 日 期 。DateDiff 男 数 的 作用 是 计算 两 个 日 期 的 差 值 。 

如 末 两 个 日 期 数据 都 是 完整 的 ， 不 可 以 进行 加 法 运算 ， 但 是 可 以 在 一 个 日 期 的 基础 上 加 
上 或 减 去 一 定 的 时 间 。 

源 代码 : 实例 文档 105.xlsm/ 日 期 函数 


] Sub Teste1() 

2 Dim dt]1] As Date, dt2 As Date, dt3 As Date 
E 和 dt1 = #9/2/2017 9:30:26 AM# 

4. dt2 = dtl1 + 6 + #2:10:03 AM# 

“3 dt3 = dtl1 -5 一 #2:10:03 AM# 

6 Debug.Print dt2, dt3 

1 End Sub 


代码 分 析 : 第 4 行 代 码 ， 在原 有 日 期 基础 上 加 上 3 天 ， 再 加 上 2 小 时 10 分 3 秒 。 
第 5 行 代码 ,在原 有 日 期 基础 上 减 去 5 天 ， 青 减 去 2 小 时 10 分 3 秒 。 

运行 结果 为 : 

2017/9/8 11:40:29 2017/8/28 7:20:23 

上 述 代码 下 观 易 履 ， 但 是 为 了 使 操作 更 方便 ， 可 以 使 用 更 强大 的 DateAdd 子 数 。 
DateAdd 吊 数 的 语法 为 : 


DateAdd (Unit,Number, Datel) 
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参数 Unit 是 一 个 字符 串 ， 可 取 值 如 表 8-3 所 示 。 


表 8-3 DateAdd 函数 第 1 个 参数 取 值 
SD 到 从 
yyyy 一 周 的 日 数 
月 || +， | 本 
-的 上 | an | 名 


参数 Number 是 一 个 整数 ， 可 正 可 负 。 参 数 Datel 是 基准 日 期 时 间 。 

例如 ，DateAdd("d", 6, # 9/2/2017#) 返回 # 9/8/2017#， 含 义 是 在 2017 年 9 月 2 日 加 上 6 
天 的 新 日 期 。 

源 代 码 : 实例 文档 105.xlsm/ 日 期 函数 


| | | 


1。 Sub Test]() 

pr Dim dtl1 As Date, dt2 As Date, dt3 As Date 
二 dtl1 = #9/2/2017 9:30:26 AM# 

4. dt2 = DateAdd{("d", 10, dt1l) 

各 dt3 = DateAdd("h", 8, dtl) 

6. Debug.Print dt2, dt3 

1. End Sub 


代码 分 析 : 第 4 行 代码 的 含义 是 dtl 的 前 10 天 的 日 期 。 第 5 行 代码 表示 dtl 再 过 8 
小 时 。 


2017/8/23 9:30:26 2017/9/2 171:30:26 


8.2.5 ”计算 两 个 日 期 的 间隔 


两 个 日 期 的 间 隅 、 差 值 的 大 小 ， 和 有 具体 单位 有 关 。VBA 的 DateDiff 子 数 语法 如 下 : 
DateDiff (Unit,Datel,Date2) 


参数 Unit 与 DateAdd 四 数 中 的 Unit 含义 相同 。 
DateDiff 困 数 的 作用 是 计算 Date2 减 去 Datel 的 差 仁 ， 返 回 一 个 整数 。 
源 代 码 : 实例 文档 105.xlsm/ 日 期 函数 


1。 Sub Test () 

2 Dim dtl1 As Date, dt2 As Date, dt3 As Date, dt4 As Date 
5 dt]1] = #9/2/2017# 

4. dt2 = #8/8,/2008# 

i Debug.Print DateDiff("d", dtl, dt2) 

6. dt3 = #3:16:23 PM# 

要 dt4 = #9:46:37 AM# 

38. Debug.Print DateDiff("n", dt3, dt4) 

9. End Sub 


代码 分 析 : 第 5 行 代码 计算 两 个 日 期 相差 的 天 数 ， 


R3312, 


第 8 


8.2.6 ”日 期 时 间 的 分 解 


VBA 中 DatePart 图 数 的 作用 和 DateSerial、 


作用 是 根据 日 期 ， 分 入 





出 年 、 月 、 日 、 


源 代码 : 实例 文档 105.xlsm/ 日 期 函数 


Sub Test91{) 


Dim dtl1 As Date 
#9/2/2017 2:23:54 PM# 


对 七 = 


Debug. 
Debug. 
Debug. 
Debug. 


Debug. 


Print 
Print 
Print 
Print 


Print 


DatePart ("yyyYy", 
DatePart ("m™, 
DatePart ("™d"™", 
DatePpPart ("hh"™, 
nm" dtl1) 


DatePart(™ 


小 时 、 分 、 
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由 于 dt2 比较 小 ， 所 以 返回 的 是 负数 ， 


行 代码 计算 两 个 时 刻 相差 的 分 钟 数 ， 结 采 为 -330。 


TimeSerial | 恰 相 反 ，DatePart 困 数 的 
秒 等 部 分 ， 人 返回 的 结果 为 整数 。 


dt1) 
dt1) 
dt1) 
dt1) 


1] 
之 
3 
4. 
es 
6 
1 
8 
+ 


Debug.Print DatePart("s 
10. End Sub 


上 述 过 程 运行 结果 如 图 8-4 所 示 。 


”7 dtl1) 





习题 


1. 对 于 下 面 的 8 个 数字 : 36 
并 给 出 该 数字 出 现 的 位 置 。 
2. 中 国 剩余 定理 (又 名 孙子 定理 ) :“ 今 有 物 不 知 其 数 ， 
七 七 数 之 剩 二 。 问 物 几何 ?” 意 思 是 说 ， 一 个 数字 除 以 3 余数 是 2， 除 以 5 余数 是 3， 除 以 7 
和 2， 求 这 个 数 。 请 编写 VBA 程序 ， 从 1 遍历 到 300， 看 看 有 几 个 数字 符合 上 述 条 件 。 
.如 图 8-5 所 示 ， 工 作 表 A 列 中 是 20 个 员工 的 出 生日 期 ,编写 程序 统计 “ 90 后 ” 
(1990 四 1 月 1 日 以 后 出 生 的 ) 的 人 数 。 


、-8、24、-41、31、18、-$、9， 求 出 绝对 值 最 大 的 数字 ， 


三 三 数 之 剩 二 ,五 五 数 之 剩 三 ， 


Tig91 年 8 月 5 卓 





图 8-5 习题 3 图 





VBA 语言 之 所 以 能 够 对 Office 进行 操作 和 控制 ， 是 因为 Office 的 方方面面 均 可 用 VBA 
对 象 来 描述 ， 对 象 (Object) 是 实际 存在 的 物体 ， 对 象 类 型 是 物体 所 属 的 大 类 。 

对 和 象 不 同 于 前 面 讲 过 的 基本 数据 类 型 ， 一 个 对 象 往 往 有 很 多 属性 、 方 法 、 事 件 ， 甚 至 还 
包含 子 对 象 。 

微软 office 的 所 有 组 件 中 ， 电 子 表格 软件 Excel 是 使 用 频率 最 高 的 组 件 ， 具 有 非常 丰 
画 、 完 善 的 VBA 对 象 模型 。 因 此 ， 本 章 首 先 讲述 对 象 的 基础 知识 ， 人 然后 讲解 使 用 对 象 变量 
及 Excel VBA 对 象 。 


9.1 对象 和 对 象 类 型 


有 具有 下 级 成 员 的 物体 就 是 对 象 。 

例如 ， 电 脑 是 一 个 类 型 ， 而 具体 的 像 小 王 的 台式 机 、 小 至 的 笔记 本 这 些 是 实际 存在 的 物 
体 ， 也 就 是 实际 对 象 ， 这 些 实际 对 象 都 属于 电脑 这 个 对 象 类 型 。 

由 于 电脑 都 具有 品牌 、 重 量 这 些 属 性 ( Property)， 同 时 电脑 还 有 处 理 需 、 屏 幕 这 些 实际 
存在 的 子 对 象 ， 这 些 子 对 象 还 拥有 日 喘 的 成 员 (Members ) 

每 个 电脑 都 可 以 进行 开机 、 关 机 操作 ， 这 些 动作 称 之 为 电脑 的 方法 (Method)。 

电脑 突然 死机 时 或 者 电脑 面临 修理 时 ， 会 引发 一 些 其 他 的 事件 出 现 ， 这 时 可 以 为 这 些 事 
件 发 生 时 指定 一 些 处 理 过 程 ， 这 就 是 对 象 的 事件 (Event) 机 制 。 

因此 ， 学 习 对 象 ， 就 是 要 熟悉 对 象 属性 的 读 写 、 对 和 象 方法 的 使 用 、 对 和 象 事 件 的 触发 原 
理 、 子 对 象 的 访问 等 。 


9.1.1 属性 


属性 就 是 指 物体 某 方面 的 可 以 量化 的 性 质 ， 例如， 一 本 书 的 名 字 、 一 台电 脑 的 重量 、 人 
的 性 别 、 员 工 的 工资 都 是 具体 对 象 的 属性 。 对 象 的 属性 的 类 型 往往 是 基本 数据 类 型 ， 例 如 ， 
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员工 的 工资 就 是 一 个 浮 点 型 的 数据 ， 下 面 不 能 再 有 成 员 。 

有 的 属性 既 可 以 读 取 ， 又 可 以 修改 ， 而 有 些 属 性 是 只 读 的 ， 不 可 修改 。 

VBA 中 ， 在 对 象 后 面 输入 小 数 点 ， 会 自动 弹出 与 该 对 象 有 关 的 属性 、 方 法 、 子 对 象 
(成 员 )。 

如 下 面 的 例子 ， 小 李 的 笔记 本 是 实际 存在 的 一 台电 [sub Test0 


z oo | im 小 李 有 的 笔记 本 As New 电脑 
脑 ， 代 码 中 设 定 了 电脑 的 品牌 ， 然 后 又 读 取 该 品牌 的 大 小 村 的 笔记 本 这 牌 =“ 


MsgBox Ge 修 字 而 和 让 各 品牌 ) 

写 形式 。 当 在 “小 李 的 笔记 本 ”后 接着 输入 小 数 点 时 ， | Tit 
弹出 成 员 羔 单 ( 见 图 9-1)。 : 

其 中 ,方法 和 函数 的 图 标 是 绿色 的 ， 而 属性 以 及 子 
对 象 的 图 标 是 灰色 的 。 

在 Excel VBA 中 ,语句 Range("A1").Value = Range("A1").Value*10 的 作用 是 把 单元 
格 Al 的 数值 扩大 为 原来 的 10 倍 。 等 号 右 侧 是 谈 取 原先 单元 格 的 Value 属性 ， 等 号 左 侧 是 
把 表达 式 的 结 采 赋 给 单元 格 的 Value 属性 ， 因 此 这 条 场 句 怠 是 对 象 属性 旋 写 的 最 佳 例子 。 

从 上 面 的 例子 可 以 看 出 ， 既 可 以 设 定 对 象 的 属性 ( 写 属性 )， 也 可 以 访问 属性 ( 读 属 性 )， 
读 出 的 属性 是 基本 数据 类 型 ， 可 以 参与 其 他 的 运算 中 。 





图 9-1 对 象 属性 的 读 写 


9.1.2 万 法 


了 法 就 是 对 象 的 一 个 动作 。 有 的 方法 直接 调 Sub Test() 
方法 就 是 对 象 的 一 个 动作 。 有 的 方 区 


用 即 可 ， 也 有 的 方法 需要 传递 参数 。 如 图 9 2 所 “| 。 4 的 区， 

示 的 实例 ， 电 脑 的 开机 方法 就 需要 传递 “管理 员 ” 

“方式 ”两 个 参数 。 
在 Excel VBA 中 ,语句 Application.Workbooks.Add Template:="E:\Socre.xltm" 的 作用 是 

基于 指定 模板 新 建 一 个 工作 簿 ， 在 这 条 语句 中 Workbooks 是 对 象 ，Add 是 方法 ，Template 

参数 。 





图 9-2 对象 的 方法 


通 半 情况 下 ， 对 象 的 方法 语句 没有 返回 值 ， 例 如 ActiveWorkbook.Close 的 作用 是 关闭 活 
动工 作 短 ， 语 句 执行 后 无 任何 返回 结果 。 

也 有 一 些 调用 方法 的 语句 会 返回 基本 数据 类 型 ,或 者 返回 对 象 ， 对 于 可 以 返回 结果 的 方 
法 也 可 以 理解 为 销 数 。 例 如 : 

Callback = VBA.Interaction.MsgBox(" 确定 退出 吗 ? ",， vbOKCancel + vbInformation) 
中 MsgBox 既 可 以 被 认为 是 方法 ， 也 可 以 被 认为 是 限 数 ， 返 回 的 结果 赋 给 变量 Callback。 

用 例如 Set w = ThisWorkbook.Worksheets.Add， 这 条 语句 中 Worksheets 对 和 象 的 Add 方法 
用 于 增加 一 个 新 工作 表 ， 执 行 方法 后 把 新 加 的 工作 表 赋 给 对 象 变量 w。 


9.1.3 事件 


事件 是 指 对 象 由 于 其 他 原因 发 生 肝 个 动作 时 和 触发 的 过 程 。 如 图 9-3 所 示 ， 假 设 小 王 的 人 台 
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式 机 突然 死机 ， 就 会 立即 调用 “强制 重启 ”过 程 : Private Sub 小 王 的 台式 机 死机。 其 中 ， 
小 王 的 合式 机 是 对 象 主体 ， 死 机 是 事件 名 称 ， 组 成 的 VBA 过 程 就 是 事件 过 程 。 


Public WithEvents 小 王 的 台式 机 As 电脑 
Private Sub 小 王 的 和 台式 机 死机 人 
Call 强制 重 局 





_End Sub 

Private Sub 小 王 的 和 台式 机 收 理 人 则 
Call 堆 惨 人 员 

End sub 








图 9-3 对象 的 事件 
在 Excel VBA 编程 中 ， 经 背 用 到 事件 编程 ， 但 是 并 非 所 有 对 象 都 能 定义 事件 过 程 ， 例 
如 Range 对 象 、Shape 对 象 、Window 对 象 都 没有 任何 事件 。 具 有 事件 机 制 的 Excel VBA 对 
象 主 要 有 Application 对 象 、Workbook 对 象 、Worksheet 对 象 、Chart 对 和 象 、Commandbars 对 
象 以 及 一 些 工 具 栏 控件 对 象 、 用 户 窗 体 和 MSForms 控件 。 


9.1.4 ”父子 对 象 


有 的 对 和 象 下 面 除了 属性 以 外 ， 束 没 有 别 的 成 员 了 。 但 是 ,很 多 对 和 象 下 面 除了 日 喘 的 寿 干 
属性 以 外 ， 还 包含 子 对 象 ， 这 就 说 明 对 象 之 则 存在 有 所属 关系 、 父 子 关 系 。 

下 面 的 实例 ， 小 至 的 笔记 本 是 一 个 电脑 对 象 ， or pr 
其 下 有 一 个 屏幕 子 对 象 ， 这 个 屏幕 对 象 还 有 宽度 、 MsgBox 小 李 的 笔记 本 . 屏 舌 . 宽度 
高 度 属性 ， 还 有 清洗 方法 ( 见 图 9-4)。 | 

因此 ， 经 凋 把 对 象 的 属性 、 方 法 、 子 对 象 这 
几 类 统称 为 对 象 的 成 员 ( Members)。 对 象 与 其 下 
一 级 都 是 用 小 数 点 连接 的 。 

至 于 对 和 象 的 成 员 有 了 哪些， 这 和 对 象 所 属 的 库 有 关系 ， 也 就 是 VBA 工程 引用 。 例 如 ， 
Range 对 象 具有 Merge 方法 ，Worksheet 对 象 具 有 Copy 方法 ,但 是 不 具有 Cut 方法 。 这 些 都 
和 Excel 对 象 库 的 内 置 规定 有 关 ， 用 户 只 能 使 用 其 成 员 ， 但 不 能 增删 改动 。 

同时 ， 从 子 对 象 还 可 以 用 Parent 来 返回 其 所 属 的 父 对 象 。 例 如 下 面 的 VBA 过 程 ,tt 是 
一 个 Excel 的 字体 对 象 变 量 ， 用 Parent 反 过 来 获得 到 让 的 上 级 ， 是 Al 单元 格 。 





图 9-4 对象 的 于 对 象 


Sub Test (| 
Dim ft As Excel .FEont 
Set ft = Range ("Al") .Font 
ft.Name = "华文 新 魏 " 
MsgBox Ift.Parent.Address 
End Sub 


9.2 ”使 用 对 人 象 变 量 


前 面 学 过 的 变量 ， 是 对 应 于 基本 数据 类 型 的 ， 由 于 基本 数据 类 型 没有 自己 的 成 员 ， 所 有 
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股 的 变量 也 没有 成 员 ， 变 量 的 作用 就 是 表达 式 的 一 个 代号 而 已 
对 象 变量 是 对 应 于 对 象 的 ， 也 可 以 理解 为 是 具体 对 象 的 一 个 代号 。 对 和 象 变 量 与 一 般 变 量 
的 不 同 之 处 有 如 下 几 方 面 。 
D 对 象 变 量 持 有 的 永远 是 对 象 。 
DQ 对 象 变量 的 赋值 使 用 Set 关键 字 。 
口 对 象 变量 使 用 完 后 使 用 Nothing 关键 字 销 毁 。 
下 面 的 例子 说 明 使 用 对 象 变量 和 不 使 用 对 象 变 量 的 差别 。 
源 代 码 : 实例 文档 111.xlsm/ 对 象 变量 


1. Sub 一 般 写 法 () 

pa Range ("Al™") .Font.Name 

3 Range ("Al") .Font.Bold True 
4. Range ("Al") .Font.Color = VbBlue 
2 ) 
6 ) 
1 


" 华文 新 魏 " 


Range ("Al™") -FEont .StrIKethrough = True 
Range ("Al") .Font.Size = 24 
End Sub 


代码 分 析 : 第 2 ~ 6 行 用 来 设置 单元 格 的 字体 格式 ,分 别 设置 了 字体 名 称 、 加 粗 、 赣 色 、 

删除 线 、 字 号 。 
运行 上 述 过 程 ， 结 果 如 图 9-5 所 示 。 

从 上 面 的 过 程 可 以 看 出 ， 代 码 中 有 很 多 相同 的 、 宛 
余 的 文字 ， 那 就 是 Range("A1 .Font。 

此 ， 我 们 可 以 定义 一 个 Font 类 型 的 对 象 变量 ft 
用 它 来 指 代 单 元 格 Al 的 字体 。 代 码 修改 如 下 。 

源 代码 : 实例 文档 111.xlsm/ 对 象 变量 





图 9-5 运行 结果 1 


1. ”Sub 使 用 对 象 变量 () 

之 Dim ft As Excel .Font 

3 Set ft = Range ("Al") .Font 
4. ft.Name = "华文 新 魏 " 
ft.Bold = True 

6 ft.Color = vbBlue 

1 ft.strikethrough = True 

8 ft.Size = 24 

-六 Set ft = Nothing 

10. End Sub 


此 部 分 代码 的 功能 与 前 文 所 述 的 代码 完全 相同 ， 但 是 看 起 来 代 但 向 洁 了 许多 。 第 9 行 的 
作用 是 释放 对 和 象 变量 。 

上 述 过 程 是 非常 经 典 的 对 象 变 量 使 用 方法 ， 在 今后 的 学 习 过 程 中 ， 会 在 代码 中 大 量 使 用 
对 象 变 量 ， 因 此 和 希望 谈 者 牢记 对 象 变量 从 声明 、 赋 值 到 使 有 用、 销毁 的 流程 。 

很 多 情形 下 ， 还 需要 了 解 对 象 变 量 的 当前 取 值 。 对 象 变量 一 般 有 两 种 状态 : 一 种 是 获得 
了 实际 的 对 象 ; 男 一 种 是 空 对 象 。 当 处 于 空 对 象 时 ， 使 用 


对 象 变量 Is Nothing 
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可 以 判断 对 象 变 量 是 否 为 空 ， 如 有 条 为 空 则 返回 True。 
下 面 的 实例 演示 从 单元 格 区 域 查 找 人 的 姓名 。 
源 代码 : 实例 文档 111.xlsm/ 对 象 变 量 

Sub 查找 () 


Dim rg As Excel.Range 


Set IrIg = Range ("A3:A6") .Find (What:=" 王 麻子 "， LookAt :=xlWhole) 


1 
2 
3 
4. It rg Is Nothing Then 
5 MsgqBox " 没有 找到 1! " 
6 Else 

7 MsgBox "找到 了 ， 地 址 是 : " & rg.Address 
8 End I 

9 End Sub 


代码 分 析 : rg 是 一 个 Range 类 型 的 对 象 变量 ， 第 3 行 代码 在 A3:A6 查找 “ 王 兵 子 ”， 


如 果 找到 则 re 会 获取 到 查找 目标 所 在 的 单元 格 ， 如 果 找 不 到 ， 这 行 代码 白 执 行 ， 


不 到 。 
此 ， 上 述 过 程 的 运行 结 采 如 图 9-6 所 示 。 


如 果 把 代码 的 查找 关键 词 改 为 “ 王 五 >， 重新 运行 ， 结 果 如 图 9-7 所 示 。 





9.2.1 With 结 术 





什么 也 得 


使 用 With 结构 ， 可 以 大 大 减少 同一 个 对 象 或 对 象 变量 的 书写 次 数 。 在 With 结构 中 ， 所 


有 的 对 象 都 可 以 忽略 不 写 ， 实 例如 下 。 
源 代码 实例 文档 111.xlsm/ 对 象 变量 


1. Sub 使 用 With () 

pn Dim ft As Excel.Font 

: Set ft = 及 an 可 ("Al") .Font 
4 。 With 于 七 

i .Name = "华文 新 魏 " 

6. .Bold = True 

rn .Color = vbhBlue 

8. .Strikethrough = True 
- .Slize = 24 

10. Set ft = Nothing 

11. End With 


12. End Sub 
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代码 分 析 : 第 4 ~ 11 行 是 With 结构 体 ， 该 结构 的 主体 对 象 是 站， 因此 第 5 ~ 9 行 中 凡 
是 用 到 在 的 成 员 ,， 健 均 忽 略 不 写 ， 只 须 输入 小 数 点 即 可 。 


9.2.2 ”集合 对 象 


Excel VBA 中 ， 有 很 多 对 象 是 名 词 的 复数 形式 ， 例 如 Application.Workbooks 、 
ActiveSheet.Shapes 、Range.Columns， 这 些 以 s 结 尾 的 单词 是 一 种 集合 对 象 。 集 合 对 象 
是 相对 于 个 体 对 象 而 言 的 ， 例 如 ，Workbook 是 指 应 用 程序 中 打开 的 某 一 个 工作 禾 ， 那 么 
Workbooks 就 是 打开 的 所 有 工作 竹 。Shape 是 指 工 作 表 上 的 一 个 图 形 ， 而 Shapes 是 指 工 作 表 
上 的 所 有 图 形 。 

在 Excel VBA 编程 过 程 中 ， 经常 使 用 集合 对 象 来 遍历 个 体 对 象 ， 这 也 正 是 Excel VBA 的 
魅力 所 在 。 学 习 集 合 对 象 时 ， 主 要 学 习 集 合 对 象 本 号 的 属性 、 方 法 ， 然 后 学 习 其 对 应 的 个 体 
对 和 象 的 用 法 即 可 。 下 面 仅 以 Excel 的 Shapes 集合 对 象 为 例 ， 讲 述 操作 工作 表 上 的 图 片 。 

在 工作 表 上 插入 4 张 水 果 图 片 ， 然 后 在 名 称 框 中 分 别 为 每 张 图 片 重 命名 。 

工作 表 上 的 每 一 张 图 片 ， 在 Excel VBA 中 用 Shape 对 和 象 来 描述 ， 工 作 表 上 的 所 有 图 片 
就 构成 了 一 个 集合 对 象 Shapes ( 见 图 9-8)。 

接 下 来 看 一 下 集合 对 象 的 常用 成 员 。 

口 Count: 集合 对 和 象 中 对 象 的 总 数 。 

D Item: 用 索引 或 名 称 来 表示 个 体 对 和 象 。 

D Add 或 者 Remove 方 法: 增加 或 移 除 个 体 。 

于 是 ，Shapes.Count 就 返回 了 工作 表 上 图 片 的 总 数 。 


shapes(" 草 盔 ") | shapes(" 理 巷 ") 
或 者 Shapes(1) . 或 者 Shapesl(41 


Shapes 





图 9-8 ”Shape 对象 示例 


Shapes.Item(" 草 每 ") 或 者 Shapes.Item(1) 返回 的 是 一 个 Shape 对 象 ， 也 就 是 图 中 的 草 每 
图 片 。 其 中 ，Item 这 个 关键 字 可 以 省 略 。 

VBA 中 集合 对 象 就 好 比 是 一 种 容纳 了 多 个 实际 对 象 的 数组 ， 但 是 下 标 总 是 从 1 开始 。 
那么 Shapes(2) 、Shapes(3) 、Shapes(4) 就 分 别 指 代 侠 果 、 西 瓜 和 香 态 

使 用 集合 对 象 最 大 的 好 处 就 是 可 以 遍历 其 中 每 一 个 对 象 的 相关 属性 。 





168 Office VBA 开发 经 典 一 一 基础 入 门 卷 


源 人 代码， 实例 文档 112.xlsm/ 处 理工 作 表 的 图 片 
sub 旋 历 图 片 属性 () 


1 

可 Dim shps As Excel.Shapes 
3 Dim shp As Excel.SsShape 
4. Set shps = Sheetl.sShapes 
Re Set shp = shps.1Iteml(l1l) 
2 3hp.Rotation = 43 
| 
8 
9 


For Each shp In shps 
Debug.Print shp.Name, shp.Left 
8 shp.Top = Range("B3") .Top 
10. Next shp 
ll1l. End Sub 


代码 分 析 : 对 象 变量 shps 是 一 个 集合 对 象 ， 指 代 Sheetl 工作 表 上 的 所 有 图 片 。 对 象 变 
量 shp 是 一 个 个 体 对 象 变量 ， 一 次 只 能 指 代 一 张 图 片 。 

第 5 行 代码 用 shp 来 获取 工作 表 上 的 第 一 张 图 片 。 

第 6 行 代码 把 第 一 张 图 片 旋转 45° 。 

第 7 ~ 10 行 用 For Each 循环 结构 遍历 上 所有 图 片 ， 打 印 每 张 图 片 的 名 称 和 左边 距 。 

第 9 行 代 公 把 每 张 图 片 水 平 对 齐 到 B3 单元 格 的 项 部 。 

运行 上 述 过 程 结果 如 图 9-9 所 示 。 

立即 窗口 的 打印 结果 如 图 9-10 所 示 。 


| | I 


加 
了 
B 





64. 5 

172. 0134 
2171. 124 
441. 9331 





图 9-9 ”批量 设置 图 片 属性 图 9-10 运行 结果 4 
实际 上 ， 除 了 使 用 上 面 的 For Each 结构 以 外 ， 还 可 以 通过 授 历 对 象 索 引 的 方法 来 实现 
同样 的 目的 。 
源 代码 ， 实例 文档 112.xlsm/ 处 理工 作 表 的 图 片 


1. Sub 庆历 索引 () 

二 Dim 1 As Integer 

3 For 1 = 1 To Sheetl.Sshapes.Count 

4. Sheetl.Shapes.lIteml(i) .Rotation = 一 30 
i Next 1 

6 End Sub 


代 伍 分 析 : 第 4 行 代码 Sheetl.Shapes.Item(Qi) 里 面 的 i 就 是 图 片 的 下 标 ， 这 个 语句 表示 
第 i 张 图 片 的 选中 角度 为 -30° 。 

每 张 图 片 旋转 后 的 结果 如 图 9-11 所 示 。 

上 面 的 例子 是 般 历 对 象 的 经 典范 例 ， 望 谈 者 细心 括 摩 。 

接 下 来 讲述 对 象 的 添加 和 删除 ， 也 就 是 在 工作 表 上 插入 新 的 图 片 ， 以 及 删除 已 有 图 片 。 
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图 9-11 运行 结果 5 


使 用 Shapes.AddPicture 方法 可 以 把 电脑 中 的 图 片 插入 到 工作 表 ， 使 用 Shape.Delete 方 
法 删除 某 张 图 片 。 
源 代 码 : 实例 文档 112.xlsm/ 处 理工 作 表 的 图 片 


Sub 插入 图 片 () 


Dim shp As Excel.sSshape 

Set shp = Sheetl.Shapes.AddPicture (ThisWorkbook.Path & "AN 水 果 \ 柚子 . pg, 
msoTrue, msoTrue, Range ("B12:D1/") .Left, Range("Bl2:D1 7") .Top, Range 
("Bl2:D1 71") .Width, Range ("B12:D1/") .Helight) 

MsgBox Sheetl.sShapes.Count 


End Sub 


代码 分 析 : 第 3 行 代码 使 用 AddPicture 方法 把 柚子 图 片 插 入 工作 表 中 ， 并 且 把 该 图 片 
目 动 对 齐 到 单元 格 B12:D17。 
运行 结果 如 图 9-12 所 示 。 





删除 已 有 图 片 非常 简单 ， 使 用 Shapes(3).Delete 即 可 删除 第 3 张 图 片 ， 也 可 以 用 For 
Each 遍历 每 张 图 片 ， 并 删除 所 有 图 片 。 

但 是 ， 最 好 不 要 使 用 遍历 下 标的 方式 删除 对 象 ， 这 是 因为 每 删除 一 个 对 象 ， 对 象 的 下 标 
条 引 会 日 动 重 排 ， 不 过 倒序 通 历 还 是 可 以 采取 的 。 

假设 工作 表 上 有 4 张 图 片 ， 下 面 的 实例 可 以 依次 删除 每 张 图 片 。 

源 代码 : 实例 文档 112.xlsm/ 处 理工 作 表 的 图 片 


Ee 


1 
3. 
44 
3 
6 


Sub 删除 图 片 () 


Dim 1 As Integer 
For 1 = 4 To 1 step -1 
Sheetl .Shapes (i) .Delete 


NexXt 1 


End sub 
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但 是 ， 如 果 把 第 3 行 代码 写成 正 序 循环 : For i=1 to 4， 上 述 过 程 一 定 会 出 错 。 


9.3 ” Excel VBA 对 人 象 


Excel VBA 拥有 非常 庞大 的 对 象 模型 。 所 请 对 和 象 模 型 ， 就 是 对 象 与 对 象 之 间 的 关系 。 一 
般 来 说 ， 对 象 与 对 象 之 间 可 以 是 所 属 关 系 ， 也 可 以 是 平行 关系 ， 还 可 以 训 无 关系 。 前 面 已 
经 讲 过 ， 每 个 对 象 都 有 自己 的 成 员 (属性 、 方 法 每 )， 所 以 ， 为 了 快速 掌握 Excel VBA 编程 ， 
自 和 完 要 搞 清 楚 最 徊 用 的 对 象 模 型 。 

Excel 软件 是 一 个 多 文档 应 用 程序 ， 可 以 同时 打开 多 个 工作 夭 文 件 ， 并 且 可 以 在 工作 和沙 
之 间 切 换 ， 但 始终 有 一 个 工作 短文 件 处 于 活动 状态 。 

Excel 工作 短 可 以 有 一 个 以 上 的 表 (工作 表 、 图 表 工 作 表 等 )， 每 个 工作 表 由 单元 格 构 成 。 

假设 在 Excel 中 打开 3 个 工作 注 ， 其 中 名 称 为 “ 抢 30.xlsm ”的 这 个 工作 ea 
这 个 工作 禾 包 含 3 个 工作 表 ， 其 中 名 称 为 “四 月 ”的 工作 表 人 处 于 活动 状态 ， 这 个 工作 表 的 
B2:D6 区 域 处 于 选中 状态 ( Selection)， 并 日 单元 格 B2 是 活动 单元 格 had 如 图 9-13 


所 示 。 






























































画 日 5 ee i i 
开始 | 烽 h 而 面 布局 ”如 起 数 舌 而 问 要 图。 开 党 工具 加 续 项 登录 站 
二 让 FE 口 FE He Em CE Et " 
ue 未 体 "| "| 全 六 | 三国 = 小 民 提 dl 行 |# 1 有 肛 革 国 于 之 seo” hr 贞 
国 日 二- 人 站 | 
ET 
Da En, 让 一 - | 3 
| Er hi -gx = 转 =| 和 多 局 8a 由 5 | 六 1 上 鹏 蔚 时 SS -到 27 的 
Lc I 下 2 吕 
| | = | EA -3 CE Small 。 持 HF 各 绾 这 二 搞 和 这 至 
ed Ue 人 SM , 和 
2 
名 | 
全 
5 | 到 
| 
T | z= | 
日 | | 3 
9 | | 
10 [5 | 
11 | | 6 | 
12 si 
13 LB| 1 
让 | 2 
9 | Ee | 豆 | 
16 | 11 号 
17 1 可 5 
19 | 13| 站 
19 | | 1 生 3 
0 | 15 | 
a1 16 
2 | 既 | 了 
1 日 
md | 19 | 1 
名 就 千 旧 





























图 9-13 ”多 文档 应 用 程序 界面 
以 上 界面 就 构成 了 一 个 非常 普遍 的 Excel 工作 模式 ， 其 中 VBA 对 象 模型 可 以 用 图 9-14 
所 示 的 树 形 结构 来 描述 。 5 





吉 卜 六 用 程序 -ii 色 且 书生 己 对 本 本 -本 可 可 

可 见 ， 应 用 程序 Application 对 象 是 最 顶层 对 象 ， Dt Re : 

下 级 了 束 -一 -Workbooks ("实例 文档 112, xlsm”)| Workbooks 
它 的 下 一 级 就 是 Workbooks 集合 对 象 。Workbooks 集合 “| [= Swenooes (iw 


| 必 加 Worksheets(” 三 月 “) 


对 象 可 以 用 来 打开 、 新 建 工作 短 ， 也 可 以 用 Workbooks. | 区 i 
Item 来 指 / | - 鳃 ls 
无 放 pe 得 ， 一 个 Worksheets 集合 对 
象 ， 通 过 Worksheets 集合 对 象 可 以 插 人 工作 表 ， 也 可 以 
用 Worksheets .Item 来 指 代 其 中 一 个 工作 表 。 EE 
工作 表 的 下 面 有 Range 对 象 ， 该 对 象 用 来 撒 述 单元 ”图 9-14 Excel VBA 对 象 模型 示意 图 


Worksheets 
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格 区 域 。 
9.3.1 ”应 用 程序 对 象 


应 用 程序 Application 对 象 是 Excel VBA 中 的 最 顶层 对 象 ， 除 了 Workbooks 集合 对 象 外 ， 
Application 之 下 还 有 很 多 成 员 ， 通 俗 地 讲 ，Application 对 和 象 的 子孙 后 代 非 常 多 。 

Application 对 象 的 许多 属性 都 和 Excel 软件 的 各 种 配置 有 关 ， 关 于 Application 对 象 更 
详细 的 讲解 ， 请 参考 第 10 章 相关 内 容 。 


9.3.2 ”工作 簿 对 象 


应 用 程序 中 的 多 个 工作 短 构 成 的 集合 对 象 ， 是 Workbooks 集合 对 象 ， 而 任何 一 个 工作 
短 ， 都 是 一 个 Workbook 对 象 。 

Application.Workbooks(" 抢 30.xlsm")、Application.Workbooks(3)、Application.Active- 
Workbook， 以 上 这 些 表 述 方法 ， 均 是 Workbook 对 象 。 也 就 是 说 ， 在 它们 后 面 接着 输入 小 数 
点 ， 出 现 的 成 员 与 Workbook 对 和 象 类 型 的 成 员 是 一 样 的 。 

关于 Workbook 对 象 更 详细 的 讲解 ， 请 参考 第 11 草 相关 内 容 。 


9.33 表 对 得 


工作 竹中 一 般 有 3 个 工作 表 ， 此 外 ， 用 户 可 以 插入 其 他 类 型 的 表 ， 不 管 是 哪 一 个 类 型 的 
表 ， 部 属于 Sheets 对 象 集合 ， 工 作 演 中 所 有 的 普通 工作 表 (有 单元 格 的 表 ) 构成 Worksheets 
集合 。 也 就 是 说 ，Worksheets 比 Sheets 包含 的 表 个 数 要 少 ， 

Worksheets(" 四 月 ")、Worksheets(2)、ActiveSheet 都 是 工作 表 的 表述 方法 ， 它们 均 是 
Worksheet 对 象 。 

关于 Worksheet 对 象 更 详细 的 讲解 ， 请 参考 第 12 革 相 关内 容 。 


9.3.4 ” 早 元 格 区 域 对 象 


每 个 工作 表 由 硅 十 行 和 硅 干 列 交 叉 形 成 的 单元 格 组 成 ， 单 元 格 区 域 就 是 Range 对 象 ， 
用 来 存储 数据 的 区 域 。 

在 编程 过 程 中 ， 通 过 使 用 单元 格 区 域 的 地 址 或 者 使 用 行 号 、 列 号 来 引用 单元 格 区 域 。 例 
如 ，Range("B2:D6") 表示 一 个 左上 角 从 B2 开始 、 右 下 角 为 D6 的 矩形 区 域 ， 而 Cells(2,5) 表 
示 工 作 表 中 的 第 2 行 第 5 列 的 那个 单元 格 ， 也 就 是 E2 单元 格 。 

以 上 4 个 重要 对 象 是 Excel VBA 编程 的 核心 内 容 ， 接 下 来 将 会 详细 介绍 每 一 个 对 象 的 
营 用 属性 、 成 员 、 方 法 和 事件 。 
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习题 


1. 阅读 下 面 的 代 人 码 段 ， 然 后 把 下 面 的 过 程 改写 为 完全 不 使 用 With 结构 的 形式 。 


Sub Testl{() 
With Application 
.3tatusBar =“" 测试 一 下 " 
With .ActiveCell 
.Value = Now 
With .Interior 
.Color = VvbRed 
End With 
End With 
End With 
End Sub 


2. 阅读 下 面 的 程序 ， 改 写 为 合理 的 With 结构 。 


Sub Test31{) 
Application.Workbooks (1) .Worksheets(1).cells(1) .Value = 1 
MsgBox Application.Workbooks(1) .Worksheets(1).Ccells(1) .Address 
Application.Workbooks (1) .Worksheets(1) .cells(1) .clearComments 
End Sub 


3， 举例 说 明 Selection 和 ActiveCell 这 两 个 对 象 的 区 别 。 


第 10 章 


应 用 程序 Application 对 象 | 






启动 Excel 后 ， 电 脑 就 创建 了 一 个 Application 对 象 ; 完全 退出 Excel， 该 对 象 随 之 消失 。 
Application 对 象 是 Excel VBA 的 最 顶层 对 象 ， 大 多 数 对 象 成 员 都 可 以 从 Application 对 
象 开始 访 问 。 


10.1 Application 对 象 重 要 成 员 


Application 对 象 之 下 的 以 Active 开 头 的 对 象 ， 如 ActiveWorkbook、ActiveSheet、Ac- 
tiveChart、ActiveWindow 、ActiveCell， 都 是 使 用 频率 非常 高 的 VBA 对 象 。 


10.1.1 ActiveWorkbook 


一 个 Excel 应 用 程序 可 以 打开 多 个 工作 注 ， 但 是 只 有 一 个 工作 泗 处 于 活动 状态 ，Active- 
Workbook 就 是 指 活动 工作 禾 。 

男 外 ，Excel VBA 的 作用 范围 是 整个 应 用 程序 。 也 就 是 说 ， 把 宏 代 人 码 写 在 一 个 工作 泗 的 
VBA 工程 中 ， 那 么 这 些 代码 可 以 操作 所 有 工作 簿 、 所 有 工作 表 ， 并 不 是 说 宏 在 哪 一 个 工作 
簿 就 只 能 操作 宏 所 在 的 工作 簿 。 


10.1.2 ActiveSheet 


ActiveSheet 表示 Excel 中 的 活动 工作 表 ， 通 俗 点 理解 就 是 鼠标 所 在 的 工作 表 。 特 别 要 注 
意 的 是 ，ActiveSheet 对 象 是 一 种 泛 型 对 象 ， 因 此 在 这 个 对 象 之 后 输入 小 数 点 ， 不 会 出 现任 
何 成 员 提 示 。 

当 活 动 状 态 的 表 是 普通 工作 表 时 , ActiveSheet 对 象 的 成 员 和 Worksheet 对 象 的 成 员 相 同 ， 
当 活 动 表 是 图 表 工 作 表 时 ，ActiveSheet 对 象 的 成 员 和 Chart 对 象 的 成 员 相 同 。 
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10.1.3 ActiveWiIindow 


Application ActiveWindow 表示 Excel 当前 活动 窗口 。Excel 的 工作 簿 允许 创建 多 个 窗口 ， 其 
目的 是 用 户 可 以 同时 看 到 多 个 工作 表 。 打 开 一 个 工作 注 后 ， 选 择 “ 视 图 ”一 “窗口 ”一 “新 建 
窗口 ”命令 ， 会 看 到 工作 短 多 了 一 个 窗口 出 来 ,用 VBA 理 解 就 是 多 了 一 个 Window( 见 
图 10-1)。 


日 名 7 中 : 操 单 管理 xls [ 薪 容 达 式 ] - Excel 
误 性 开 嫩 所 六 页 面 布局 人 虞 所 市 阅 视图 天 点 工 具 加 0 识 项 
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工作 第 枫 图 显示 宇 趟 栈 醋 


划 盱 罚 门 


对 话 框 1 | Charti Sheet1 | 吨 





图 10-1 新 建 窗口 
在 多 个 Window 中 ， 只 有 一 个 是 鼠标 选中 的 ， 也 就 是 ActiveWindow。ActiveWindow 之 
下 的 成 员 通 第 是 用 来 设 定 窗口 属性 的 。 例 如 ， 更 改 工 作 表 的 网 格 线 状 态 ， 可 以 使 用 : 
Application.ActiveWindow.DisplayGridlines=False 
下 面 的 过 程 列 出 了 ActiveWindow 对 象 比 较 实 用 的 属性 设 定 。 
源 代 码 : 实例 文档 113.xlsm/ActiveWindow 常用 属性 








1 Sub Testl]() 

2 With Application.ActiveWindow 

% 本 -DisplayFormulas = False 隐藏 公式 编辑 栏 

4. .DisplayGridlines = False ' 隐藏 工作 表 网 格 线 

瑟 。 .DisplayHeadings = False ' 隐藏 行 号 列 标 

6. .DisplayZeros = False ' 工作 表 中 为 0 的 单元 格 ， 不 显示 零 值 
7 .GridlineColor = vbGreen ' 工作 囊 网 格 线 设置 为 绿色 

8 .WindowState = xlMaximized ' 活动 窗口 的 窗口 状态 为 最 大 化 

9 End With 


10. End Sub 


10.1.4 ActiveCell 


无 论 在 任何 时 候 ，Excel 中 的 ActiveCell 对 象 只 有 一 个 ， 表 示 的 是 当前 活动 单元 格 。 在 
Excel 中 新 建 或 打开 一 个 工作 湾 ， 鼠 标 先 选中 E10 单元 格 ， 然 后 扩展 选择 到 B2， 会 看 到 所 选 
区 域 中 只 有 单元 格 E10 的 背景 是 日 色 的 ， 这 表明 ActiveCell 就 是 E10， 此 时 在 公式 编辑 栏 中 
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输入 任意 内 容 后 按 【 Enter 】 键 ， 会 看 到 整个 区 域 
中 只 有 E10 输入 了 内 容 。 

如 采 鼠 标 选择 的 区 域 只 有 一 个 单元 格 ， 那 这 
个 单元 格 就 是 ActiveCell， 如 图 10-2 所 示 。 

ActiveCell 尽管 直接 隶属 于 Application， 但 是 
本 质 上 仍然 是 一 个 Range 对 象 ， 因 此 其 下 面 的 对 象 
成 员 和 了 Range 对 象 成 员 一 模 一 样 ， 例 如 ，MsgBox 
Application.ActiveCell.Address 可 以 返回 活动 单元 





格 的 地 址 。Range 对 象 的 详细 讲解 请 参考 第 14 草 10-2? ”活动 单元 格 
相关 内 容 。 


10.1.5 Addins 


Excel 允许 把 包含 宏 代 码 的 xla 或 xlam 文件 作为 加 载 项 来 扩展 Excel 的 功能 。Excel 中 
使 用 “加 载 宕 ”对 话 框 来 统一 管理 所 有 的 加 载 宏 文件 。 
在 Excel 中 选择 “开发 工具 ”一 “加 载 项 ”命令 ， 弹 出 “加 载 宏 ”对 话 框 ( 见 图 10-3)。 


国 日 一。 
. UI Tes 开 嫩 插入 页 面 布 局 全 的 所 市 冶 袖 图 开 呈 工具 加 载 项 


fy 出 | | 一 二 器] 局 性 醒 | 号 射 导 性 名 导 具 
E 3 i 4 国 寺 看 代 奏 国 ， 六 扩展 也 罗 , 导 出 
Wisual Bas jp 坊 项 COM hm 就 顺 。 插 h， 设 计 右 式 
意 宇 安 全 性 图 执行 对 话 杠 国 | 剧 新 数据 
bn 二 项 XML 





图 10-3“ 加 载 宏 ”对 话 框 


从 图 中 可 以 看 出 Excel 目前 有 5 个 加 载 项 (Addin)， 其 中 色 选 了 复 选 框 的 有 两 个 ， 表 示 
这 两 个 加 载 项 处 于 可 用 状态 。 

Addins 是 一 个 隶属 于 Application 的 集合 对 象 ， 表 示 Excel 所 有 加 载 项 。 

无 论 加 载 项 前 面 是 否 已 勾 选 ， 它们 都 是 存储 于 位 盘 上 独立 的 加 载 宏 文件 ， 痢 属于 Addins 
集合 中 的 一 员 。 为 些 ， 可 以 使 用 下 面 的 语句 来 获取 所 有 加 载 项 的 信息 。 
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源 人 代码， 实例 文档 113.xlsm/ 获取 加 载 项 信息 


1 Sub Testl]{() 

之 Dim ADN As Excel.AddIin 

ER For Each ADN In Application.AddIns 

和 4 Debug.Print ADN.Name, ADN.FullName, ADN.Installed 
2 Next ADN 

6 End Sub 


代码 中 第 2 行 声 明 ADN 为 Excel 的 加 载 项 对 象 变量 ,， 裔 历 每 一 个 加 载 项 ， 然 后 在 立即 
窗口 中 打印 每 个 加 载 项 的 名 称 、 完 全 路 径 、 是 和 否 加 载 。 如 果 要 获得 Excel 中 的 加 载 项 总 数 ， 


Msgbox Application.AddIns.Count 


注意 : 使 用 VBA 可 以 代替 手工 去 匀 选 或 者 取消 义 选 加 载 项 之 前 的 复 选 框 。Installed 
属性 设置 为 True 表示 义 选 ， 反 之 表示 取消 勺 选 ， 例 如 : 


源 代 码 : 实例 文档 113.xlsm/ 获取 加 载 项 信息 


1。 Sub Test2() 


Application.AddIns.Iteml(" 分 析 工 具 库 "). 
Installed = True 
二 apPPlLicatIon.AadadIns .Item(5D) .Installed = True 


4. End Sub 


代码 中 第 2 行 表 示 加 载 “分 析 工 具 库 ”这 个 加 载 
项 ， 第 3 行 表 示 加 载 从 上 往 下 数 第 5 个 加 载 项 。 执 行 代 
码 后 ， 效 果 如 图 10-4 所 示 。 

然而 ，VBA 只 能 更 改 加 载 项 的 加 载 状态 ， 不 能 SS 
图 用 VBA 删除 “加 载 宕 ”对 话 框 中 的 加 载 项 条 目 。 图 10-4 使 用 VBA 自动 勾 选 加 载 项 





注意 : Excel 中 关闭 所 有 工作 短 ， 在 没有 打开 任何 工作 簿 的 情况 下 ,会 看 到 “加 载 项 ” 
按钮 不 可 用 。 当 然 这 种 情况 下 执行 相关 的 代码 也 会 出 错 ， 因 为 Excel 加 载 或 取消 加 
载 一 个 加 载 项 的 前 提 是 至 少 有 一 个 打开 的 工作 簿 。 


用 Excel 制作 和 维护 加 载 宏 的 技术 ， 请 参考 第 18 章 相 关内 容 。 
10.1.6 COMAddIns 


COM 加 载 项 (COMAddin) 是 利用 第 三 方 开发 工具 做 出 的 用 于 Office 的 一 类 动态 链接 库 
插件 ， 也 叫 Office 外 接 程 序 ， 这 类 插件 的 扩展 名 通常 是 .dll， 其 特点 是 安全 性 高 、 性 能 好 。 

Office 的 大 多 数组 件 都 支持 COM 加 载 项 ， 在 Excel 中 查看 COM 加 载 项 的 方法 是 选择 
“开发 工具 ”一 “COM 加 载 项 ”命令 ， 弹 出 “COM 加 载 项 ”对 话 框 ， 如 图 10-5 所 示 。 
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开始 皇 六 页 面 布局 公式 类 指 开 点 工具 加 载 顶 
于 癌 录 和 所 [= 二 | 地 MM 屋 性 区 加 量 尾 性 晕 导 六 
车 同 坦 看 代码 是 从 扩 展 包 。 国 ,导出 EE 
站 执行 对 话 杠 区 ! 剧 新 煞 据 
加 载 项 控 性 


加 载 项 世上 OM 为 n 哉 项 


| ExcelCOMAddin 


ExcelObject VSTO VBA 

Inquire 

Microsoft Office PowerPivot for Excel 2013 
office Wide Symbol Input 

Pover View 

中 位 转 的 加 堪 面 


性 置 : E"ExcelCOMAddimMExcelCOMAddin.dll 
加 工行 为 ;已 外 载 


Sheet1 | (+) 





力 EH 


图 10-5“COM 加 载 项 ”对 话 杠 


用 户 通 过 勾 选 /取消 勾 选 COM 加 载 项 前 面 的 复 选 枉 ， 来 更 改 COM 加 载 项 的 加 载 状态 。 
当 COM 加 载 项 处 于 加 载 状态 时 ， 会 在 应 用 程序 界面 中 显示 相应 的 功能 和 界面 。 

COMAddin 是 COM 加 载 项 类 型 ， 属 于 Office 对 象 库 。 而 COMAddins 是 应 用 程序 所 有 
COM 加 载 项 集合 对 象 。 

COMAddin 比较 重要 的 属性 如 下 。 

D ProgID: COM 加 载 项 记载 于 注册 表 中 的 唯一 识别 标志 。 

口 Description : COM 加 载 项 的 撕 述 ， 其 实 束 是 在 “COM 加 载 项 ”对 话 框 中 看 到 的 条 目 

显示 。 

DConnect: 加 载 状态 ， 布尔 值 ， 可 读 写 。 

以 下 代码 演示 了 获取 COM 加 载 项 列表 的 方法 。 

源 代码 实例 文档 113.xlsm/ 获取 加 载 项 信息 





1 Sub Test31{) 

2 Dim COM As Office.COMAddIn 

For Each COM In Application.COMAddIns 

4. Debug.Print COM.progID, COM.Description, COM.Connect 
< Next COM 

6 End Sub 


以 上 代码 运行 后 ， 在 立即 窗口 打印 出 每 一 个 COM 加 载 项 的 识别 标志 、 描 述 信息 和 连接 
状态 。 

如 采 要 用 代码 目 动 加 载 一 个 COM 加 载 项 ， 使 用 语 三 

Application.COMAddIns.Item("ExcelCOMAddin.Connect") .Connect = True 


就 可 以 自动 让 名 称 为 ExcelCOMAddin 的 COM 加 载 项 处 于 加 载 状态 。 
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如 果 要 取消 加 载 ， 设 置 Connect 属性 为 False 即 可 。 


注意 : Item 括号 内 的 字符 串 ， 就 是 COM 加 载 项 的 progID 属性 。 


目前 开发 COM 加 载 项 的 语言 主要 有 Visual Basic 6 和 VSTO (Visual Studio Tools for Of- 


fice) 技术 。COM 加 载 项 的 制作 过 程 ， 本 书 暂 不 做 介绍 。 
10.1.7 WorksheetFunction 


Excel 最 大 的 优势 和 特点 就 是 可 以 使 用 公式 计算 ， 
公式 中 还 可 以 加 入 内 置 也 数 。 从 Excel 的 “插入 也 
数 ” 对 话 框 可 以 看 到 Excel 包括 14 大 类 内 置 函 数 ( 见 
图 10-6)， 例 如 ，Sum 表示 求 和 、Min 表示 计算 最 小 值 。 
但 是 VBA 中 并 不 具有 这 些 便利 的 限 数 。 

如 果 能 把 功能 强大 的 Excel 工作 表 函 数 用 在 VBA 
代码 中 ， 将 会 降低 程序 开发 的 难度 。 为 此 ， 我 们 在 代 
人 三 中 输入 Application.WorksheetFunction， 然 后 再 输 
入 一 个 小 数 点 ， 将 会 看 到 工作 表 函 数列 表 ， 如 图 10-7 





EXPinumber)} 辣 旦 
返回 8 的 n 地] 用户 定 必 








图 10-6 “Excel 的 “插入 函数 ”对 话 框 


以 下 实例 演示 了 如 何 使 用 工作 表 卫 数 计算 VBA 数组 的 总 和 与 最 小 值 。 


源 代码 : 实例 文档 113.xlsm/WorksheetFunction 用 法 


1 sub Testl{() 

本 Dim a{(l To 4) As Double 

3 Dim 3S As Double, XX As Double 

= a(l) = 3.2 

ei a(2) = 1.1 

6 a(3) = -2.3 

1 a(4) = -0.8 

8 3S = Application.WorksheetFunction.Ssumt(a) 

9 XX = Application.WorksheetFunction.Min (a) 

10. MsgBox " 数组 总 和 是 ， VV & SS & vbhNewLine & ™ 最 小 值 为 ， ”下 其， VvbhlIinformation 


11. End Sub 
程序 运行 后 的 结果 如 图 10-8 所 示 。 


sub Test1l 人 
Dim aftl To 4) As Double 


Dim 3 As Double, XN As Double 
a{l) = 3.2 


X= Application. WorksheetFunctio. St 
MsgBox “数组 总 和 是 : ”和 S 让 wbNew 避 TL 
End sub We Subtotsl 
4 | | = SunTIE 
2 Gunl Es 


VBA 中 使 用 工作 表 淆 数 





图 10-7 


数组 总 和 是 : 1,2 
县 小 值 为 : -2.3 
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注意 : 只 有 Excel VBA 中 的 Application 下 面具 有 WorksheetFunction， 其 他 组 件 没 有 。 
另外 ， 也 并 不 是 在 VBA 中 能 够 使 用 所 有 的 Excel 内 置 函 数 ， 尤 其 是 VBA 中 已 经 有 
的 函数 ， 例 如 VBA 中 已 经 有 的 平方 根 函 数 Sqr、 字 符 串 截取 函数 Left 等 ， 在 Work- 
sheetFunction 下 面 往往 找 不 到 。 





很 多 庶 者 往往 会 天 注 如 何 把 工作 表 中 的 公式 和 上 因数 改写 成 VBA 代码 中 的 形式 ,我们 只 
需要 前 循 如 下 原则 ， 即 可 顺利 地 在 VBA 代码 中 使 用 工作 表 果 数 。 

OD 传递 的 参数 个 数 要 与 单元 格 中 国 数 的 个 数 相 同 。 

口 参数 类 型 要 与 单元 格 中 国 数 的 类 型 相同 。 

口 单元 格 果 数 中 的 参数 如 果 是 单元 格 地 址 ， 在 VBA 中 使 用 Range 对 象 或 者 数组 代替 

地 址 。 

现在 举例 说 明 。Excel 中 的 Max 吊 数 能 够 获得 单元 格 区 域 或 者 数组 中 的 最 大 值 ， 但 是 
Large 呐 数 的 功能 更 丰富 ， 可 以 获得 第 k 个 最 大 但 ， 而 不 只 是 第 1 个。 

在 工作 表 中 使 用 Large 铺 数 时 ， 可 以 看 到 它 有 2 个 参数 : array 和 k， 如 图 10-9 所 示 。 

在 单元 格 中 输入 公式 : =LARGE(B2:B7,2)， 即 可 得 到 结果 997。 

在 VBA 代码 中 调用 该 函数 的 代码 如 下 。 

源 代码 : 实例 文档 113.xlsm/WorksheetFunction 用 法 


1 Sub Test2{() 

2 Dim k As Integer 

3 Dim TI 可 As Excel .Range 

4. k= 2 

| Set rg = Sheetl.Range("B2:Bi1") 

6 MsgBox Application.WorksheetFunction.Large (rg, Kk) 
1 End Sub 


运行 上 述 过 程 ， 对 话 框 中 返回 997。 

除了 使 用 WorksheetFunction 调用 工作 表 曙 数 
外 ， 还 可 以 用 Application.Evaluate 方法 目 动 计算 
公式 和 限 数 。 例 如 ，Msgbox Application.Evaluate 
("=LARGE(B2:B7,2)") 也 能 得 到 997。 关 于 Evaluate 
方法 的 用 法 ， 请 参考 10.3.4 世相 关内 容 。 图 10-9 Large 函数 用 法 


[EREE [E2:E7， 2) 
LARGE (array. NH 


Er Tay. . | 





10.1.8 _ Commandbars 


Commandbar 是 Office 对 和 象 库 中 的 工具 栏 对 象 ，Office 主要 组 件 的 VBA 中 基本 都 有 工 
具 栏 对 销 。 但 是 从 Office 2007 以 上 版 本 开始 ， 界 面 由 工具 栏 形式 转变 为 功能 区 形式 ， 但 是 
仍然 可 以 通过 VBA 来 操作 工具 栏 和 控件 。 

Commandbars 是 工具 栏 集合 对 象 ， 用 来 描述 应 用 程序 的 所 有 工具 栏 。 

以 下 代码 计算 出 Excel 工具 栏 的 总 数 (包括 内 置 工具 栏 和 自 定义 工具 栏 )。 
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源 代码 ， 实例 文档 113.xlsm/Commandbars 举例 


1 Sub Testl{() 

2 Dim cmbs As Office.Commandbars 

二 Set cmbs = Application.Commandbars 

4 MsgBox "Excel 现在 的 工具 栏 总 数 为 : " & cmbs.Count 
End Sub 


代码 分 析 : Commandbars 是 应 用 程序 所 有 工具 栏 的 总 体 ， 通 过 访问 其 count 属性 可 以 获 
取 目 前 应 用 程序 总 共有 和 多少 个 工具 栏 。 

运行 上 述 过 程 ， 对 话 框 中 会 给 出 Excel 现在 的 工具 栏 总 数 (每 个 电脑 运行 的 总 数 不 相 
同 ， 因 为 可 能 包含 日 定义 工具 栏 )。 

Commandbars.Item(“Cell”) 表示 Excel 的 单元 格 右键 快捷 亲 单 ， 当 运行 下 面 的 过 程 后 ， 
会 在 鼠标 附近 跳出 该 菜单 。 

源 代 码 : 实例 文档 113.xlsm/Commandbars 举例 





1] Sub Test2{() 

- ' 显示 Excel 单元 格 右键 菜单 

3 Application.Commandbars.Item("Cell") .ShowPopup 
4 End Sub 


在 Office 2007 以 上 版 本 ，Commandbars 对 象 下 有 一 个 ExecuteMso 方法 ， 用 来 自动 执行 
功能 区 中 某 个 控件 的 命令 ， 该 方法 插 号 内 为 控件 的 i dMso。 当 运行 如 下 过 程 时 ,会 自动 弹出 
“文件 /打开 ”对 话 框 ,让 用 户 选 择 文件 。 
源 代码 : 实例 文档 113.xlsm/Commandbars 举例 


1 Sub Test3() 

六 ' 本 过 程 只 适用 于 office 2007 版 以 上 

3 Application.Commandbars.ExecuteMso ("FileOpen") 
4 End Sub 


微软 提供 了 Offce 所 有 控件 的 idMso 信息 ， 在 本 节 配 套 资 源 中 下 载 Office2010Control- 
IDsrar， 然 后 打开 ExcelControls.xlsx 进行 查询 。 
关于 目 定 义工 具 栏 更 详细 的 内 容 ， 请 参考 第 17 章 相 关内 容 。 


10.2 Application 对 象 重 要 属性 


10.2.1 默认 文件 路 径 DefaultFilePath 属性 


在 Excel 中 打开 或 保存 文件 时 ， 弹 出 的 对 话 框 中 的 默认 路 径 ， 既 可 以 通过 Excel 的 选项 
进行 设 定 ， 也 可 以 用 VBA 设 定 。 


1。 Sub Testl () 
2 Application.DefaultFilePath = "“E:\Office VBA" 
3. End Sub 


执行 上 述 Testl 之 后 ， 与 在 “Excel 选项 ”对 话 杠 进行 对 比 ， 如 图 10-10 所 示 。 
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四 白 定 六 工作 入 的 吕 丰 方法. 


保存 工作 荡 


Rt [Eel TE 加 
贺 保存 自 动 恢 复 信息 时 间 同 陆 内 [10 。” 同 | 分 久 IM 
国 如 果 近 二 保存 就 关闭 ,请 保 因 上 次 自动 保留 的 版 本 
启 定 必 功 前 区 目 动 恢 晶 立 忻 位 罕 ( 有 RR) | CALsers\yueifuAppData\Roaming\Microsoff\Exceh 
快 违 访问 工具 栏 图 打开 或 保存 训 件 时 下 显示 Backstage[g] 
| 回 | 呈 直 其 他 保存 位 置 ( 邮 生 可 能 需要 登录 | 人 多]。 


加 载 项 
加 载 项 同 呐 凡 过 宛 下 恒 存 呈 计 算 机 人 


0 中 /本地 六 件 位 寺 | 


取 认 个 六 这 板 地 宇 丫 )， 


自动 构 昔 所 外 情况 围 衬 wzrsoy am > 
图 | 名 禁用 此 工作 秒 的 自动 坟 复 [D) 
训 档 管理 服 兰 着 辫 件 的 脱 机 竹 衔 选 硕 


将 至 出 人 忻 保 顾 到 :已 
加 此 计算 机 的 服务 器 草 茶 位置 凡 ) 
过 Qffice 立 档 持 存 IO] 


服务 串 草 葵 位 置 mWI; | CUserswyuefuyDocumentsvSharePoint 草稿 ， | MB).., | 


保留 工作 敌 的 外 观 


选择 在 早期 版 本 的 Exce| 中 可 以 覃 看 的 闸 色 ; 己 | 芯 色 [加 ).. | 





图 10-10 ”自动 更 改 上 默认 文 件 位 置 


注意 : 刚刚 设 定 完 默认 路 径 后 ， 立 即 按 下 快捷 键 【 CtrltO 】 进 行 测试 ， 出 现 的 可 能 
还 是 以 前 的 路 径 ，Excel 重启 后 新 路 径 生 效 。 


10.2.2 ”显示 剪贴 板 DisplayClipboardWindow 属性 


Application.DisplayClipboardWindow 属性 用 来 显示 和 隐藏 一 贴 板 窗 格 的 布尔 型 可 读 写 
属性 。 运 行 Application.DisplayClipboardWindow =True 后 ,会 看 到 左 侧 出 现 “ 喜 贴 板 ” 窗 格 
( 见 图 10-11)。 
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10.2.3 ”启用 事件 EnableEvents 属性 


Excel VBA 支持 对 象 事 件 编 程 ， 如 果 把 EnableEvents 属性 设置 为 False 后 ， 所 有 事件 过 
程 被 禁用 。 关 于 Office 事件 方面 的 编程 ， 参 考 10.4 节 相 关内 容 。 


10.2.4 ”显示 “开发 工具 ”选项 卡 ShowDevTools 属性 


“开发 工具 ”选项 卡 是 专门 为 编程 人 员 设 计 的 选项 卡 ， 它 的 显示 和 隐藏 既 可 以 手工 从 
“Excel 选项 ”对 话 杠 中 设置 ， 也 可 以 使 用 ShowDevTools 属性 来 切换 ， 属 于 布尔 型 可 读 写 属 
性 ，Excel 2007 以 下 版 本 不 支持 。 

厂 Application. ShowDevTools=Truae， 则 日 动 显示 “开发 工具 ”选项 卡 ， 奢 设置 为 False， 
则 日 动 隐 ; 





10.2.5 句柄 Hwnd 属性 


Excel 的 Application 对 象 下 有 一 个 Hwnd 属性 ， 其 含义 Excel 应 用 程序 窗口 的 句柄 (Handle)。 
在 Windows 系统 中 ， 每 打开 一 个 程序 或 者 窗口 后 ， 系 统 自动 会 给 这 个 窗口 分 配 一 个 长 整 型 数 
字 编 号 ， 这 个 编号 值 就 是 句柄 。 句 柄 、 类 名 以 及 窗口 标题 主要 用 于 API 高 级 编程 中 ， 在 此 不 
做 太 多 介绍 。 下 面 举 一 个 使 用 句柄 值 来 置 项 和 取消 置顶 Excel 窗口 的 简单 例子 。 

源 代码 : 实例 文档 113.xlsm/ Hwnd 句柄 属性 


1. Private Declare Sub SetWindowPos Lib "user32" (ByVal hWnd As Long, BYVal 
hwndInsertAfter As Long, ByVal XX As Long, ByVal YY As Long, ByVal cx As 
Long, ByVal cy As Long, ByVal wrFlags As Long) 


2. Sub Testl() 

Dim H As Long 

4. H = Application.hWwnd 

5. 'Excel 窗口 置顶 

6. SetWindowPos H, -1, 0, 0, 0, 0, 2 Or 1 
1. End Sub 

3838. Sub Test2() 

- Dim H As Long 

10. H = Application.hWnd 

1 'Excel 窗口 置顶 

有 SetWindowPos H, -2, 0, 0, 0, 0, 2 Or 1 


13. End Sub 


代码 中 ， 把 Excel 的 窗口 句 顶 赋 给 变量 二 ,使 用 API 吊 数 SetWindowPos 来 设置 Excel 
窗口 行为 。 运 行 Testl 后 ，Excel 窗口 置 于 最 顶层 ， 其 他 窗口 不 能 履 盖 它 。 
运行 Test2 可 以 取消 置顶 。 


注意 : 只 有 Excel VBA 的 Application 下 设置 了 Hwnd 属性 ， 其 他 组 件 的 窗口 句柄 值 
需要 通过 其 他 途径 获得 。 
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10.2.6 ”标题 Caption 属性 


Application.Caption 属性 表示 Excel 应 用 程序 窗口 的 标题 文字 ， 该 属性 可 旋 写 。 
以 下 过 程 更 改 Excel 标题 文字 。 
源 代 码 : 实例 文档 01.xlsm/Caption 属性 示例 


1 Sub Testl]{) 

有 ' 更 改 Excel 标题 文字 

3. MsgBox " 下 面 将 会 更 改 标 题 文字 为 当前 日 期 和 时 间 1 " vbInformation 
4 Application.Ccaption = Now 

3 End Sub 


运行 Testl 过 程 后 ，Excel 应 用 程序 的 标题 栏 如 图 10-12 所 示 。 


空转 01.xlsm - 2017/4/113 21:17:48 
市 阅 ”视图 开发 T 具 加 载 项 ”负载 则 式 。 国 队 |， 

"| 柄 冬 件 属 式 * 本 插入 -| | 人 性 

= ~- % ， 图/ 套用 表格 格式 - 上访 " 删 除 pe 
了 8/ 单元 格 样 式 - 国 | 格式 - > 






































1 | 
2 | 
3 | 
4 | 
3 | 
6 | 
7 

8 | 


Sheet1 (+) 





图 10-12 ”自动 改变 Excel 标题 栏 文字 


如 果 要 恢复 标题 文字 ， 运 行 Application.Caption="" 即 可 。 


注意 : Application 有 很 多 属性 在 Excel 重启 之 后 会 自然 恢复 为 默认 设置 。 例 如 ，Caption 
属性 被 用 户 修改 后 ， 下 次 启动 Excel 并 不 会 保留 用 户 修 改 的 结果 。 


10.2.7 版 本 Version 属性 


Office 的 版 本 变迁 话 见 1.3 方 ， 在 VBA 中 通过 访问 Application.Version 属性 查看 应 用 程 
序 的 版 本 号 。 该 属性 会 返回 一 个 字符 串 类 型 数值 ， 是 只 谈 属 性 。 

通常 在 开发 VBA 产品 时 ， 先 要 判断 一 下 运行 的 应 用 程序 版 本 ， 从 而 进行 分 别处 理 ， 例 
如 Office 2003 版 本 以 下 不 文 持 功 能 区 设计 ， 因 此 Version 属性 就 显得 格外 重要 。 

源 代码 : 实例 文档 01.xlsm/Version 属性 示例 


1]. sub Testl]() 


Dim Vv As Integer 
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-3 
6 
Fe 
8 
9 


CInt (Application.Version) 
If vv <= 11 Then 
MsgBox "TExcCcel 版 本 是 3003 下 rm 


MsgBox "Excel 版 本 是 2003 以 上 " 


因为 Version 的 类 型 是 字符 串 ， 因 此 转换 为 整 型 数值 方 可 进行 比较 。 


10.2.8 ”用 户 名 UserName 属性 


UserName 属性 是 指 Office 的 用 户 名 ， 通 第 在 安装 Office 的 时 候 可 以 预 设 。 用 户 也 可 以 在 
后 期 查看 和 更 改 用 户 名 ， 在 Excel 中 选择 “文件 ”一 “选项 ”命令 ， 弹 出 “Excel 选项 ”对话 
框 ， 切 换 到 “常规 ”选项 卡 ， 如 图 10-13 所 示 。 

















:ab 使 用 Excel 时 乘 用 的 党 规 先 项, 


用 户 界 面 选 项 
圆 选择 时 旺 示 泽 动工 具 栏 必修 心 


新 工作 去 的 竺 让 机 加 只: | 青 通 视图 | = | 
包 人 的 工作 委 数 加 ]; [ 向 
财 Microsotft 器 ffice 进行 个 性 夏 设 至 


用 户 名 [ 山 } musifu 


加 不 雪 呈 否 登 录 邓 | 人 Dffice 各 录 经 使 用 这 些 信 售 }. 
Cifhice 主题 部: 白色 [= 
局 动 选项 
连 各 你 着 望 Exce| 默认 打 天 的 扩展 名: 
国 青 败 我 Microsoft Exwcel 是 百 下 旺 音 香 和 沫 震 电 子 专 格 的 睐 让 程 怀 癌 )。 


图 10-13 ”查看 和 修改 用 户 和 名 


通过 VBA 也 可 以 访问 和 修改 该 属性 。 
源 代 码 : 实例 文档 01.xlsm/UserName 属性 示例 


1 
2. 
: 
4 


| 


Application.UserName = “" 独 儿 求 败 " 
MsgBox "Excel 用 户 名 已 被 修改 为 : " & Application.UserName 


注意 : 运行 上 述 过 程 后 ， 不 仅 “ Excel 选项 ”对 话 框 中 的 用 户 名 被 修改 ,而 且 打 开 其 
他 组 件 ， 例如 “PowerPoint 选项 ”对 话 框 后 ， 用 户 名 也 被 同步 修改 ( 见 图 10-14)。 
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展 ; 悚 用 Powerpoint 时 乎 用 的 常规 选项 ， 


用 户 界 面 选 项 


山 选择 时 显示 湾 动 了 具 栏 (Ml 心 
语言 辆 启用 实 模 预览 册 ) 心 
高 前 奔 莫 径 示 柱 式 [外 :在 屏 莫 择 示 中 品 示 而 望 阅 明 | " | 
导 定 岂 功 莫 区 峙 Microsoft 三 ee 讲 行 个 性 蛋 设 否 
快 这 访问 工具 栏 
加 pn 荔 项 


用 户 名 [U} | 锅 析 东欧 
培 写 加 : | 
信任 中 心 画 不 呈 旦 可 各 隶 到 (Hice 莉 少 陀 什 用 这 些 信 (Aj. 


Dffice 主题 口 : 让 色 _ 加 | 
所 动 千 天 
证 尝 天 蔚 powerpcint 默认 打开 的 扩展 名， | 款 认 程 应 Dj | 


国 加 黑 Microsof PowerPoint 椒 星 用 于 查看 秘 讶 六 让 区 入 的 直 认 程 斥 则 千 诉 艺 症 
图 此 应 用 得 斥 阳 弄 时 显示 开始 屏 护 (H) 
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图 10-14 同步 更 改 PowerPoint 中 的 用 户 名 


10.2.9 ”安装 路 径 Path 属性 


Path 属性 是 指 Office 的 安装 路 径 ， 是 只 庄 属 性 。 
源 代码 实例 文档 01.xlsm/Path 属性 示例 


1]. Sub Testl() 

ra Dim AppPath As String 

3 AppPath = Application.Path 

4., MsgBox "下面 将 自动 打开 Office 的 安装 路 径 : " & AppPath 

Sh Shell "explorer /select," & AppPath, vbhNormalFocus 
6. End sub 


代码 中 Shell 的 作用 是 在 资源 管理 副 中 选中 一 个 文件 或 文件 来。 打开 该 文件 来 后 ， 会 看 


到 Office 所 有 组 件 的 局 动 程序 都 在 其 中 ， 如 图 10-15 所 示 。 


CI HEN , FW Cc) ; Program Fles » Microsoft Office » Officel5 ， "| oels Bp 


扯 耻 下 。 包 语 到 库 中 共享 ” 才 时 wc 夫 


言 收 中 袍 宕 称 售 改 日 期 
站 ea Wordeormv,ere 20127101L a32 
2012/10W1 2032 
Ee 却 , SETLAMG,EXE 201210W1 atk32 
各 其 汪 沪 问 的 恒 辕 国 SELFCERT.EXE 2012/10W1 20032 
ED SCANPST.EXE 201271071 2032 
司库 站 protocolhandlereme 201271071 20:31 
轩 栅 顶 另 PPTICOJEXE 201210V1 2032 
图 片 2042710L 20k32 
El a POFREFLYW EXE 201 23210W1 B32 
小 至 乐 20d27d01 ea 
3 OSPPREARM.EXE 2012710W1 a30 
肾 计算 机 3 NAMECONTROLSERVER,EXE D110 Ad2 
记 M50RY32EXE 20127101 Ze32 
a 扰动 f 全 MSGUCJEXE 201371071 z0k32 
Ft 加 轩 msctdiexe 2012/10W]1 2032 
本 城 各 :I 加 MSGCSYIMCJEXE 201271071 2032 
6 作品 让 3 msola eme 2012/10W1 1B:5B 
上 软 忻 [Fi 四 下 MSGHTMED.ENE 2042710A1L 20e31 
CD 驱动 凯 [Hi XIEADMI [a msoev.exe 201271001 B32 
量 MI dLTE | 困 MsaccEssexE | 20121101 2031 
二 mist.exe O12 L101 L958 
和 网 中 山 SRAPH,EXE 2012710y1 lk31 
门 HRSTRUN.EXE 20127101 A230 
| ENCELSnv.ewe 201713129 L604 
团 ecelcnweme 20127101 B032 
| 国 ExcELEXE | 201271071 2032 


) 241 个 对 订 
用 


图 10-15” ”Office 的 安装 位 置 
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Office 第 用 组 件 的 启动 文件 如 表 10-1 所 示 。 


表 10-1 Office 局 动 文件 名 称 列表 


组 ” 件 局 动 文件 名 称 
Excel EXCEL.EXE 
Word WINWORD.EXE 
PowerPolnt POWERPNT.EXE 
Access MSACCESS.EXE 
Outlook OUTLOOK.EXE 


此 ， 可 以 利用 该 属性 来 自动 启动 其 他 Office 组 件 ， 例 如 使 用 Excel VBA 来 自动 启动 
PowerPoint 2013 。 
源 代码 : 实例 文档 01.xlsm/Path 属性 示例 
Sub Test2 () 


Dim AppPath As String 


MsgBox " 下 面 将 自动 打开 PowerPoint 2013: " 
Shell AppPath & ™\™" & "POWERPNT.EXE", vbNormalFocus 


1 
2 
; AppPath = Application.path 
= 
5 
6 End Sub 


10.2.10 ”状态 栏 StatusBar 属性 


StatusBar 属性 用 来 读 写 Excel 的 状态 栏 内 容 ， 可 读 写 。 
下 常情 况 下 ，Excel 应 用 程序 左下 角 的 状态 栏 内 容 为 “ 束 绪 ”二 字 ， 如 图 10-16 所 示 。 






















中 wl.xlsm - Excel| 3 国 - 四 区 
页 画布 局 。 汉 式 数 套 市 同 ”机 图 开发 T 具 加载 项。 负载 测试 国 队 
-| -== 国 = 富 | 完 -| 卓 2H- | 全 搬 A -| 三 - 知 - 
本 站 三 三 三 国 - 军 - 驴 ， 属 震 用 专属 格式 - | 期 鸯 除 - 国 - 旧 - 
上 -只 -主攻 - 人 六 居 单元 冯 样 忒 - 国 格 芒 - 过- 
对 并 方式 着 守 6 样式 单元 属 泥 号 
HlE 区 起 号 
| 三 了 虽 LD E F I J 二 
| 工 
吕 
| 5 
| + 
| 5 
|_6 
| 了 
| 昌 
| 5 
Sheeti 四 i 


时 加 本 -一 二 二 10% 
图 10-16 默认 的 Excel 状态 栏 
下 面 的 过 程 更 改 状 态 栏 文字 。 
源 代 码 : 实例 文档 01.xlsm/StatusBar 属性 示例 
Sub Testl{() 
Application.SsStatusBar = "VBA 非常 强大 ,，" & "不 信 试 试看 。" 
End Sub 


Sub Test2() 


pp 
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6 。 Application.SstatusBar = False 
i. End Sub 


运行 上 述 代码 中 的 Testl 后 ， 会 看 到 状态 栏 文字 变化 ， 然 后 再 运行 Tes2， 状 态 栏 恢复 为 默认 。 
此 外 ， 还 可 以 通过 Application.DisplayStatusBar =True 或 False 来 显示 和 隐藏 状态 栏 。 


10.2.11 ”默认 工作 表 个 数 SheetsInNNewWorkbook 属性 


在 Excel 中 按 下 快捷 键 【 CtrlHN 】 时， 会 新 建 一 个 空 月 工作 短 。SheetsInDNewWorkbook 
属性 用 来 设 定 新 工作 短 中 的 工作 表 个 数 。 相 当 于 “Excel 选项 ”对 话 框 中 的 包含 的 工作 表 数 ， 
如 图 10-17 所 示 。 


沪 % 使 用 Excel 时 冬 用 的 举 规 选 天 


用 户 界 机 选 项 

加 选择 时 显示 泽 动 工具 栏 I) 人 

加 选择 时 呈 示 快速 分 析 丢 项 [D) 

加 启用 实 于 预 哆 山 他 

愤 荐 提示 样式 [外 :在 屏 花 皇 示 中 吕 示 功能 说 明 | 


狐 硅 工作 总 时 


SZ 团 罩 

新 工作 雪 的 昧 认 相 轿 [| 理 通 视图 [| 

包含 的 工作 委 数 全 |: 14 丘 | 

财 汪 icrosoft Offiee 进行 个 性 仙 设 于 

用 户 训 [LUD 节 了 3 孜 

回 不 匠 呈 将 谷 录 到 Qffice 重 巡 挨 合 用 这 些 伯 地 |。 
Office 主题 上 Ti 白色 [=| 
2 

迁 泽 你 基 望 Exce| 默认 打开 的 扩展 会， | 点 汶 程序 [Dj 
加 吉 诉 沪 Microsoft Excel 是 再 二星 普 在 和 绽 寺 电子 专 格 的 莱 让 程 斥 书 ). 
加 此 应 用 程 奈 启动 时 显示 开始 屏幕 (HI) 





图 10-17 ”设置 新 工作 夭 的 工作 表 默 认 个 数 
可 以 用 VBA 读 与 该 属性 。 
源 代 码 : 实例 文档 01.xlsm/SheetsinNewWorkbook 属性 示例 


1. Sub Testl (1) 
Application.SheetsInNewWorkbook = 4 ' 新 建 工作 簿 包含 的 工作 表 个 数 
3. End sub 


运行 上 述 代码， 之 后 骨 新 建 工 作 注 时， 会 看 到 默认 有 4 个 工作 表 。 


10.2.12 ”窗口 状态 WindowState 属性 


使 用 WindowState 属性 可 以 控制 Excel 应 用 程序 的 窗口 状态 。 运 行 如 下 3 个 过 程 ， 相当 
于 用 鼠标 单 击 Excel 应 用 程序 的 “最 大 化 "“ 最 小 化 ”和 “还 原 ”按钮 。 
源 人 代码， 实例 文档 01.xlsm/StatusBar 属性 示例 


1. Sub Testl() 
a Application.WindowSstate = xlMaximized 最 大 化 窗 口 
3。 End Sub 
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4. Sub Test2() 


5 Application.WindowState = xlMinimized  ' 最 小 化 窗口 
6 End Sub 

1. Sub Test3() 

8 Application.WindowSstate = xlNormal 正常 窗口 
9 End Sub 


此 外 ， 对 于 Excel 应 用 程序 窗口 的 位 置 和 大 小 ， 可 以 通过 以 下 4 个 属性 来 读 写 。 
口 Application.Top: 窗口 左上 角 距 离 屏 薪 上 边缘 的 间距 。 

口 Application.Left: 窗口 左上 角 距 离 屏幕 左边 绿 的 间距 。 

口 Application.Width: 窗口 的 宽度 。 

口 Application.Height: 窗口 的 高 度 。 





10.2.13 最近 打开 的 文件 RecentFiles 


Application 对 象 下 面 有 一 个 RecentFiles 集合 对 象 ， 该 对 象 存 储 了 应 用 程序 最 近 打 开 的 


文件 列表 。 因 此 可 以 通过 遇 历 的 方式 获取 每 一 个 最 近 打 开 的 文件 。 
源 代 码 : 实例 文档 21.xlsm/ 最 近 打开 的 文件 


1 Sub Testl]{() 

二- Dim ff As Excel.RecentFile 

3 For Each f In Application.RecentFiles 
4. Debug.Print f.Path 

i Next I 

6 End Sub 


sis, 


代码 分 析 : 第 2 行 代码 中 ， 对 象 变 量 f 是 最 近 打 开 文 件 的 个 体 对 和 象 。 
10-18 所 示 。 


bs 
这 


E:\0QfficeYBA 开 发 经 典 \0ffice VBA 开 发 经 典 资 源 \ 源 文件 \ 应 用 程序 hpplication 对 银 \ 实 例文 档 21. xl sm 
E:\0fficeVBA 开 发 经 典 \0ffice eh NE rm 象 \ 实 例文 档 20. xlsm 





图 10-18 ”运行 结果 2 


这 个 结果 与 Excel 中 看 到 的 最 近 文 档 列 表 是 一 致 的 ( 见 图 10-19 ) 。 


打开 


[ar 最 近 使 用 的 工作 簿 
= 空 本 Hr 档 21.xlsm 
:x 用 下 | E: = 宫 机 cay 开放 经 典 = 证 ce WEA 开 几 既 庚 视 源 = 天 立 性 = 应 用 得 序 Application_ 
注 DneDrive tb 空 例 雪 档 20.x|sm 
Ei x 天 El - 如 是 =sWVB 丰 开 江 经 由 - 癌 全 ce WBA 和 开 央 经典 窗 源 要 立民 - 单元 属 区 二 Range 对 名 


当 1 习 .区 JS 


i E: = 如 机 cew 晶 贞 开 弟 笃 由 sv 品 全 ce WE 开山 弃 由 让 病 = 旺 文 性 s 工作 要 Workshast 台 远 


”六 例 交 楼 J 7x]sm 
四 TE; 本 cay 日 AT 攻 泽 则 sOTce VBA 开 类 惨 描 次 源源 六 必 s 工作 等 Workbook 对 疾 


王 三 区 档 18.xlsm 
项 :i E: » QeaVyBAT 必 汉典 = 口 全 ce VBAGT 几 全 拱 理 源 = 而 误 尾 s 工作 才 Workshaet 对 站 


x 守恒 立 档 17.xlsm 
省 E: = 员 cay 昌 A 于 经 蝎 » 口 ce WEA 开 尖 斌 葛 音 源 * 天 交尾 s 工作 过 Workshest 关 


上 计 岗 立 档 135. 划 sm 
| E > 吕布 cgVBA 开 入 经 此 > 口 前 ce YE 于 发 反 井 窑 源 x 潭 立 性 = 工作 表 Worksheet 村 散 


图 10-19 ”最近 使 用 的 工作 簿 





第 10 章 ”应 用 程序 Application 对 象 89 


10.3 Application 对 象 常用 方法 
10.3.1 激活 其 他 组 件 ActivateMicrosoftApp 方法 


Application.ActivateMicrosoftApp 方法 可 以 激活 除 Excel 以 外 的 其 他 Office 组 件 。 该 方 
法 后 面 的 参数 是 Excel 内 置 枚 举 第 量 。 
源 代 码 : 实例 文档 02.xlsm/ ActivateMicrosoftApp 方法 示例 


1. Sub Testl 1() 


Application.ActivateMicrosoftApp xlMicrosoftWord 
3. End sub 


运行 以 上 代码 ， 如 霖 Word 已 经 在 运行 ， 则 把 焦点 转移 到 Word 窗口 ; 如 生还 没有 开局 
Word， 则 目 动 局 动 Word ( 见 图 10-20)。 


Sub Testl () 


Application. ActivateMicrosoftApp | 
End Sub ActivatellicrosoftApp Tndex ds Xl 国 xlMicrosofthccess 


加 xlNierosoftFoxPre 

加 x*1MNierosoftMail 
xl1MNicrosoftiPowerPoLnt 
加 xlNierosoftProjeet 

国 xlWicrosoftSchedulePlus 
Ni erosoftRord 


图 10-20 ”启动 或 激活 其 他 Office 组 件 





10.3.2 ”设置 Exce| 的 计算 模式 


Excel 的 计算 模式 分 为 目 动 计算 、 半 日 动 计算 和 手动 计算 3 种， 可 以 通过 “Excel 选项 ” 
对 话 框 进行 设 定 ( 见 图 10-21)。 

















恒 由 丙 w 三 公式 计 算 、 性 能 和 缠 混 直 理 相关 的 和 而. 

计算 著 顺 

工作 竺 计算 心 同 局 用 迁 代 计算 四 
语言 i 最 多 这 ft 六 Oj: 100 周 
高 生 Ri 六 统计 ol | 


圆 傈 在 工作 御前 至 新 计算 QW) 


户 定 内 功能 区 
快速 访问 工具 臣 
各 载 项 
信任 中 心 加 R1c1 引用 样 志 地 ) 忆 
图 会 趟 记忆 起 刍 六 旧 忆 
在 汉 蓄 中 使 用 表 名 并 
使 用 GetPivotData 国 数 就 职 数 据 透 视 志 引用 (PE) 


使用 笃 式 


错误 悦 碍 
屋 | 元 诗 后 台 错 有 榨 查 昌 ) 


FE 重 疡 设置 乱 睁 模 呈 {人 ) 
re 


鲁 误 悦 杏 规则 


圆 所 全 公式 导致 措 误 的 音 元 格 册 加 过 吕 了 区域 中 的 半 元 格 的 公式 个 ) 品 
去 中 不 一 赖 的 计算 列 公式 加 四 团 包 合 公 式 的 丰 铅 定单 元 供 ( 疝 癌 

圆 和 包 售 以 阿 位 苗 委 示 的 年 份 的 单元 格 邓 ) 品 加 引用 至 革 元 局 的 公式 (U) D 

贺 立志 格式 的 沽 闻 哈 大 前 面 有 涡 呈 的 数字 (由 属 辆 表 中 输入 的 无 次 数据 (Vj DD 

圆 与 区 城中 的 其 地 公 趟 不 一 至 的 全 坏人 部 








图 10-21 设置 Excel 的 计算 模式 
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日 动 计算 是 指 当 工作 表 任 何 一 个 单元 格 被 编辑 后 ， 整 个 工作 表 重 新 计算 公式 。 如 采 设 置 
为 手动 计算 模式 ， 则 不 会 立即 计算 公式 。 为 了 便于 说 明 ， 在 “Excel 选项 ”对 话 框 中 设置 为 
于 动 计算 ， 然 后 新 建 一 个 工作 狂 ， 在 活动 工作 表 的 A1:A10 单元 格 区 域 输入 11 ~ 20， 然 后 
在 右 侧 的 Bl1 输入 公式 “=Al^2”， 用 自动 填充 柄 填充 公式 到 B10。 

接着 ， 把 A1:A10 单元 格 区 域 修改 为 21 ~ 30， 会 发 现 右 侧 的 结 末 并 没有 目 动 更 新 ， 如 
图 10-22 所 示 。 

这 是 因为 Excel 的 计算 模式 为 手动 模式 ， 此 时 如 采 
打印 该 工作 表 ， 结 果 完 全 是 错误 的 ， 因 此 在 打印 前 要 在 
Excel 中 按 下 快捷 键 【 F9 】 重 新 计算 一 次 。 

在 Excel VBA 中 ， 可 以 通过 修改 Application.Calculation 
属性 来 更 改 Excel 的 计算 模式 。 

源 代 码 : 实例 文档 02.xlsm/Calculation 属性 示例 


1 
岂 
3 
4 
5 
6B 
? 
8 
9 





1。 Sub Testl() 

' 手动 计算 图 10-22 手动 计算 模式 
本 Application.Calculation = xlCalculationManual 

4. End sub 

JI9. Sub Test2() 

i " 自动 计算 

二 Application.Calculation = xlCalculationAutomatic 

8. End sub 


10.3.3 ”计算 Calculate 万 法 


如 果 重 新 计算 ， 根据 要 计算 的 范围 有 以 下 3 种 方式 。 

(1) Application.Calculate: 所 有 打开 的 工作 洲 都 重新 计算 。 

(2) WorkSheets(2).Calculate: 只 对 第 2 个 工作 表 计 算 。 

(3) Range("A1:B5").Calculate: 只 计算 单元 格 区 域 。 

可 以 看 出 ，Application 、Worksheet 、Range 对 象 均 有 Calculate 方法 。 


10.3.4 ”表达 式 评 价 Evaluate 万 法 


Evaluate 方法 可 以 把 一 个 名 称 字符 串 转 换 为 一 个 Range 对 象 或 计算 结果 。 
实例 文档 02.xlsm/Evaluate 方法 示例 


Sub Testl]() 
Application.Evaluate("A2:B6") .Interior.Color = vbRed 





1 

和 

3 Application.[C2:D6| .Interior.Color = vbhYellow 
4. Debug.Print Application.Evaluate("SUM(8,4,2)") 
3 Debug.Print Application.Evaluate ("3/5+7/8") 

6 End Sub 


代码 分 析 : 第 2 行 代码 相当 于 Application.Range("A2:B6").Interior.Color = vbRed。 
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第 4 行 代码 计算 一 个 公式 ， 在 立即 窗口 看 到 的 结果 是 14。 
第 $ 行 代码 看 到 的 结果 是 1.475 。 


10.3.5 ”快捷 键 OnKey 万 法 


OnKey 方法 可 以 更 改 快捷 键 的 功能 ，OnKey 方法 的 语法 格式 有 如 下 3 种 。 

D Application.OnKey " 按键 "," 宏 名 称 ": 功能 是 按键 后 执行 宏 。 

口 Application.OnKey " 按键 "," ": 功能 是 按键 后 无 任何 啊 应 。 

口 Application.OnKey " 按键 ": 功能 是 恢复 默认 内 置 功能 。 

Excel 中 ， 快 捷 键 【 Ctrl+F3 】 的 内 置 功 能 是 弹出 “名 称 管理 禹 ”对 话 框 。 但 是 执行 下 面 
的 Testl 后 ， 骨 次 按 下 该 快捷 键 ， 功 能 变 成 执行 名 称 为 Hello 的 VBA 过 程 。 

源 代码 : 实例 文档 02.xlsm/OnKey 方法 示例 


Sub Testl]{() 
' 按 下 [【 Ctrl+F3 ]】 执行 宏 "Hello" 
Application.OnRKey "”{F3}", "Hello"™ 
End Sub 
sub Hello{) 
MsgBox "Hellol™", vbhlinformation 
End Sub 


运行 下 面 的 过 程 ， 按 下 该 快捷 键 时 Excel 没有 任何 反应 。 


Sub Test2{() 
" 按 下 【 Ctrl+F3 】 不 做 任何 事情 
Application.OnKey "”{F3}", 
End Sub 


运行 下 面 的 过 程 ， 恢 复 默 认 功 能 。 


户 WNP 


sub Test31{) 
" 按 下 【 Ctrl+F3 ] 恢复 默认 内 置 功能 
Application.OnKey "”{F3}" 
End Sub 
执行 Test3 后 ， 该 快捷 键 恢 复原 有 功能 ， 继 续 弹 出 “名 称 管理 天” 对 话 框 。 
按键 的 书写 方法 参考 表 10-2。 


户 WNP 


表 10-2 OnKey 方法 按键 与 代码 对 应 表 


按 键 代 码 
Backspace {BACKSPACE} 或 {BS} 
Break {BREAK!} 

Caps Lock {CAPSLOCK} 

Clear {iCLEAR} 

Delete or Del {DELETE} 或 {DEL)} 
Down ArIrow {DOWN} 


End {END} 
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Enter (numeric keypad) 


代码 
{ENTER! 


Esc {ESCAPE} 或 {ESC)} 
Help {HELP} 

Home {HOME} 

Ins {INSERT} 

Left Arrow {LEFT} 

Num Lock {NUMLOCK} 
Page Down {PGDN 

Page Up {PGUP} 

Right Arrow {RIGHT} 

Scroll Lock {SCROLLLOCK} 
Tab {TAB} 

up arrow {UP} 

Fl ~ 上 了 154 {Fl} ~ {Fl15} 


为 外， 还 可 以 和 [【 Ctrl 外 Shift j[ Alt 】 键 组 合 使 用 ， 依 次 使 用 ^、+ 和 % 表示 。 例 如 : 


Application.OnFKey " {F3}", "Hello™ '[ ctrit+F3] 
Application.OnFKey "$${F3}", "Hello™ ' [Alt+F3 ] 
Application.onFKey "+^{F3}", "Hello™ '[ ctrl+shift+F3 】 


注意 : 当 重 新 启动 Excel 后 ， 上 次 设 定 的 目 定 义 快 捷 键 无 效 ， 都 恢复 为 默认 设置 。 


10.3.6 ”发 送 按键 SendKeys 方法 


OnKey 的 作用 是 ， 当 用 户 按 下 快捷 键 后 ， 日 动 执行 某 个 安 。 而 SendKeys 方法 则 是 可 以 
代 蔡 手工 目 动 按键 。 

源 代 码 : 实例 文档 02.xlsm/ 自动 按键 SendKeys 方法 示例 

1. Sub Testl (1) 

-A Application.SendKeys "%te" "日 动 弹出 VBA 工程 属性 窗口 

3. End sub 

当 在 VBE 中 写 代码 时 ， 按 下 快捷 键 【 AltrT 】， 会 目 动 展开 VBE 的 工具 菜单 ， 然 后 再 
按 下 【E ]】 键 ， 则 会 出 现 工程 属性 对 话 框 。 为 此 可 以 利用 SendKeys 方法 日 动 完成 这 一 动作 。 

类 似 地 ， 当 从 VBE 返回 Excel 时 可 以 按 下 快捷 键 【 Alt+F11 】， 在 Excel 中 按 下 快捷 键 
【 Ctrl+O ]】 弹 出 打开 文件 的 对 话 框 。 这 两 个 动作 可 以 通过 执行 下 面 的 Test2 日 动 完成 。 

1 Sub Test2() 

2 Application.SendRKeys "%{f1ll1}" '" 自动 返回 Excel 窗口 

3 


Application.SendRKeys "oo" ' 自动 按 下 [ Ctrl+i+0O ] 打开 文件 
End Sub 
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注意 ，SendKeys 也 可 以 用 于 非 Office 程序 中 ， 例 如 执行 VBA 中 的 一 个 安 ， 自 动 把 
焦点 转换 到 记事 本 或 计算 器 中 ， 然 后 目 动 输入 内 容 。 但 是 ， 要 考虑 必要 的 延 时 处 理 ， 否 
则 会 发 生 不 同步 、 亲 乱 的 现象 。 此 外 ，SendKeys 方法 无 法 自动 按 下 【 Windows 】 键 





下 面 举 一 个 比较 典型 的 自动 按键 实例 把 工作 表 中 的 内 容 自 动 发 送 到 记事 本 中 。 
打开 “实例 文档 02.xlsm”， 并 且 切 换 到 Sheet2 工作 表 。 其 中 包含 如 下 两 个 过 程 。 
源 代码 : 实例 文档 02.xlsm/ 自动 按键 SendKeys 方法 示例 


琶 Sub Delayl(s As Integer) 

2 Dim Begin As Double 

3 Begin = Timer 

4 While Timer -— Begin < 3 

Ts DoEvents 

6 Wend 

1 End Sub 

8 Sub Test31{) 

Dim 1 As Integer 

10. Delay 5 ' 这 5 秒 内 鼠标 单 击 到 记事 本 中 准备 接收 文字 
1 For 1 = 1 To / 

12. Delay 1 ' 每 隔 1 秒 往 记 事 本 中 输入 单元 格 内 容 
ds Application.SendKeys Application.Cells(i, 1).Value 
14. Next 1 


19. End Sub 


Sub Delay 是 用 来 延 时 的 ， 例 如 在 其 他 过 程 
中 遇 到 Delay 5 就 表示 暂停 5 秒 什么 也 不 做 ， 过 
5 秒 后 继续 执行 后 面 的 代码 。 








首先 手工 启动 电脑 的 记事 本 ， 然 后 运行 上 | 3 
_ 四 3 

述 Test3 过 程 ， 在 5 秒 内 迅速 把 鼠标 放 到 记事 本 
中 ， 会 看 到 单元 格 中 的 内 容 一 个 一 个 地 出 现在 |， WE 
加 8 文件 (有 ”编辑 (E) 格式 (O) 查看 (V) 帮助 (H) 
记事 本 中 9 效果 如 图 10-23 所 示 。 NonTueWedThuFriSatSun 

通过 以 上 实例 可 以 看 出 ， 使 用 VBA 还 可 
以 间接 地 操作 到 非 Office 软件 部 分 。 图 10-23 ”SendKeys 方法 实现 日 动 按键 





10.3.7 运行 宏 Run 万 法 


Run 方法 可 以 像 Call 一 样 夫 调 用 其 他 过 程 。 不 同 的 是 Run 后 面 的 参数 是 安 名 的 字符 虽 
形式 。 例 如 ，Call Proc 改写 为 Application.Run "Proc"。 

由 于 Run 接受 的 参数 是 字符 串 ， 因 此 可 以 使 用 循环 来 批量 执行 一 些 宏 。 

源 代码 : 实例 文档 02.xlsm/Run 方法 示例 


1. Public Sub Procl{) 
2。 Worksheets (1) .Range ("Al") .Interijor.Color = vbRed 


194 Office VBA 开发 经 典 一 一 基础 入 门 卷 


End Sub 
Public Sub Proc2z{) 
Worksheets(l1) .Range ("A2") .Interior.Color = VvbhGreen 
End Sub 
Public Sub Proc31{) 
Worksheets (1) .Range ("A3") .Interior.Color = vbhBlue 
End Sub 


以 上 3 个 过 程 ， 分别 把 3 ed 的 填充 色 。 
下 面 的 过 程 循环 调用 上 述 3 个 过 程 。 


1] Sub Maint{) 

之 Dim 1 As Integer 

3 For 1i1= 1 To 3 

4 Application.Run "Proc" & i ' 循环 执行 以 上 3 个 宏 
3 Next 1 

6 End sub 


上 述 Procl ~ Proc3 是 3 个 用 于 修改 单元 格 填充 色 的 公有 过 程 ，Sub Main 中 通过 Run 方 
法 调用 上 述 3 个 过 程 。 

了 让 ，Run 后 面 的 过 程 名 不 需要 刺 模 块 名 称 ， 但 是 如 末 其 他 普通 模块 中 也 包含 
Procl 这 个 过 程 ， 就 有 二 义 性 。 为 此 ， 为 了 避免 至 义 可 以 在 过 程 名 前 面 加 上 模块 名 ， 其 至 加 
上 工作 竹 名 称 。 

以 下 是 修改 后 的 代码 ， 在 工作 秒 名 称 后 面 加 上 感叹 号 ,模块 名 后 面 加 上 小 数 点 ， 然 后 再 
写 过 程 名 。 


1] Sub TryAgain() 

pa Application.Run "Procl™" ' 仅仅 指定 过 程 名 
:i Application.Run "Run 方法 示例 .Proc2" ' 指定 模块 名 

= Application.Run " 实例 文档 02 .xlsm!Run 方法 示例 .Proc3" ES 指定 工作 簿 名 

3 End Sub 


不 能 调用 。 


对 于 调用 有 参数 的 过 程 ，Run 方法 后 面 除了 过 程 名 ， 还 需要 加 上 参数 列表 。 
源 代码 : 实例 文档 02.xlsm/Run 方法 示例 


1. Public Sub Proc4(s As String, n As Integer) 
过 MsgBox String(n, 3) 
3. End Sub 


下 面 的 代码 使 用 Call 方法 调用 上 述 过 程 。 


1. Sub Test4() 
之 。 Proc4 "#"™, 5 
3. End Sub 


而 下 面 则 使 用 Run 方法 调用 Proc4 过 程 。 
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1 .， Sub Testo() 
二 Application.Run "Proc4", "@", 3 
3. End Sub 


过 程 Tests 的 运行 结果 如 图 10-24 所 示 。 





10.3.8 退出 应 用 程序 Quit 万 法 图 10-24 ”运行 结果 3 


Application.Quit 将 会 完全 退出 Excel， 如 宁 退 出 前 有 已 修改 的 工作 短 ， 则 会 弹出 是 否 保 
和 存 的 对 话 框 。 

源 人 代码， 实例 文档 02.xlsm/Quit 方法 示例 
Sub Testl () 

Application.DisplayAlerts = False ' 不 弹出 保存 对 话 框 


Application.Quit 
End Sub 


代码 分 析 : 第 2 行 代 人 码 的 作用 是 屏蔽 提示 保存 的 对 话 框 。 


心 WP 


10.3.9 ”定时 执行 OnTime 万 法 


Application 的 OnTime 方法 可 以 让 Excel 在 某 一 个 时 刻 执 行 指定 的 过 程 。Call 语句 执行 
后 ， 立 即 执行 指定 的 过 程 ; 而 OnTime 可 以 等 到 某 一 时 刻 才 执行 ， 相 当 于 日 程 安排 。 

OnTime 方法 的 语法 如 下 : 

Application.OnTime EarliestTime:= 日 期 时 间 字 符 串 ，Procedure:= 过 程 名 称 字 符 串 ,Schedule 

现在 假设 标准 模块 中 有 如 下 Msg 过 程 ， 用 于 提醒 工作 人 员 下 班 。 

源 代码 : 实例 文档 02.xlsm/OnTime 方法 示例 


1。 Sub Msg'() 
pa MsgBox " 该 下 班 了 了， 准备 关机 !"， vbcritical 
3. End Sub 


下 面 的 过 程 设 置 提醒 时 间 为 17:20:00 时 ， 目 动 运行 上 述 Msg 过 程 。 
1]. Sub Testl (1) 


Application.OnTime EarliestTime:="1/:20:00", Procedure:="Msg" 
3. End Sub 


注意 : 需要 先 运 行 Testl 过 程 ， 不 要 退出 Excel， 到 17 点 20 分 ,会 自动 弹出 提醒 对 
话 框 。 


另外 ，EarliestTime 参数 还 可 以 设置 为 从 现在 起 多 长 时 间 。 


1。 Sub Test2() 
pa Application.0onTime Now + EarliestTime("00:00:10"), Procedure:="Msg" 
3. End Sub 
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例如 ， 现 在 是 9:20:30， 运行 Test2， 到 9:20:40 会 日 动 执 行 Msg 过 程 。 

这 里 有 一 个 问题 ， 例 如 安排 在 17:20 目 动 执行 Msg， 但 是 现在 临时 有 事 要 提前 下 班 ， 那 
束 需 要 把 安排 了 的 提醒 日 程 取 消 控 。 这 就 需要 运行 如 下 过 程 来 取消 日 程 。 

1。 Sub Test3() 

A Application.oOnTime EarliestTime:="11:20:00", Procedure:="Msg", Schedule:= 


False 
3. End Sub 


注意 : Test3 和 上 述 Testl 过 程 的 代码 非常 类 似 ， 不 同 的 是 该 过 程 后 面 多 了 一 个 
Schedule 参数 ， 其 作用 是 把 同一 时 刻 、 同 一 过 程 名 的 日 程 取 消 掉 。 也 就 是 说 ， 运 行 
一 次 Test3， 之 前 用 Testl 设置 过 的 日 程 被 取消 ， 即 使 到 时 间 了 ， 也 不 会 弹出 提醒 对 
话 框 。 





为 外 ， 如 采 补 调用 的 过 程 处 于 为 一 个 标准 模块 中 ， 那 么 Procedure 参数 中 需要 指定 模块 
名 称 。 例 如 : 

Application.OnTime EarliestTime:=” 17:20:00”，Procedure:= Module?2.Msg” 
表示 调用 Module2 模块 中 的 Msg 过 程 。 

在 实际 编程 过 程 中 ， 还 可 以 使 用 循环 来 批量 安排 日 程 。 下 面 的 实例 中 ， 运 行 MyClock 
过 程 可 以 一 次 性 安排 24 个 日 程 ， 使 得 一 天 中 每 到 整 点 就 自动 发 出 电脑 的 Beep ( 哪 哪 ) 声 。 

源 代码 : 实例 文档 02.xlsm/OnTime 方法 示例 





1 Sub Bell{() 

之 Beep 

3 End Sub 

4 Sub MyClock!() 

= Dim 1 As Integer 
c For 1 = 1 To 24 

1 Application.OnTime EarliestTime:=1 & :00:00", Procedure:="Bell" 
8 Next 1 

9 End Sub 


代码 分 析 : Beep 是 通过 电脑 的 扬 声 带 发 出 声音 ,第 6 ~ 8 行 代码 表 示 从 1 扣 到 24 点 ， 
都 调用 Bell 过 程 。 在 实际 应 用 时 ， 可 以 根据 需要 缩短 时 间 间 隔 。 


10.3.10 ”撤销 Undo 方法 


Application.Undo 等 价 于 在 Excel 中 按 下 快捷 键 【 Ctrl+Z 】， 但 是 不 能 撤销 由 VBA 引起 
的 编辑 变化 过 程 。 


10.4 Application 对 象 常用 事件 
当 Excel 中 的 工作 泗 或 者 工作 表 发 生变 化 时 ， 例 如 新 建 一 个 工作 往 、 关 闭 一 个 工作 舌 、 
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激活 一 个 工作 表 ， 当 这 些 行为 发 生 时 ,会 触发 相应 的 事件 。 这 些 事件 既 可 以 写 在 VBA 的 事 
件 模 块 中 ， 也 可 以 写 在 类 模块 中 。 

Excel VBA 工程 中 有 Sheet 对 象 的 事件 模块 ， 也 有 ThisWorkbook 的 事件 模块 ， 但 是 没 
有 应 用 程序 Application 对 象 的 事件 模块 。 因 此 需要 用 到 类 模块 。 

打开 “实例 文档 03.xlsm”， 在 其 VBE 中 插入 一 个 类 模块 并 重合 名 为 AppEvents， 在 类 
模块 顶部 与 一 行 代码 : 


Public WithEvents App As Excel .Application 


这 样 就 声明 了 一 个 带 有 事件 过 程 的 Excel 应 用 程序 对 象 App， 如 图 10-25 所 示 。 
从 图 中 可 以 看 出 ， 除 了 Application 对 象 外 ，Chart、Workbook 、Worksheet 等 Excel 对 
象 均 支 持 事件 编程 


| crosoftt Wisyal Basic for Bpolications - ew 03 .xls pocvents | 全 站 
:于 立 件 昌 ”上 编 贺 E) 视图 插入 中 相 式 (| 调 起 ID 运行 (RB) 工具 中 ”外接 程序 各 ”窗口 W) 大助 上 ) 
: 国 甬 " 国 | 交 切 蜀 租 | 相 |pWm 昌 由 | 内 苛 容 愉 | 全 | 行 1, 列 32 蚊 
: 变 有 晶 的 使 用 ” 字 科 与 字符 第 处 理 ” 膛 缉 运算 猴 据 兰 型 ”使 用 儿 组 ” 委 件 选择 ” 短 环 控制 ”过 程 与 函数 ” 团 误 处 理 ” 进 阶 技术 Applicati 


Ta A 


末 | 入 | 


田 - 雪 EnroToo0l EWHOTOOL. XLAN) 
由 -时 YEAProjert (FUICRES. LAN) 
2 TBATr oject (实例 文档 03- xlsm) 
soft Exesl 到 和 锣 
二 二 eetl [5heetl) 
| ate [She et 
:…- 团 1 Sheets tSheer3) 
| 和 Thi shorkhook 
让 多 类 模块 
… nlvwents 


Public WithEvents App As Excel.Application 





图 10-2$ ”声明 带 有 事件 过 程 的 应 用 程序 对 象 


然后 单 击 项 部 的 “通用 ”", 会 看 到 里 面 多 了 一 个 App， 在 右 侧 的 事件 过 程 下 拉 列 表 框 中 
会 看 到 很 多 使 用 英文 书写 的 事件 过 程 ( 见 图 10-26)。 


|] rece 5 Hasrc Enr ED 中 | "Er ail - [onliwents Ft 
轧 这 件 百 这 生 下 入 国 由 插头 而 相 I 部 HD 证 打印 工具 二 直 捷 程序 区 宿 DQA 慨 出 叶 
国税 - 园 | 世 天 七 贞 | 写 记 | 下 对 | 点 呈 罕 冯 | 避 | 行 5 并 1 中 
要 最 析 他 浊 ~- 站 富生 中 行囊 钼 理 - 还 驻 运 科 ME EE 生生 迁 洗 > 考生 区 Ti EA 司 沈 址 评 ” ml Rb iaticon 台 上 项” WrkbeookR 归 Worksheai- Hangs 过 草 ” 二 用 中 舍 cs 对 灼 
FE 到 








| TPublic WithEvents App As Exccl. Applicati 
Frivate Sub App MewWorkbook (ByYal Wb As Workk™ 


Le es 


图 10-26 可 用 的 事件 过 程 
Excel 的 Application 对 象 常 用 事件 名 称 及 其 描述 如 表 10-3 所 示 。 


表 10-3 ”Application 对 象 常 用 事件 


事件 名 称 事件 描述 
New Workbook 新 建 工 作 短 时 引发 的 事件 
SheetActivate 工作 表 激 活 时 引发 的 事件 
SheetBeforeDelete 工作 表 删 除 之 前 引发 的 事件 


SheetBeforeDoubleClick 双击 工作 表单 元 格 区 域 时 引发 的 事件 
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事件 名 称 


SheetBeforeRightClick 


事件 拉 述 
右 击 工作 表单 元 格 区 域 时 引发 的 事件 


SheetChange 工作 表 内 容 发 生 更 改 时 引发 的 事件 
SheetDeactivate 工作 表 失 去 焦点 时 引发 的 事件 


SheetSelectionChange 





工作 表 选 定 区 域 发 生变 化 时 引发 的 事件 


WindowActivate 窗口 被 激活 时 引发 的 事件 
WindowDeactivate 窗口 失去 焦点 时 引发 的 事件 
WindowResize 窗口 高 度 和 宽度 发 生 改变 时 引发 的 事件 
Workbook Activate 激活 工作 德 时 引发 的 事件 
Workbook AddinInstall 加 载 宏 被 加 载 时 引发 的 事件 
WorkbookAddinUninstall 加 载 宏 被 鲫 载 时 引发 的 事件 
Workbook AfterSave 工作 夭 保 存 后 引发 的 事件 
WorkbookBeforeClose 工作 簿 关闭 前 引发 的 事件 
WorkbookBeforePrint 工作 秒 打 印 前 引发 的 事件 
WorkbookBeforeSave 工作 秒 保 存 前 引发 的 事件 
WorkbookDeactivate 工作 簿 失去 焦点 时 引发 的 事件 
WorkbookNewSheet 工作 簿 中 插入 新 表 时 引发 的 事件 
WorkbookOpen 工作 短 打 开 时 引发 的 事件 


从 表 10-3 中 可 以 看 出 Application 对 和 象 第 用 事件 过 程 大 多 和 Workbook 、Sheet、Window 
3 种 对 和 象 的 变化 有 关 。 


10.4.1 WorkbookBeforeClose 事件 


该 事件 是 指 Excel 中 的 任何 一 个 工作 矢 发 生 关闭 行为 时 ， 在 关闭 前 引发 的 事件 。 其 完整 
声明 为 ; 


Private Sub APP WorkbookBeforeClose (ByVal Wb As Workbook, Cancel As Boolean) 


该 过 程 中 的 App 是 一 个 带 有 事件 过 程 的 Application 对 象 ， 插 号 内 带 有 两 个 参数 ，Wb 
表示 即将 关闭 的 工作 钵 对 象 ，Cancel 默认 值 为 False， 如 果 在 事件 过 程 中 更 改 Cancel=True， 
则 会 取消 工作 六 的 关闭 行为 。 

无 论 是 审 事 件 的 应 用 程序 对 象 ， 还 是 该 对 象 有 关 的 事件 过 程 ， 一 律 书写 在 同一 个 类 模块 中 。 

为 了 更 好 地 理解 这 个 事件 过 程 ， 把 类 模块 中 的 App WorkbookBeforeClose 过 程 修改 为 如 
下 代码 。 

源 代码 : 实例 文档 03.xlsm/AppEvents 


Public WithEvents App As Excel .Application 

Private Sub App WorkbookBeforeClose (ByVal Wb As Workbook, Cancel As Boolean) 
Dim ww As VbMsgBoxResult 
T = MsgBox(Wbh.Name & " 即将 关闭 ， 要 继续 执行 关闭 吗 ? "， vbOKCancel + vbQuestion) 
Ift Vv = vbhCancel Then 


np 
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6. Cancel = True 1 不 关闭 了 
Fi End 工 工 
日 。 End Sub 


但 是 类 模块 不 能 直接 使 用 ， 因 此 还 需要 在 “实例 文档 03.xlsm” 的 VBA 工程 中 插入 一 
个 标准 模块 “Application 事件 示例 ， 然 后 在 该 标准 模块 中 首先 声明 一 个 新 实例 。 
源 代 码 : 实例 文档 03.xlsm/Application 事件 示例 


Dim Instance As New AppEvents 
Sub Testl]{() 

Set Instance.App = Application 
End Sub 


让 新 实例 中 的 App 对 象 天 联 到 Excel 当前 的 实际 应 用 程序 。 首 先 运 行 Testl 过 程 ， 这 样 
Excel 的 Application 就 具有 真正 的 事件 功能 了 。 

为 了 测试 ， 手工 打开 其 他 的 工作 敌后 ， 表 关闭， 会 看 到 
如 图 10-27 所 示 的 对 话 框 。 @ tn msm? 

此 时 硅 单 击 “ 确定 ”按钮 ， 则 关闭 该 工作 禾 ; 厂 单 击 
“ 取消 ”按钮 ， 则 会 把 事件 过 程 中 的 Cancel 参数 设置 为 True， 
就 不 会 关闭 该 工作 泗 。 图 10-27 是 否 关闭 





10.4.2 事件 的 取消 
上 面 的 实例 说 明 当 一 个 工作 泗 关 闭 时 会 触发 事件 ， 那 么 如 何 去 挥 这 个 事件 行为 呢 ? 在 
普通 模块 中 执行 下 面 的 Test2 过 程 即 可 。 这 样 就 切断 了 新 实例 和 实际 应 用 程序 之 间 的 关联 。 
1. Sub Test2 () 


2. Set Instance.App = Nothing ' 取消 事件 
3. End Sub 


10.4.3 ”禁用 和 启用 事件 


实际 上 ,不 管 是 Application 的 事件 ， 还 是 Workbook、Sheet 对 象 的 事件 ， 都 需要 在 
Application.EnableEvents 属性 为 True 的 前 提 下 才 有 效 。 

禁用 和 局 用 事件 ， 只 能 通过 VBA 来 设置 ， 此 ， 当 运行 Application.EnableEvents= 
False 上 时， 就 表示 禁用 事件 。 这 种 情况 下 ，Application、Workbook、Worksheet、Chart 这 些 
对 象 的 事件 过 程 均 不 会 被 触发 。 


10.4.4 SheetSelectionChange 事件 


该 事件 表示 Excel 中 的 任何 一 个 工作 表 发 生 选 定 改 变 时 引发 的 事件 ， 其 完整 声明 为 : 
Private Sub App SheetSelectionChange (ByVal Sh As Object, ByVal Target As Range) 


括号 内 的 Sh 参数 是 鼠标 所 在 的 工作 表 对 象 ; Target 参数 是 鼠标 所 选 的 单元 格 区 域 对 象 。 
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仿照 WorkbookBeforeClose 事件 的 做 法 ， 在 类 模块 中 由 插入 如 下 事件 过 程 代码 。 
源 代码 ， 实例 文档 03.xlsm/AppEvents 


1 Private Sub App SheetSelectioncChange (ByVal Sh As Object, ByVal Target As Range) 
pa Target.Interior.Color = VbGTreen 

3 MsgBox " 你 选择 的 是 : " & sh.Name & vbNewLine & Target .Address 

4 End Sub 


标准 模块 中 的 Testl 过 程 如 下 。 
源 代 码 : 实例 文档 03.xlsm/Application 对 象 事件 示例 


1。 Sub Testl() 
上 Set Instance.App = Application 
3. End Sub 


运行 Testl 过 程 后 ， 在 任意 一 个 工作 表 中 选中 一 些 单元 格 区 域 ， 每 选中 一 次 会 自动 弹出 
对 话 框 ， 如 图 10-28 所 示 。 


1 
< 
4 
5 
『 
8 


你 选择 的 旺 : Sheet1 
$B$13:$D$19 





图 10-28 ”运行 结果 4 
与 SheetSelectionChange 事件 非常 类 似 的 事件 是 SheetChange 事件 ， 它 表示 改变 了 工作 
表 中 的 内 容 时 方 可 引发 ， 而 不 是 仅仅 选中 。 
10.4.5 WindowActivate 事件 


WindowActivate 事件 表示 一 个 窗口 被 激活 时 引发 的 事件 过 程 。 其 完整 声明 为 : 

Private Sub App WindowActivate (ByVal Wb As Workbook，ByVal Wn Rs Window) 

参数 Wb 表示 工作 敌对 象 ; Wn 是 一 个 Window 对 象 ， 它 表示 激活 了 的 窗口 。 

在 Excel 中 ， 同 一 个 工作 秒 允 许 使 用 多 个 窗口 。 新 建 或 打开 一 个 工作 禾 ， 然 后 选择 “ 视 
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图 ”一 “窗口 ”一 “新 建 窗 口 ” 命 令 ， 会 看 到 工作 短 中 出 现 多 个 窗口 ， 其 中 每 个 窗口 的 标题 
文字 为 工作 清 名 称 + 冒号 + 窗口 编号 。 

在 “实例 文档 03.xlsm” 的 类 模块 中 插入 如 下 事件 过 程 。 

源 代码 : 实例 文档 03.xlsm/AppEvents 


1. Private Sub App WindowActivate (ByVal Wb As Workbook, ByVal Wn As Window) 

- 。 MsgBox " 你 现在 激活 了 : " & Wn.Caption 

3. End Sub 

运行 标准 模块 中 的 Testl 过 程 ， 用 鼠标 切换 工作 竹 的 窗口 ， 会 日 动弹 出 如 图 10-29 所 示 
的 对 话 框 。 


开 友 工具 El 名 未 测试 








图 10-29 ”运行 结果 5 
10.4.6 “归纳 总 结 


Application 对 象 是 Excel 最 顶层 的 对 象 ， 因 此 Application 级 别 的 事件 过 程 具 有 全 局 
性 。 也 就 是 说 ， 它 能 影响 到 的 不 是 某 个 特定 的 工作 短 或 工作 表 ， 而 是 所 有 打开 的 工作 短 和 
工作 表 。 

Application 对 象 的 事件 过 程 需要 写 在 类 模块 中 ， 但 是 需要 在 标准 模块 中 创建 新 实例 ， 并 
与 实际 应 用 程序 关联 。 

Application 对 象 的 EnableEvents 为 True 时 ， 事 件 过 程 方 可 生效 。 


习题 


1. 编写 一 个 程序 ， 实 现 当 用 户 在 工作 表 中 选取 任何 单元 格 区 域 时 ，Excel 的 状态 栏 自 动 
显示 所 选区 域 的 地 址 。 

2. 编写 一 个 程序 ， 功 能 是 当时 间 到 11:59:59， 不 弹出 任何 提醒 对 话 框 ,日 动 退出 Excel。 

3. 编写 一 个 程序 ， 在 Excel VBA 中 使 用 SendKeys 方法 ， 实 现 目 动 打 开 记 事 本 、 日 动 
写 人 人 内容、 自动 保存 记事 本 、 自 动 退出 记事 本 。 
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工作 牧 Workbook 对 象 






Workbook 对 象 是 Application 对 象 所 属 的 成 员 对 象 ， 表 示 在 Excel 中 打开 的 工作 短 ， 也 
就 是 存储 于 电脑 中 的 Excel 文件 。 


11.1 工作 条 对象 的 表达 


Application.Workbooks 是 集合 对 象 ， 表 示 Excel 现在 上 所 有 打开 的 工作 短 。 如 果 要 引用 其 
中 某 个 工作 竹 ， 有 以 下 4 种 方式 。 


11.1.1 利用 索引 值 


Application.Workbooks(2)， 表 示 Excel 中 第 2 个 工作 短 ， 圆 括号 里 的 数字 表示 索引 值 序 
号 ， 它 是 从 1 开始 而 不 是 从 0 开始 的 。 这 个 过 引 值 是 根据 工作 泗 打 开 的 先后 顺序 排列 的 ， 而 
且 ， 当 发 生 工作 短 的 新 增 、 工 作 沽 的 关闭 行为 时 ， 索 引 值 会 日 动 从 1 开始 重新 排 布 。 例 如 ， 
原先 的 Workbooks(2)， 当 关闭 其 他 工作 短 后 ， 这 个 Workbooks(2) 所 指 代 的 对 象 也 就 变 了 。 
Application. Workbooks(2) 等 价 于 Application.Workbooks.Item(2)。 


11.1.2 ”利用 工作 湾 名 称 


由 于 索引 值 是 随时 变化 的 ， 所 以 要 想 确保 唯一 性 ， 利 用 工作 憩 名 称 来 访问 更 加 可 徘 。 

Application.Workbooks(“ Green.xlsm”) 表示 打开 的 工作 短 中 有 一 个 名 称 为 Green.xlsm 
的 工作 短 ， 这 样 无 论 其 他 的 工作 竹 是 否 关 闭 ，Workbooks(“ Green.xlsm”) 始终 很 确定 地 指 
11.1.3” 安 代码 所 在 的 工作 敌 


由 于 Excel VBA 的 作用 范围 是 整个 Application 应 用 程序 ， 所 以 一 个 工作 短 里 的 VBA 代 
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人 码 ， 可 以 操纵 和 控制 除 日 己 以 外 的 其 他 工作 禾 。 
Application.ThisWorkbook 表示 代码 所 在 的 工作 演 对 象 ， 即 使 Excel 中 已 经 鼠标 已 经 单 
击 到 其 他 工作 籍 了 ，ThisWorkbook 始终 代表 宏 代 码 所 在 的 工作 秒 。 





注意 ， 如 果 是 用 Excel 以 外 的 组 件 来 访问 Excel 工作 秒 ，ThisWorkbook 这 个 对 象 毫 
无 用 处 。 例 如 ， 用 Word VBA 来 访问 Excel， 或 者 用 VB6 访问 Excel， 这 些 情况 下 不 
存在 ThisWorkbook， 因 为 代码 不 在 Excel VBA 中 。 





11.1.4 ”活动 工作 济 


Excel VBA 中 ， 有 很 多 对 象 中 含有 Active 这 个 单词 ，Active 是 一 个 形容 词 ， 意 思 是 激活 
的 、 当 前 的 、 活 动 的 。 而 与 其 对 应 的 动词 是 Activate， 意 思 是 激活 ， 通 常用 来 表示 一 个 对 象 
的 方法 。 

ActiveWorkbook 表示 Excel 中 当前 活动 工作 注 ， 也 就 是 鼠标 或 焦点 所 在 的 工作 簿 。 
Excel 人 允许 用 户 同 时 编辑 多 个 工作 竹 ， 因 此 当前 正在 编辑 的 工作 秒 为 ActiveWorkbook。 

尝试 一 下 启动 Excel， 并 打开 多 个 工作 敌 文 件 ， 然 后 在 VBA 编程 界面 中 按 下 快捷 键 
【 CtrltG ]， 在 显示 出 来 的 立即 窗口 中 输入 如 下 代码 : 


2 Application.ActiveWorkbook.FullName 


按 下 【 Enter 】 键 ， 会 返回 活动 工作 短 的 完全 路 径 。 然 后 回 到 Excel 窗口 ， 把 其 他 工作 和 泗 
激活 为 活动 工作 泗 ， 上 再 次 回 到 立即 窗口 运行 上 述 代 码 ， 会 看 到 绪 采 不 一 样 了 了 ， 如 图 11-1 所 示 。 


:由 3 加 ” 生 衣 可 王 轴 0 垢 入 加 ”格式 Eh 沽 夺 加 ” 匡 {工具 中 ”外 拷 可 让 [窗口 0 哮 防 出] 2 
! 国 往 - 国 | 六 强 区 扣 | 丰 HH 襄 | 年 饶 | 避 国 迪 为 | 喉 
iraton 四 疙 ”Worboolzd 计 ” 负 ceksheet 同 灿 ” Fangedi 束 ”由 用 D 作 ce 寺 孝 " 提 人 FYBE ”| 高 可 广 项 * 并 
了 








图 11-1 查看 活动 工作 簿 的 完全 路 径 
由 于 Application 应 用 程序 对 象 在 代码 中 可 以 缺 省 ， 因 此 代码 中 的 Application. 





ActiveWorkbook 和 直接 写 ActiveWorkbook 是 等 价 的 ， 后 者 更 简短 。ActiveWorkbook 在 
中 的 使 用 频率 远 比 ThisWorkbook 要 高 。 


注意 : Excel 关闭 了 所 有 工作 簿 后 ，ActiveWorkbook 对 象 无 效 。 
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Excel 局 动 后 ， 手 工 关 闭 所 有 工作 每 ， 然 后 在 立即 窗口 中 输入 
2Applicatijon.Activeworkbook Is Nothing 


按 【 Enter 】 键 后 ,返回 True。 有 再 输入 : 


2Application.Activeworkbook.FullName 


按 【 Enter ] 键 后 ， 出 现 错误 对 话 框 ( 见 图 11-2)。 如 果 有 打开 的 工作 秒 ， 将 不 
述 情况 。 


Eu 
有 i 汪 反 A 可 剖 机电 从 出 二 而 同 杭 加 开 #T 风 jp 对 和 NW PR 
下 hn "| 用 -| 王 和 白 二 = 鉴 
ee i ! , 

| 了 -| 国 -| 站 -上 员 -| 宇 -| 三 三 三 | 证 二 | 图 和 HEgh - | 杰 


| | 是 条件 洁 式 a 地 元 省 本 
的 本 jcroaoft Wisug Bemic Fo apmfcations - FUMCRES.NLAR 


主 卫 日 ” 沪 澡 十 税 加 WW 播 * 面 相 式 辐 淹 开 0] 运行 工具 四 站 莹 全 床 二 黎 口 吕 5 局 mH] 
图 上 赚 " 国 |# 红 询 前 | 可 人 |k 玫 驼 | 可 本 调 站 | 司 


i 
Tavs 车 
图 国 


?Applicaticon. Activeworkbook Ts Nothing 
True 


TApplication, Metiveworkbook,. FullName 





11.2 Workbook 对 象 重 要 属性 


Excel 的 工作 短 和 工作 表 的 属性 ， 


可 以 通过 以 下 3 种 方式 进 和 
口 手工 操作 : 


了 访问 和 修改 。 
: 通过 在 Excel 中 选择 “选项 ”一 “高 级 ” 


` 会 出 现 上 


命令 ， 进 行 设 定 。 例 如 ， 修 改 工 


作 短 的 水 平 滚 动 条 的 可 见 性 ， 可 以 在 “Excel 选项 ”对 话 框 中 查看 和 设 定 ， 如 图 11-3 
所 示 。 


此 工作 万 的 受 示 进 天 (8): 。 国 Shestl 画 


圆 旦 示 行 和 列 标 3 


国 在 单元 格 中 显示 公开 而 非 其 计算 结果 到 





11-3 ”在 “Excel 选项 ”对 话 杠 中 更 改 工 作 短 属性 
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口 在 VBA 的 属性 窗口 中 查看 和 设 定 。 在 VBA 中 ， 按 下 快捷 键 【 F4 ]， 出 现 属性 窗口 ， 
可 以 设置 ThisWorkbook 的 部 分 属性 ， 如 图 11-4 所 示 。 


: 嘻 玄 呈 Fi 蝙 害 E 视 同 WW 握 和 A 轩 可 Ww 调 却 DW 运行 则 ” 工 肯 ”外 毛 程 斥 则 ” 笑 口 MW 雁 肪 出) 

:国税 - 园 | 上 虹 隐 疾 | 四 | ng 由 | 飞 医 窜 关 | 全 | | 

: 恋 县 身体 用 - 字符 与 字符 趾 址 介 - 课 妃 区 各 赖 据 兴 型 - 性 用 熙 引 - 生 件 选 怪 - 竹 环 控制 ~ 过 得 与 函 芭 -” 虱 深 外 理 - 进 防 持 也 - 二 pplication 囊 各- Workbook 革 盆 - Worksheect 对 备 ~ Range 对 条 ~- 使用 ffice 对 和 银 - 捏 作 VBE ~ 高 各 选项 ~ 
| | 「 郁 月 ) -| 「 质 硬 ) -| 


团 - 器 EuraTool EUANOTONT. XLAN) 

自 - 喇 mATeoieet (FWHCRES. ILAMN) po. 

白 匡 Bizrojses 侈 侍 文档 o4. xlsn) | 
是 澡 时 es aft Ereel 对 条 
| tl 让 heeil) 

| 


入 Sbeet2 折 heestE] | 


Shaet3 后 hest3] 
Thi x 
自 概 贝 
六: Fm =j set 周 性 
可 | 
入 - This 
This Yourlbwole 


人 核 芝 娄 序 | 


上 ?thi s. Name 
实例 区 档 04. #1] sm 


























局 区 J 时 四 总 首 玉 





图 11-4 在 属性 窗口 中 更 改 工 作 秒 的 属性 


口 通过 VBA 设 定 属性 。 例 如 ，ActiveWorkbook.RemovePersonalInformation =False， 表 示 工 
作 沽 关闭 时 不 移 除 个 人 信息 。 
11.2.1 “文档 内 置 属性 BuiltinDocumentProperties 


Excel 的 每 个 工作 短文 件 可 以 设置 内 置 属 性 和 上 月 定义 属性 ， 手 工 设 定 的 方法 是 : 首先 
打开 一 个 Excel 文件 ， 然 后 选择 “文件 ”一 “信息 ”一 “属性 ”一 “高 级 属性 ”命令 ， 如 
到 11-5 所 示 。 





实 古 广 秸 Du xlsrn - Escel 


实例 文档 04 
E = 已 fficewBA 开 发 盱 风 > ffice WBA 开 发 经典 资源 < 滨 立 件 = 应 用 程序 上 Pication 对 过 
保护 工作 簿 | 屋 性 "| 


看 深 制 其 他 不 可 以 对 此 工 必 箱 抽 便 的 更 改 兴 型， 显示 谈 档 醒 板 


栋 护 工作 二 
国 和 在 工作 税 上 方 的 立 档 
回 板 中 间 宫 局 性 。 








检查 工作 簿 国 上 2 
在 点 布 此 立 忻 之 前 ， 请 法 高 封包 言 以 下 内 容 : 一 
检查 问 量 四 ”文档 悍 特 、 作 宪 的 姓名 和 把 对 帆 笃 上 次 楼 到 时 间 ”今天 15:21 
创建 时 间 专 正 1 由 5 


上 次 打印 时 间 








版 本 相关 A 人员 
让] 规 趟 时 此 广 忻 的 上 一 个 版 二， 和 作者 
站 ryueifu 
滞 加 砷 震 
上 次 棱 击 害 
| ryuertu 
相关 人 吝 档 
| 打开 记性 位 于 
屋 示 Pi 有 属性 


洗 汪 在 届 We 5 上 可 此 工 自 吾 时 用 户 可 以 看 到 的 内 容 ， 





图 11-5 手工 设置 文档 内 置 属 性 
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出 现 如 图 11-6 所 示 的 内 置 属性 对 话 框 。 

然后 手工 编辑 这 些 信息 即 可 。 其 中 我 们 看 到 的 “ 标 
题 "“ 主 题 "“ 作 者 ” 叫 作 内 置 属性 的 名 称 (Name)， 而 对 应 
的 文本 框 中 的 编辑 内 容 叫 作 属 性 值 ( Value)， 这 些 也 可 以 
用 VBA 进行 该 与 。 

文档 的 所 有 属性 是 一 个 集合 对 象 ， 用 Workbook. 


有 备注 |C)，。 | 测 饶 用 
BuiltinDocumentProperties 来 表示 ， 中 每 一 个 属性 是 一 


个 DocumentProperty 对 象 ， 主 要 有 Name 属 性 和 Value Sa | 


惨 栋 : 


属性 bn 贺 保存 所 有 Excel 交 档 的 鞠 略 图 [V1 
以 下 代码 授 历 工作 和 演 的 所 有 内 置 属性 的 名 称 和 值 。 
源 代码 : 实例 文档 04.xlsm/ 工作 得 内 置 属性 示例 图 11-6 工作 笑 内 置 属性 对 话 框 





1 Sub Testl]() 

pa On Error Resume Next 

3 Dim p As DocumentProperty 

4. For Each p In ActiveWorkbook.BuiltinDocumentProperties 
I Debug.Print p.Name, p.Value 

6 Next p 

1 End Sub 


代 人 码 实现 阴历 每 一 个 属性 ， 并 且 在 立即 窗口 中 依次 输出 属性 名 称 和 值 ， 如 图 11-7 
所 示 。 


"erosott Wsual Baeste Tor Appllcatrons - SH wsm - [LFEwSE eT | | 
: 圈 谈 忻 辐 ” 坊 上 昌 ”视图 Ww 插入 四 靖 蕊 上 加 ] 调式 () 坛 行 (RY 工具 加 计 尝 程 亩 的 ”窗口 帮助 :H} 
: 圆 册 + 国 |¥ 鱼 询 堪 | 相让 |b 有 HB 岂 | 关于 内 闫 | 和合 行 8. 列 1 加 
: 亚 呈 的 舒 用 - 字符 与 字符 和 处理 ”如 各 运 疝 - 数 大 等 型 伍 用 娄 诅 - 尝 必 选择 ~ 撕 环 控制 过 程 与 国 数 - 展示 外 理 - 进 阶 村 术 - Application 对 旬 ” Workbook 对 最 ~ Worksheet 对 象 ” hange 对 妆 - 


Sub Testl( 
Qn Error Resume Next 
Dim bp As DocumentProperty 
+- 玫 阳 For Each p In ActiveWorkbook. BuiltinDocumentProperties 
: - 量 人 0 Debug. Print p. Name, p. Value 
: 有 肯 ]5 a E Et 空 1 Next p 


End sub 


实例 文档 


ryuUeltu 


Keywords 

Comments 测试 用 

Template 

Last author ryueifu 

Revisicon number 

Application name Microsoft Excel 


Creation date 2017/4716 14:5]:41 





图 11-7 遍历 工作 秒 的 所 有 内 置 属性 
对 于 可 编辑 的 内 置 属性 ， 也 可 以 让 VBA 代劳 。 
源 代码 实例 文档 04.xlsm/ 工作 得 内 置 属性 示例 


1. Sub Test2() 
区 Dim p As DocumentProperty 
a Set p = ActiveWorkbook.BuiltinDocumentProperties ("Author™) 
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4 p.Value = "独孤 求 败 " 

Set p = ActiveWorkbook.BuiltinDocumentProperties ("Comments™") 
6 p-.Value = "VBA 无 所 不 能 ! " 

1 End Sub 


Sub Test2 的 功能 是 ， 把 当前 工作 短 的 内 置 属性 “作者 ”修改 为 “独孤 求 败 ”， 并 且 把 各 
注 修 改 为 “VBA 无 所 不 能 ”， 重 新 打开 属性 对 话 框 ， 结 果 如 图 11-8 所 示 。 





实 痢 议和 04.xjsm 尾 性 
Emal 


| 
Pr VHA 看 癌 ! | | 


基础 人 HI | 


保存 所 有 Excel| 训导 的 弟 唱 固 0WV) 





图 11-8 ”使 用 代码 自动 更 改 内 置 属性 


注意 : 属性 对 话 框 右 侧 有 一 个 “ 自 定 义 ” 选 项 卡 ， 可 以 为 工作 短 设 置 自 定义 属性 ， 
将 在 11.2.2 节 进 行 讲解 。 


11.2.2 ”文档 目 定 义 属 性 CustomDocumentProperties 


工作 德 中 的 内 置 属性 只 能 修改 值 ， 而 不 能 完全 把 这 个 属性 删除 ， 也 不 能 新 增 内 置 属性 。 
但 是 Excel 允许 用 户 创 建 自 定义 属性 。 打 开 一 个 工作 笑 后 ， 打 开工 作 德 的 属性 对 话 框 ， 选 择 
“日 定义 ”选项 卡 ， 在 “名 称 ” 文 本 和 框 中 输入 QQGroup， 在 “类 型 ”下 拉 列 表 框 中 选择 “ 文 
本 ”选项 ， 在 “ 取 值 ”文本 框 中 输入 QQ 群 号 ， 然 后 单 击 右上 角 的 “添加 ”按钮 ， 再 单 击 
“确定 ”按钮 ， 如 图 11-9 所 示 。 

以 上 是 手工 添加 自 定义 属性 的 方法 。 下 面 介 绍 用 VBA 自动 维护 自 定 义 属性 。 

源 代码 : 实例 文档 04.xlsm/ 工作 往 自 定义 属性 示例 


1]. sub Testl (1) 
a MsgBox ActiveWorkbook.CcustomDocumentProperties.Count 
3. End sub 


上 述 过 程 返 回 工作 簿 日 定义 属性 的 个 数 。 
1]1. Sub Test2() 


pr Dim P As DocumentProperty 
SE Set p = ActiveWorkbook.CustomDocumentProperties ("QRGroup") 
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4. Pp.Value = "6184" 
5. End Sub 


述 过 程 把 刚 添加 的 QQ 群 号 属性 更 改 为 6184， 结果 如 图 11-10 所 示 。 


兰 型 [1 


取 值 WV} 口 铸 流 到 内 容 届 | 站 口 鱼 樟 到 内 容 中 


居 性 四 :| 名 称 值 | 层 性 [P} 





图 11-9 手工 添加 自 定 义 属性 图 11-10 使 用 代码 自动 修改 工作 和 注 的 自 定 义 属性 


11.2.3 ”工作 簿 的 名 称 和 路 径 


Workbook 的 Name、Path 和 FullName 属性 分 别 返 回 工 作 狂 文件 的 名 称 、 路 径 和 完全 路 
， 是 只 读 属 性 。 其 中 ， 完 全 路 径 相 当 于 将 Path 和 Name 连接 在 一 起 。 
源 代 码 : 实例 文档 04.xlsm/ 工作 复 名 称 和 路 径 示 例 


FN 


1 Sub Testl 1() 

之 With Application.ActiveWorkbook 

ss MsqgBox ™ 当前 工作 簿 的 名 称 是 ， VT & .Name, vbhInformation 

4. MsgBox " 当前 工作 簿 的 所 在 文件 夹 是 . " & .Path, vbInformation 
0 MsgBox ™ 当前 工作 每 的 完全 路 径 是 ， Vg& .FullName, vbhIinformation 
6. End With : 

1 End Sub 


当前 工作 得 的 完全 路 笃 旺 : EOIiceWBA 开 内 经 起 \Ofhe I 
邮 窒 源 \ 源 立 | 站 应 用 程序 A&pplication 对 其 \ 实 园 训 档 i 


代码 分 析 : 第 3 ~ 5 行 代码 分 别 打 印 工 作 泗 的 
名 称 、 路 径 和 完全 路 径 。 第 5 行 代码 的 运行 结果 如 
图 11-11 所 示 。 图 11-11 运行 结果 2 





注意 如果 是 新 建 的 工作 短 ， 尚 未 保存 ， 则 Path 
字符 串 。 此 时 ，Name 属性 等 于 FullPath 属性 。 





允 性 不 返回 任何 文件 夹 ， 而 返回 空 


11.2.4 IsAddin 属性 


IsAddin 属性 是 工作 短 的 一 个 布尔 型 可 读 写 属性 ， 通 常用 于 加 载 安 。 在 Excel 中 加 载 宏 
时 无 论 在 设计 期 间 还 是 运行 期 间 都 看 不 到 加 载 宏 的 工作 表 ， 这 是 因为 加 载 宏 的 IsAddin 为 
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True， 如 采 把 该 属性 修改 为 False， 则 可 以 编辑 加 载 宏 文件 的 工作 表 内 容 。 
11.2.5 ”Saved 属性 


Saved 属性 是 工作 泗 的 一 个 可 读 写 属性 。 当 一 个 工作 甸 未 做 任何 修改 ,或 者 做 修改 后 已 
经 保存 过 ， 那 么 这 个 工作 秒 的 Saved 属性 为 True， 意 思 是 已 保存 ; 反之 ， 如 果 工 作 短 被 修改 
过 ， 但 是 未 保存 ， 那 么 该 属性 为 False。 

众所周知 ，Excel 工作 短发 生 一 点 点 改动 ,关闭 工作 短 时 一 定 弹 出 提醒 保存 的 对 话 框 。 
现在 新 建 或 打开 一 个 工作 禾 ， 然 后 在 工作 表 中 输入 一 些 数据 ， 在 VBA 中 执行 ActiveWorkbook. 
Saved=True， 人 然后 关闭 该 工作 沙 ， 会 发 现 并 不 提示 是 否 你 存 ， 而 是 放弃 修改 二 接 关 闭 。 


11.2.6 ”工作 簿 的 窗口 


Workbook.Windows 是 一 个 属于 Workbook 下 面 的 集合 对 象 ， 代 表 工 作 秒 的 所 有 和 窗口， 
其 中 每 个 窗口 都 是 一 个 Window 对 象 。 

在 Excel 中 选择 “视图 ”一 “和 窗口” 一“ 新建 窗口 ”命令 ， 可 以 为 工作 竹 创 建 多 个 新 窗 
口 。 创 建新 窗口 的 好 处 是 可 以 同时 看 到 工作 禾 的 多 个 工作 表 。 

窗口 可 以 显示 和 隐藏 ， 窗 口 之 间 可 以 设置 排 布 方式 。 不 管 创 建 了 多 少 个 窗口 ， 活 动 窗口 
只 有 一 个 ,用 ActiveWindow 表示 。 

新 增 和 关闭 的 窗口 ， 会 存储 于 工作 短 中 ， 也 就 是 说 上 次 编辑 创建 的 窗口 ， 下 次 打开 该 工 
作 短 时 还 能 看 到 。 

打开 “实例 文档 05.xlsm”， 选 择 “ 视 图 ”一 “窗口 ”一 “切换 窗口 ”命令 ， 会 看 到 该 工 
作乱 有 三 个 窗口 ， 如 图 11-12 所 示 。 


5R 回 和 as | QQ、[ 当 Be | 加 局 国 3 


L 一 一 mr LJ __ | CT = 
大 机 机 折 久 和 喇 网 由 旷 回 奈 波 。 呈 本 100% 相间 让 部 于 六 这 结 字 格 一 
主 区 泛 - 


Tey “Pie nh 
it 


显示 出 全 | 图 吕 


J 





图 11-12 ”工作 短 的 多 个 窗口 


11.2.6.1 ”窗口 的 创建 
除了 用 手工 创建 新 窗口 外 ， 还 可 以 使 用 Window.NewWindow 创建 新 窗口 。 执 行 Application. 
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ActiveWindow NewWindow 会 自动 创建 一 个 新 窗口 。 


11.2.6.2 ”修改 窗口 标题 

更 改 Window 对 象 的 Caption 属性 ， 可 以 修改 窗口 的 标题 文字 。 但 是 这 种 修改 是 暂时 
的 ， 当 关闭 并 重新 打开 工作 短 后 ， 标 题 又 恢复 为 默认 设置 。 

源 代 码 : 实例 文档 05.xlsm/ 工作 复 的 窗口 


1 Sub Testl () 
之 Dim Ww As Excel .Window 
3 Set w = ActiveWorkbook.Windows (1) 
4. WwWw.Activate 
器 WwW.DisplayGridlines = False 
6 w.Caption = "隐藏 网 格 线 " 
1 End sub 
代码 分 析 : 上 述 过 程 中 ，w 表示 工作 簿 的 第 1 个 窗口 ， 第 4 行 激活 该 窗口 ， 第 5 行 在 该 
窗口 中 不 显示 网 格 线 ， 第 6 行 更 改 窗 口 的 标题 文字 。 
] Sub Test2 () 
2 Dim w As Excel .Window 
3 Set w = ActiveWorkbook.Windows (2) 
4. Ww.Activate 
本 WwW-Zoom = 60 ' 缩放 比例 为 60 委 
加 W.Caption = ™ 缩小 视图 
1 End Sub 


代码 分 析 : 上 述 过 程 中 ,第 5 行 改变 窗口 的 缩放 比例 ， 第 6 行 更 改 窗口 的 标题 文字 。 


Sub Test3 1() 
Dim Ww As Excel .Window 


Set w = ActiveWorkbook.Windows (3) 


而 .VIEW = XlPageBreakPreview ' 显示 分 页 符 
Ww.Caption ==" 显示 分 页 符 " 


1 

2 

3 

4. WwW.Actlivate 
3 

6 

1 End Sub 


代码 分 析 : 上 述 过 程 中 ， 第 5 行 用 于 在 第 3 个 窗口 显示 分 页 符 。 


11.2.6.3 ”窗口 的 关闭 

关闭 Excel 工作 短 和 窗口， 相当 于 删除 这 个 窗口 。 但 是 ， 工 作 黎 至 少 要 留 下 1 个 窗口 ,不 
能 删除 所 有 的 窗口 。 

VBA 可 以 使 用 Window.Close 方法 删除 窗口 。 

执行 Application.ActiveWorkbook.Windows(1).Close 会 关闭 工作 簿 的 第 1 个 窗口 对 象 ， 
以 此 类 推 。 但 是 ， 如 采 关 闭 工 作 短 之 前 没有 保存 ， 则 当下 次 打开 该 工作 短 时 ， 以 前 创建 的 窗 
口 还 在 。 也 就 是 说 ， 窗 口 的 创建 以 及 关闭 / 删除 操作 ， 必 须 保存 工作 注 才 有 效 。 

11.2.6.4 查看 和 修改 窗口 属性 

Window 对 象 拥有 非 芝 丰厚 的 和 属性 ， 与 Excel 工作 表 的 手工 操作 关系 非常 大 。 表 11-1 
列 出 了 Window 对 象 的 常用 属性 。 


属性 名 称 
Caption 
DisplayFormulas 
DisplayGridlines 
DisplayHeadings 


DisplayHorizontalScrollBar 
DisplayRightToLett 
DisplayRuler 

Display VerticalScrollBar 
DisplayWorkbookTabs 
DisplayZeros 
EnableResize 
FreezePanes 
GridlineColor 
GridlineColorIndex 
Height 

Hwnd 

Index 

Left 

SelectedSheets 

Split 

splitColumn 
SplitHorizontal 
SPItRow 

splitVertical 

Top 

View 

Visible 

VisibleRange 

Width 

WindowsState 


OO 
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表 11-1 Window 对象 的 常用 属性 


功能 描述 


窗口 的 标题 文字 ， 可 读 写 ， 下 次 打开 工作 短 恢 复 默认 标题 


是 否 显示 公 式 编 辑 栏 ， 布 尔 型 ， 可 读 写 
是 否 显示 网 格 线 ， 布尔 型 ， 可 读 写 
是 否 显示 行 号 列 标 ， 布 尔 型， 可 读 写 
是 否 显示 水 平 滚动 条 ， 布 尔 型， 可 读 写 


列 标 是 否 显示 为 从 右 到 左 ， 布 尔 型， 可 读 写 


是 否 显示 标尺 ， 布 尔 型 ， 可 读 写 

是 否 显示 垂直 滚动 条 ， 布 尔 型 ， 可 读 写 
是 否 显 示 工 作 表 标签 ， 布 尔 型 ， 可 读 写 
是 否 显示 零 值 ， 布 尔 型 ， 可 读 写 

是 否 可 以 改变 窗口 大 小 ， 布 尔 型 可 读 写 
窗 格 是 否 冻 结 ， 布 尔 型 ， 可 读 写 

网 格 线 颜色 ， 可 读 写 

网 格 线 颜色 值 ， 可 读 写 
窗口 高 度 ， 可 读 写 

窗口 句柄 ， 长 整 型 ， 只 读 

窗口 序号 ， 整 型 ， 只 读 

窗口 左边 距 

选 定 的 工作 表 

窗口 是 否 拆 分 ,布尔 型 ， 可 读 写 
拆 分 列 ， 整 型 

水 平 拆 分 

拆 分 行 ， 整 型 

垂直 拆 分 

窗口 上 边 距 

窗口 视图 显示 ， 枚 举 型 ， 可 读 写 
窗口 可 见 性 ， 布 尔 型 ， 可 读 写 

窗口 中 显示 出 的 区 域 ， 只 读 

窗口 宽度 ， 可 读 写 

窗口 状态 ， 枚 举 型 ， 可 读 写 
窗口 缩放 比例 ， 可 读 写 


下 面 举 一 些 关 于 Window 对 象 的 实例 。 


11.2.6.5 更改 网 格 线 颜 色 


源 代 码 : 实例 文档 05.xlsm/ 更 改 网 格 线 颜色 


Sub Testl]{() 


Application.ActijveWindow.GridlineColor = VvbRed 


Application.ActijveWindow.GridlineColorIindex = 5 


1 
2 
MsgBox " 下面 把 网 格 线 更 改 为 蓝 色 ! " 
本 
5 


End Sub 


' 等 价 于 VbBlue 
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11.2.6.6 ”更 改 列 标 字母 显示 方 同 
将 Window.DisplayRightToLeft 设置 为 Trme， 可 以 让 列 标 字母 从 右 到 左 显 示 。 
源 代码 : 实例 文档 05.xlsm/ 更 改 列 标 显示 方向 


1 Sub Testl 1() 

A Dim Ww As Excel .Window 

3 Set w = Application.ActiveWindow 

4 w.DisplayRightToLeft = True ' 列 标 从 右 到 左 显 示 


5.,. End Sub 


本 一 


运行 上 述 过 程 ， 结 果 如 图 11-13 所 示 。 


工作 等 1 - Exce| 了 团 一 子 其 


癌 -| 车, 白 动 呈 行 | 插 规 朋 导 有 本 国生. 2T 页 


%， | 户 i Rt EA Me ge ME 


瑟 三 | 图 音 并 后 居中 -中 


nl I" Shest3 | Shest2 | Sheet! | , 
中 让 中 时 国志 曾 大 | 二 ” 同 四 - 和 + T1006 


图 11-13 ”工作 表 列 标 从 右 到 左 显 示 





此 外 ， 运 行 Application.ActiveWindow.DisplayHeadings =False， 可 以 隐藏 行 号 和 列 标 ， 
如 图 11-14 所 示 。 


县 知 用 的 VBA 语 名 xlsm - Exce| 
机 到 开 点 T 情 加 趟 项 
E | -一 
国医 于 





图 11-14 看 不 到 行 号 、 列 标的 工作 表 


11.2.6.7 ”窗口 的 冻结 
窗 En 需要 先 选 定 一 个 单元 格 区 域 ， 冻 结 后 会 在 该 区 域 左 上 角 出 现 横 竖 两 条 
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源 代 码 : 实例 文档 06.xlsm/ 窗口 的 冻结 


1 Sub Testl]{() 

2s Application.ActiveSheet.Range("E6") .Select "从 单元 格 E6 处 冻结 
3 Application.ActijveWindow.FreezePanes = True 

= End Sub 


代码 分 析 : 以 上 过 程 从 当前 工作 表 的 E6 单元 格 开始 冻结 ， 如 图 11-15 所 示 。 











图 11-15 冻结 窗口 


如 采 要 冻结 首 行 ， 请 先 取消 冻结 ， 然 后 把 上 述 代码 中 的 Sub Testl 中 的 Range("E6") 更 
改 为 Range("2:2")， 再 运行 一 次 这 个 过 程 。 

如 果 要 冻结 首 列 ， 请 先 取 消 冻 结 ， 然 后 把 上 述 代码 中 的 Sub Testl 中 的 Range("E6") 更 
改 为 Range("B:B， 再 运行 一 次 这 个 过 程 。 

如 果 要 取消 窗口 的 冻结 ， 运 行 Application.ActiveWindow.FreezePanes = False 即 可 。 


11.2.6.8 ”窗口 的 拆 分 

把 窗口 的 Split 属性 设置 为 Trme， 就 可 以 实现 拆 分 。 但 是 在 拆 分 之 前 ， 需 要 先 指 定 拆 分 
的 位 置 。 

源 代码 : 实例 文档 06.xlsm/ 窗口 的 拆 分 


1 Sub Testl]{() 

2 With Application.ActjveWindow 
3 -SPl1itRow = 2 

4. -SplitColumn = 3 

< .SPlit = True 
6 End With 

了 End Sub 


代码 分 析 : 上 述 代 码 中 ， 拆 分 行 设置 为 5， 拆 分 列 设置 为 3， 意 思 是 从 单元 格 C5 处 拆 
分 ， 结 果 如 图 11-16 所 示 。 
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图 11-16 “ 拆 分 窗口 


如 果 要 取消 拆 分 窗口 ， 运 行 Application.ActiveWindow.Split = False 即 可 。 


11.3 Workbook 对 象 重要 方法 


工作 敌对 象 的 重要 方法 对 应 于 Excel 文档 的 操作 。 工 作 注 是 Excel 文件 的 单位 ， 一 个 工 
作 秒 对 应 于 人 磁盘 中 的 一 个 可 读 写 的 文件 。 以 下 介绍 工作 簿 对 象 的 重要 方法 。 


11.3.1 新 建 工 作 簿 


Excel VBA 使 用 Workbooks.Add 方法 新 建 工 作 籍 。 众 所 周知 ，Excel 手工 操作 中 ， 按 下 
快捷 键 【 Ctrl+N 】 人 快速 新 建 一 个 工作 钴 。 与 该 动作 对 应 的 VBA 代码 如 下 。 
源 代 码 : 实例 文档 07.xlsm/ 新 建 工 作 簿 


1。 Sub Testl() 
二 Application.Workbooks.Add 
3. End Sub 


如 果 要 创建 一 个 基于 某 个 模板 的 新 工作 短 ， 则 需要 在 Add 方法 之 后 添加 模板 路 径 作为 
参数 。 

Excel 模板 文件 的 扩展 名 通 稼 是 .xlt、.xlts 、.xltm， 这 三 个 扩展 名 分 别 对 应 Excel 2003 模 
板 文 件 、Excel 2007 以 上 普通 模板 、Excel 2007 以 上 允许 保存 宏 的 模板 。 模 板 文件 的 创建 非 
常 简单 ， 只 要 把 一 个 经 过 编辑 加 工 后 的 工作 敌 另 存 为 模板 文件 即 可 。 

本 书 源 文 件 中 包含 一 个 Template20170624.xltx 的 现成 模板 文件 ， 接 下 来 用 VBA 来 目 动 
创建 一 个 基于 该 模板 的 新 工作 短 。 

源 代码 : 实例 文档 07.xlsm/ 新 建 工作 筹 


1. Sub Test2() 
Application.Workbooks.Add template:=ThisWorkbook.Path & ™\Template20]170624.x]ltx" 
3. End sub 


运行 Test2 后 ,会 看 到 自动 创建 了 一 个 上 默认 名 称 为 Template201706241 的 未 保存 工作 和 ， 
该 工作 短 的 结构 和 框架 与 模板 文件 完全 一 致 。 
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注意 : 如果 要 对 已 创建 的 工作 簿 进一步 操作 ， 则 需要 在 创建 工作 簿 时 把 新 建 的 工作 
簿 赋 给 一 个 对 象 变量 ， 以 便于 后 续 操 作 。 如 下 代码 创建 一 个 新 工作 短 后 ， 自 动 修改 
了 第 一 个 工作 表 的 名 称 。 


源 代 码 : 实例 文档 07.xlsm/ 新 建 工 作 简 


1 Sub Test31{) 

之 Dim Newbook As Workbook 

3. Set Newbook = Application.Workbooks.Add({() 
= Newbook.Worksheets (1) .Name = "FirstTable"™ 
5 End Sub 


工作 竹 的 其 他 操作 与 此 类 似 。 如 采 还 要 对 工作 短 有 后 续 的 操作 ， 就 要 营 握 对 象 变量 的 使 
用 技巧 。 


11.3.2 打开 工作 湾 


Workbooks.Open 方法 可 以 打开 一 个 已 存在 的 工作 短文 件 。 
源 代 码 : 实例 文档 07.xlsm/ 打开 工作 短 


1]. Sub Testl (1) 
Application.Workbooks.Open Filename:="C:\temp\a.xlsx" 
3. End Sub 


运行 以 上 代码 ， 自 动 打 开 一 个 工作 禾 。 

如 果 被 打开 的 工作 短 预 设 了 文件 打开 密码 ， 则 需要 手工 输入 密 但 后 方 可 真正 打开 。 不 
过 ，VBA 也 允许 把 密码 输入 到 代码 中 ， 作 为 Workbooks.Open 方法 的 参数 使 用 。 

源 代码 : 实例 文档 07.xlsm/ 打开 工作 往 


1]. Sub Test2() 


pa Dim wbk As Excel .Workbook 

了 Set wbk = Application.Workbooks.Open (Filename:="C: \temp\abc.xls", Password:= 
"abcdef™) 

4. MsgBox " 该 工作 筹 中 工作 表 的 个 数 : " & wbk.Worksheets.Count 


I. Enad sub 


运行 上 述 代码 ， 打 开 一 个 设 有 文件 打开 密码 的 工作 短 。 
11.3.3 ”设置 工作 湾 的 打开 密码 


Office 文档 都 可 以 设置 打开 密码 ， 如 果 不 知 道 密码 就 无 法 打开 文档 。 
以 下 过 程 为 当前 工作 竹 日 动 设置 了 打开 密码 。 
源 代码 : 实例 文档 22.xlsm/ 设置 打开 密码 


1 Sub Testl]{() 

之 。 Application.ActjveWorkbook.Password = "123426"™ 
可 Application.ActiveWorkbook.sSsave 

4 End Sub 
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运行 上 述 过 程 后 关闭 该 工作 竹 ， 并 再 次 打开 ， 弹 出 密码 输 
人 入 杠 ， 如 图 11-17 所 示 。 





11.3.4 ”保存 工作 湾 


z : : 图 11-17 工作 禾 的 密码 输 
保存 工作 短 的 代码 非 浓 徐 单 ， 使 用 Workbook 的 Save 方法 入 对 话 杠 


即 可 。 
例如 ，ActiveWorkbook.Save 是 保存 活动 工作 注 ，Application.Workbooks(2).Save 是 保存 
应 用 程序 中 的 第 二 个 工作 竹 。 


11.3.5 ”另存 工作 沪 


Workbook.SaveAs 方法 可 以 把 一 个 打开 的 工作 秒 另 存 到 另 一 个 路 径 下 ， 原 工作 秒 还 在 原 
地 。 假 设 Excel 现在 已 经 打开 了 一 个 名 为 a.xlsx 的 工作 钞 ， 之 后 执行 如 下 语句 : 


Application.Workbooks( “a.xlsx ) .SaveAs “C:\temp\b.xlsx” 


会 看 到 Ci\temp 这 个 路 径 下 ， 除 了 原来 的 a 工作 簿 外 ， 另 外 产生 了 一 个 b 工作 簿 。 


注意 : 如 果 a 工作 簿 进行 了 一 些 编辑 后 紧 接 着 执行 上 述 语句 ，a 工作 簿 自动 关闭 并 上 且 
不 保存 ，b 工作 短 则 是 保存 了 编辑 操作 后 的 工作 簿 。 换 名 话说 ， 两 个 工作 簿 内 容 并 不 
相同 。 请 读者 自行 验证 。 


另存 工作 每 时 ， 不 仅 能 够 改变 另存 的 路 径 ， 还 能 改变 另存 后 的 文件 格式 。 如 果 要 变更 大 
存 后 文件 的 格式 ， 一 定 要 兼顾 Workbook 的 SaveAs 方法 中 FileName 和 FileFormat 参数 的 一 
FileFormat 参数 由 Excel. XIFileFormat 枚 举 值 规定 。Excel 第 用 文件 格式 及 对 应 的 枚 举 
‘TR T1123 


表 11-2 Excel 文件 格式 及 Excel. XIFileFormat 枚 举 值 


文件 格式 FileFormat 
Excel97-2003 工作 簿 x xlExcel8 
Excel97-2003 加 载 宏 .xla xlAdding 
Excel97-2003 模板 文件 xlTemplate8 
Excel2007 以 上 工作 禾 xlOpenXMLWorkbook 
Excel2007 以 上 启用 宏 的 工作 笑 xlOpenXMLWorkbookMacroEnabled 
Excel2007 以 上 加 载 宏 xlAddin 
Excel2007 以 上 模板 文件 xlTemplate 


打开 “实例 文档 7.xlstm”， 并 且 打 开 NoMacro.xlsx， 然 后 运行 如 下 过 程 。 
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源 代码 : 实例 文档 07.xlsm/ 另存 工作 秒 


1]. Sub Testl (1) 

之 。 Application.Workbooks ("NoMacro.xlsx") .SaveAs Filename:="Enable.xlsm", 
FileFormat:=Excel .XlFileFormat .xlOpenxXMLWorkbookMacroEnabled 

3. End Sub 


代码 分 析 : NoMacro.xlsx 是 一 个 不 保存 宏 代 人 码 的 普通 工作 簿 ， 现 在 把 该 工作 泗 为 存 为 局 


用 宏 的 工作 秒 。 
如 果 FileName 参数 给 的 是 相对 路 径 名 称 ， 则 男 存 的 新 工作 敌 和 原 工 作 簿 位 于 同一 路 径 ， 
否则 需要 输入 完全 路 径 。 


如 采 SaveAs 方法 不 给 定 FileFormat 参数 ， 默 认 文 件 格 式 与 原文 件 格式 相同 。 否 则 需要 
使 用 内 置 枚 举 第 量 。xlOpenXMLWorkbookMacroEnabled 表示 局 用 宏 的 工作 短文 件 格式 。 
下 面 看 一 个 更 加 智能 的 书写 方式 。 
源 代码 : 实例 文档 07.xlsm/ 另存 工作 筹 


1 Sub Test2 () 

2 Dim wbhk As Excel .Workbook 

sr Set wbk = Application.Workbooks ("NoMacro.xlsx") 

+ whk.SaveAs Filename:=wbk.Path & "\SecondCopy.xlsx", FileFormat:=wbk.FileFormat 
| End Sub 


代码 分 析 : 该 过 程 使 用 对 象 变量 wbk 来 表示 原 工 作 短 ， 使 用 wbk.Path 获取 工作 短 的 路 
径 ， 使 用 wbk.FileFormat 属性 获取 原 工 作 竹 的 文件 格式 。 

再 一 次 提醒 读者 ， 工 作 短 另存 后 ， 在 Excel 中 原 工 作 狂 自动 关闭 ， 呈 现在 用 户 面 前 的 是 
男 存 后 的 新 工作 笑 。 


11.3.6 关闭 工作 湾 


Workbook.Close 方法 用 来 关闭 工作 竹 ， 如 有 果 被 关闭 的 工作 短发 生 过 改动 并 未 保存 ， 则 
执行 该 方法 后 会 弹出 是 否 保存 的 询问 对 话 框 。 为 此 ， 可 以 设 定 SaveChanges 参数 来 明确 地 告 
诉 程序 是 否 在 关闭 前 保存 。 

ActiveWorkbook.Close Savechanges:=False 
表示 把 活动 工作 禾 关 闭 ， 并 且 不 保存 修改 ; 如 果 最 后 面 的 参数 为 True， 则 表示 保存 并 关闭 工 
作 舌 。 

同时 ，Excel VBA 还 可 以 通过 Application.Workbooks.Close 关闭 了 所 有 打开 的 工作 泗 。 





11.3.7 ”激活 工作 清 


Excel 是 一 个 多 文档 界面 程序 ， 同 一 个 Excel 应 用 程序 下 ， 可 以 同时 打开 多 个 工作 竹 ， 
但 是 只 有 一 个 是 活动 工作 篷 。 
可 以 通过 Workbook.Activate 方法 让 一 个 不 是 活动 的 工作 簿 变 成 活动 工作 敌 。 
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现在 假定 Excel 打开 了 两 个 以 上 的 工作 每 ， 然 后 执行 如 下 过 程 ， 会 看 到 前 后 两 次 出 现 的 
对 话 框 结果 不 一 样 0 
源 代码 : 实例 文档 07.xlsm/ 激活 工作 篇 


1] Sub Testl 1() 
Application.Workbooks (1) .Actijvate 

3 MsgBox Application.ActiveWorkbook.Name 
4. Application.Workbooks (2) .Activate 

二 MsgBox Application.ActiveWorkbook.Name 
6 End Sub 


可 以 看 出 ， 通 过 使 用 Workbook.Activate 方法 ， 达 到 了 切换 工作 短 焦 点 的 作用 ， 更 改 了 
ActiveWorkbook 所 代表 的 工作 短 。 





11.3.8 ”保护 工作 往 


Excel 中 的 保护 案 略 包括 : 

工作 泗 打开 密码 (下 次 打开 工作 钵 前 必须 提供 密码 )。 

口 工作 憩 保护 (保护 结构 、 保 护 窗 口 )。 

口 工作 表 保 护 (是 否 允 许 编辑 被 保护 的 工作 表 )。 

本 节 所 讨论 的 保护 工作 敌 ， 是 指 通 过 选择 “ 审 
阅 ” 一 “保护 工作 筹 ” 命 令 ， 弹 出 工作 筹 保护 的 对 同和 闸 闻 23 
话 框 ， 如 图 11-18 所 示 。 于 

如 果 勾 选 “结构 ” 复 选 枉 ， 则 不 得 增删 工作 表 ; 
如 条 勾 选 “窗口 ” 复 选 枉 ， 则 工作 短 的 窗口 位 置 和 
大 小 不 能 更 改 。 以 上 两 个 复 选 框 至 少 选 其 一 ， 而 密 
码 可 以 输入 ， 也 可 以 为 空 。 

以 下 过 程 用 代码 自动 保护 工作 禾 。 

源 代码 : 实例 文档 07.xlsm/ 保护 工作 秒 


1。 Sub Testl]() 
2 。 ActiveWorkbook.Protect Password:="abcdef™", Structure:=True, Windows:=True 
3. End Sub 


代码 分 析 : Workbook 的 Protect 方法 需 提供 3 个 参数 。 代 码 中 第 2 行 既 保 护 结构 ， 也 保 
护 窗口 ， 同 时 设置 保护 密码 为 abcdef。 
而 解除 保护 只 需要 提供 密码 参数 ActiveWorkbook.Unprotect Password:="abcdef" 即 可 。 

















图 11-18 ” 设 定 工作 籍 保 护 


11.3.9 ”导出 为 PDF 文档 


Excel 2007 以 上 版 本 提供 了 导出 PDF 文档 的 内 置 功能 。 在 讲述 用 VBA 目 动 导出 PDF 
文档 之 前 ， 先 讲解 手工 导出 PDF 文档 的 步骤 。 
首先 在 Excel 2013 中 打开 源 文 件 中 的 “成 绩 表 .xlsm” ， 该 工作 短 有 3 个 记录 学 生成 缚 
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然后 在 Excel 中 选择 “文件 ”一 “导出 ”一 “创建 PDF 文档 ”一 “创建 PDF/XPS 文档 ” 
命令 ， 如 图 11-19 所 示 。 


咸 洁 到 ,xlsm - EXCB| 


创建 PDF/XPS 文档 


目 ” 保 获 布 局 ， 格 式 ， 字 体 和 图 你 

日 ”内容 不 能 既 易 更 改 

”Web 上 担 世 了 葛 志 查看 器 
| 了 


国 匡 | 加 


创建 PDF/XPS 





图 11-19 ”工作 笑 导 出 为 PDF 文档 


弹出 发 布 对 话 框 ， 首 先 在 对 话 框 中 输入 PDF 的 文档 名 称 ， 该 文件 的 路 径 默 认 和 工作 簿 
路 径 相 同 ， 用 户 可 以 更 改 ， 然 后 单 击 右 下 角 的 “选项 ”按钮 ， 如 图 11-20 所 示 。 

在 弹出 的 “选项 ”对 话 框 中 ， 特 别 要 注意 发 布 内 容 的 选择 ， 可 以 在 所 选 内 容 、 活 动工 作 
表 、 整 个 工作 注 中 选择 一 种 。 设 定 完 成 后 单 击 “ 确定 ”按钮 返回 发 布 对 话 框 ， 如 图 11-21 所 示 。 


本 | 类 布 为 PDF 或 Xps 中 Bo 
( = 山寺 源 交 售 | 工作 第 Workbook 寺 新 


贺 视频 ~ | 层 改 日 困 
器 图 片 
四 立 攻 设 有 与 尝 索 条 性 匹配 级 项 , 
晤 开本 下 瘦 

起 音乐 


j 慢 计算 机 
5 驱动 人 3) 
鼎 琵 太 [3 
电 救 径 [D:) 
a 作品 | | 匠 加 


亦 件 在 IN): E23pdf - 
圆 并 布 后 打开 立 作 人 E] 优化 : 而 极限 医 机 瞧 布 和 打印 ] 
ra 


站 最小 这 全 大小 | 联 村 二 
布 Mvi 


| 选项 (Q).. | 
mm - = 人 


辐 符 各 I50 19005-1 标 半 PCRAT) 





图 11-20 导出 PDF 对 话 框 11-21 导出 PDF 的 选项 对 话 框 

单 击 图 11-20 所 示 的 “发 布 ”按钮 后 ， 会 生成 并 自动 打开 一 个 PDF 文档 。 

下 面 讲解 如 何 使 用 代码 目 动 导出 PDF 文档 。Excel VBA 提供 了 一 个 ExportAsFixedFormat 
方法 ， 该 方法 的 主要 参数 是 Filename， 其 他 参数 与 图 11-20、 图 11-21 中 的 各 个 选项 设置 是 
一 一 对 应 的 ， 例 如 OpenAfterPublish:=True 对 应 于 手工 设 定 中 的 “发 布 后 打开 文件 ”。 

下 面 过 程 把 整个 工作 竹内 容 导 出 为 PDF 文档 。 
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源 代 码 : 实例 文档 07.xlsm/ 导出 PDF 


1 Sub Testl]{() 

之 ActiveWorkbook.ExportAsFixedFormat Type:=xl]TypePDF, Filename:= 

S "C:\temp\ 成 绩 表 .pdf", Quality:= 加 

和 4 xlQualityStandard, IncludeDocProperties:=True, TgnorePrintAreas:=False, 
2 OpenAftterPublish:=True 

6 End Sub 


特别 注意 的 是 ，ExportAsFixedFormat 方法 既 可 以 用 于 Workbook 对 象 ， 还 可 以 用 于 
Worksheet 或 Range 对 象 。 

例如 ，Worksheets(2). ExportAsFixedFormat ……- 表示 把 第 二 个 工作 表 导 出 为 PDF 文档 ; 
Application.ActiveSheet.ExportAsFixedFormat …… 表 示 把 活动 工作 表 导 出 为 PDF 文档 ; Ap- 
plication.Selection.ExportAsFixedFormat ……… 表示 把 鼠标 所 选单 元 格 区 域 导出 为 PDF 文档 。 

还 以 成 绩 表 为 例 ， 以 下 Test2 过 程 把 成 绩 表 中 第 2 个 工作 表 的 部 分 区 域 导 出 为 PDF 
文档 。 

源 代码 : 实例 文档 07.xlsm/ 导出 PDF 


1。 Sub Test2() 
Application.Workbooks (" 成绩 表 .xlsm") .Worksheets(2) .Range ("A7:H11"). 
ExportAsFixedFormat Type:=xlTypePDF, Filename:= 

3 "C:\temp\ 部 分 -pdf™";, Quality:= 

和 4 xlQualityStandard, IncludeDocProperties:=True, TgnorePrintAreas:=False, 

i OpenAfterPublish:=True 

6 End Sub 


发 布 后 的 PDF 文档 如 图 11-22 所 示 。 


全 | 部 分 .pdf - adobe Acrobat pro 本 人 人 和 As “= 
芯 忻 (中 ” 编 惫 [EE) 视图 V) 文档 (D) 注 笠 (C) 表 半 (R) 工具 (TM) 高 级 (A) 窜 口 (W) 帮助 (H) 


Br EM AP. 国 者 单 ~ 国 # 尝 朱 ”人 入 尾 
ee EE EE 





希望 读者 重点 分 析 上 述 Test2 过 程 。 

拓展 训练 : 如 采 Excel 打开 了 多 个 工作 每 文件， 每 个 工作 短 有 多 个 工作 表 ， 每 一 个 工作 
表 需 要 导出 为 单独 的 PDF 文档 ， 可 以 用 双 层 For Each 循环 实现 批量 生成 PDF。 

源 代码 : 实例 文档 07.xlsm/ 导出 PDF 


1 Sub Test3 1() 

A Dim wbk As Workbook, wst As Worksheet 
3 For Each wbk In Application.Workbooks 
4 For Each wst In wbk.Worksheets 
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WSt .ExportAsFixedFormat Type:=Xl]TypePDF, Filename:~=wbk.Name & 
wst.Name & ".pdf" 

60. Next wst 

1. Next wbk 


8. End Sub 


上 述 代 码 中 导出 的 文件 名 中 利用 wbk.Name 以 及 wstName， 是 为 了 防止 文件 名 冲突 ， 
读者 可 以 在 此 基础 进一步 修改 完善 。 


11.4 ” Workbook 对 象 党 用 事件 


在 Excel VBA 中 ， 对 于 每 一 个 打开 的 工作 竹 ， 它 的 VBA 工程 中 都 有 一 个 ThisWorkbook 
的 文档 事件 模块 ;同时 ， 当 工作 钵 中 的 工作 表 发 生 增 删 行为 时 ， 会 看 到 VBA 工程 中 工作 表 
事件 模块 也 随 之 增删 。 

本 广 探 讨 的 Workbook 事件 ， 是 指 书写 在 ThisWorkbook 模块 中 的 代码 。 

打开 源 文件 中 的 “实例 文档 08.xlsm”， 在 VBA 中 双击 ThisWorkbook 模块 ， 右 侧 出 现 
代码 区 域 ， 在 代码 区 域 中 单 击 上 方 的 下 拉 往 头 ， 出 现 的 Workbook 就 是 事件 对 象 。 而 右 侧 下 
拉 列 表 框 中 的 内 容 ， 则 是 事件 名 称 。 任 选 一 个 事件 名 称 ， 会 日 动产 生 该 事件 的 代码 模板 ， 如 
图 11-23 所 示 。 





ee] Microsoft Visual Basic for Applications - 实例 误 档 08sxlsm - [Thisihorkbook (EO) Ps 

豆 件 是 旷 辐 在 | 视图 0 柱 入 中 禄 世人 调 汪 是 ) 运行 此 工具 上 外 授 和 太 全 ) 殖 DAAMI 帮助 [H) 

: 国 乌 "加 | 卡 汪 了 哆 并 | 四 bln 由 | 丢 国 闪 器 | 仿 行 3, 列 24 

: 亚 量 的 合用- 字符 与 字符 案外 悍 - 泪 纯 运 角 -数据 具 型 ” 枉 用 欧 组 -” 笃 件 攻 择 - 毛 环 控制 这 得 与 图 数 ” 峙 这 外 涅 ” 讲 阶 按 相 ~" Bpplcation 荣 - Workbook 对 各 -Workshectii 染 - Range 寻 过 = 
工程 - WEAProjert | 

台 | 自 

日 - 嫩 YHAPrsjset [ 详 例 广 挡 08. xl=m7 

也 ， J Private Sub Workbook_ Open') 
丫 ] She=t2 Gheet2) 车 忻 这 程 作 码 EE 所 有 可 用 的 事件 省 剂 
-图 ai et 个 leet) End Sub Deor esure 
| Thichorlbes 此 事 付 模具 


属性 - ThisWwuarkbeaok 


Thi siior khaenk 站 crbocok 





Cheal ompatibility Felce 





图 11-23 ”ThisWorkbook 事件 代 但 模板 
Workbook 对 象 弟 用 的 事件 如 表 11-3 所 示 。 


表 11-3 Workbook 对 象 常 用 事件 声明 及 功能 描述 
事件 声明 功能 接 述 
Workbook Activate() 工作 短 成 为 活动 工作 沽 时 发 生 
工作 筹 成 为 非 活动 工作 德 时 发 生 ， 也 就 是 其 他 工作 夭 被 激 


Workbook Deactivate() 活 ， 本 工作 秒 失 去 焦点 
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事件 声明 


Workbook BeforeSave(ByVal SaveAsUI As Boolean., 


Cancel As Boolean) 


Workbook AfterSave(ByVal Success As Boolean) 


Workbook BeforeClose(Cancel As Boolean) 


Workbook Open() 
Workbook BeforePrint(Cancel As Boolean) 
Workbook NewSheet(ByVal Sh As Object) 


Workbook SheetActivate(ByVal Sh As Object) 
Workbook SheetBeforeDelete(ByVal Sh As Object) 


Workbook SheetBeforeDoubleClick(ByVal Sh As 
Object, ByVal Target As Range, Cancel As Boolean) 


Workbook SheetBeforeRightClick(ByVal Sh As 
Object, ByVal Target As Range. Cancel As Boolean) 
Workbook SheetCalculate(ByVal Sh As Object) 
Workbook SheetChange(ByVal Sh As Object ByVal 
Target As Range) 

Workbook SheetDeactivate(ByVal Sh As Object) 
Workbook SheetSelectionChange(ByVal Sh As 
Object, ByVal Target As Range) 


功能 摘 述 
保存 时 发 生 。 和 参数 SaveAsUI 用 来 识别 是 保存 还 是 另存 为 ， 
如 果 是 另存 为 SaveAsUI 返 回 True ;参数 Cancel 默 认为 


False， 如 果 在 代码 中 设置 为 True， 则 不 保存 工作 短 


保存 后 发 生 。 如 果 保 存 成 功 ， 则 参数 Success 返回 True， 
否则 退回 False 

工作 短 关 闭 前 发 生 。 如 果 参 数 Cancel 设置 为 Tue， 则 不 能 
关闭 工作 短 

工作 夭 打 开 时 发 生 

工作 簿 打印 前 发 生 。 如 果 和 参数 Cancel 设置 为 Hue， 则 不 打印 
插入 新 工作 表 时 发 生 。 参 数 sh 就 是 插 人 的 新 工作 表 对 象 
任 一 工作 表 成 为 活动 工作 表 时 发 生 。Sh 表示 成 为 活动 工作 
表 的 那个 工作 表 

工作 表 删 除 前 发 生 。Sh 表示 即将 被 删除 的 工作 表 

鼠标 双击 工作 表 时 发 生 。Sh 表示 双击 的 工作 表 ; Target 表 
示 上 鼠标 双击 的 单元 格 区 域 ; Cancel 如 果 设 置 为 True， 表 示 
双击 单元 格 后 不 能 进入 编辑 状态 

鼠标 右 击 工作 表 时 发 生 。Cancel 设置 为 True 时 ， 右 击 工 作 
表 不 弹出 内 置 莱 单 

某 个 工作 表 进 行 了 计算 后 ,该 事件 发 生 

工作 表 内 容 发 生 改变 时 ， 该 事件 发 生 。 参 数 Target 表示 被 
修改 的 区 域 

工作 表 成 为 非 活 动工 作 表 时 发 生 

工作 表 中 所 选区 域 变 化 时 ， 该 事件 发 生 。 也 就 是 当 鼠 标 重 
新 选择 男 一 个 区 域 时 发 生 


注意 ，Excel 的 Application 对 象 事 件 、Workbook 对 和 象 事件 以 及 今后 要 讲述 的 Work- 
sheet 事件 都 是 以 Application.EnableEvents=True 为 前 提 的 。 如 果 该 属性 设置 为 False， 


则 禁用 所 有 事件 过 程 。 


为 世 省 篇 幅 ， 下 面 重 点 介绍 使 用 频率 较 高 的 Workbook 事件 的 应 用 。 


11.4.1 ”工作 簿 打开 和 关闭 前 事件 


在 Excel 工作 禾 的 ThisWorkbook 事件 模块 中 书写 如 下 两 个 事件 过 程 。 


源 代码 : 实例 文档 08.xlsm/ThisWorkbook 


End Sub 


1 
pd 
本 
4 。 
3 Private Sub Workbook Open() 
日 

1 


End Sub 


Private Sub Workbook BeforeClose (Cancel As Boolean) 


MsgBox "工作 簿 即将 要 关闭 ! " & Now 


MsgBox " 您 打开 本 工作 簿 的 时 刻 是 : " & Now 
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写 完 代码 后 保存 工作 竹 ， 然 后 天 财 工 作 竹 ， 目 动弹 出 如 图 11-24 所 示 的 对 话 框 。 
再 次 打开 工作 注 ， 打 开 前 会 看 到 出 现 如 图 11-25 所 示 的 对 话 框 。 





图 11-24 运行 结果 4 图 11-25 ”运行 结果 5 


当然 ， 读 者 可 以 根据 需要 ， 蝎 改 本 范例 中 的 Msgbox 所 在 行 的 代码 ， 实 现 更 复杂 的 


11.4.2 ”文档 事件 过 程 中 Cancel 参数 的 作用 


还 是 以 Workbook BeforeClose 事件 为 例 ， 如 采 把 文档 关闭 事件 代码 修改 如 下 : 


1 Private Sub Workbook BeforeClose(Cancel As Boolean) 
pa Cancel = True 

3 MsgBox " 工作 簿 即将 要 关闭 ! " & Now 

4 End Sub 


在 Excel 中 按 下 快捷 键 【 Ctri+W ]】 关闭 工作 短 时 ， 虽 然 出 现 了 “工作 短 即 将 要 关闭 ”的 对 话 
框 ， 但 随后 发 现 该 工作 簿 根本 关闭 不 了 ， 仍 然 打 开 着 。 这 是 由 于 在 事件 过 程 中 Cancel 设置 
为 True 造成 的 。 

可 以 看 出 ， 在 事件 过 程 中 设置 某 些 参数 值 ， 可 以 实现 一 些 神奇 的 效果 。 源 文件 中 有 一 个 
Don’tSave.xlsm 工作 簿 ， 打 开 该 工作 注 ， 然 后 输入 或 编辑 数据 ， 保 和 存 并 关闭 后 再 次 打开 该 工 
作 短 发 现 并 没有 把 编辑 后 的 数据 存 和 人 文件 。 这 个 特殊 的 功效 就 是 利用 事件 制 成 的 ， 请 读者 
目 行 前 析 其 工作 原理 。 


11.4.3 ”工作 表 激 活 事件 


Workbook SheetActivate 事件 表示 该 工作 入 中 的 任 一 工作 表 成 为 活动 工作 表 ， 都 会 引发 
该 事件 。 

打开 源 文件 中 的 “实例 文档 08.xlsm”， 当 用 鼠标 单 击 工作 表 标 签 并 切换 工作 表 时 ， 会 看 
到 Excel 的 状态 栏 文字 同步 改变 ( 见 图 11-26)， 原 因 是 在 ThisWorkbook 模块 中 写 人 了 如 下 
事件 过 程 。 

源 代 码 : 实例 文档 08.xlsm/ThisWorkbook 


1l. Private Sub Workbook SheetActivate (ByVal Sh As OQbject) 
pa Application.StatusBar = "活动 工作 表 的 名 称 是 : " & Sh.Name 
3. End Sub 


为 每 当 东 工作 表 被 激活 时 ， 事 件 过 程 的 返回 参数 Sh 就 立刻 代表 被 激活 的 那个 工作 
表 -。 因此 ，Workbook 的 其 他 与 工作 表 有 关 的 事件 中 Sh 参数 都 代 表 锌 操作 的 工作 表 对 象 。 
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HO - 实例 六 fs08.xlsm - Excel ? 而 -一 口 Xx 
开始 ”插入 天 i 布 语 公式 者 岳 下 间 ”视图 开发 TJ 具 加 开 页 非常 于 只 登录 用 
MA 回 居 性 本 映射 尾 性 上 铺 导 入 
Sl : 冯 。 困 间 看 代 梧 导 挡 扩 展 包罗 导出 EE 


加 过 项 COM 加 载 项 ” 插入 设计 模式 源 | 误导 古板 
固执 行 对 话 框 陪 1 刷新 数据 


加 载 项 控件 XPAL 


4 Sheet1 Sheet2 | Sheet3 | @® 


活动 作 表 的 名 种 星 : Sheet2 





11.4.4 ”工作 表 右 击 事 件 


Workbook SheetBeforeRightClick 事件 是 指 用 鼠标 在 工作 表 的 单元 格 区 域 上 右 击 时 激发 
的 事件 。 
源 代码 : 实例 文档 08.xlsm/ThisWorkbook 


1. Private Sub Workbook SheetBeforeRightClick{ByVal Sh As Object, ByVal Target As 
Range, Cancel As Boolean) 
Cancel = True 
MsgqBox ™ 你 单 击 了 " & Sh.Name & vbhNewLine & Target.Address 
Application.CommandBars("Ply") .ShowPopup 
- End Sub 


打开 “实例 文档 08.xlsm”， 用 鼠标 在 任 一 工作 表 的 任何 一 个 单元 格 区 域 右 击 ， 一 开始 弹 
出 一 个 对 话 框 ， 提 示 被 单 击 了 的 工作 表 和 名 称 以 及 单元 格 区 域 地 址 ， 如 图 11-27 所 示 ， 然 后 在 
单元 格 附近 弹出 工作 表 标 签 的 ， 而 不 是 内 置 的 单元 格 右键 菜单 ， 如 图 11-28 所 示 。 
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图 11-28 单元 格 区 域 弹出 其 他 右键 菜单 


这 是 由 于 参数 Cancel 设 置 为 Tne， 内置 的 右键 菜单 就 不 会 出 现 。Application. 
CommandBars("Ply").ShowPopup 这 名 代码， 表示 在 鼠标 附近 弹出 Ply 这 个 右键 菜单 。Ply 是 
Excel 内 置 工具 栏 的 名 称 ， 代 表 的 就 是 工作 表 标 签 右 键 洒 单 。 


11.4.5 ”工作 表 修 改 事 件 


Workbook SheetChange 事件 当 工作 竹中 任 一 工作 表 的 任意 单元 格 内 容 发 生 改 变 时 引发 ， 
例如 ， 往 单元 格 中 输入 公式 、 删 除 或 修改 单元 格 中 的 内 容 都 会 引发 。 除 了 手工 修改 单元 格 以 
外 , 用 VBA 代码 修改 单元 格 的 操作 也 会 激活 该 事件 。 

需要 注意 的 是 ， 单 元 格 区 域 格式 发 生变 化 时 不 引发 。 

源 代 码 : 实例 文档 08.xlsm/ThisWorkbook 


1l. Private Sub Workbook SheetcCchange {ByVal Sh As Object, ByVal Target As Range) 
全。 MsgBox Target.Address & "发 生 修 改 ! " 
3. End sub 


打开 “实例 文档 08.xlsm”， 在 任意 单元 格 中 输入 内 容 或 修改 内 容 ， 都 会 弹出 对 话 框 提示 
被 修改 的 区 域 ， 如 图 11-29 所 示 。 
特别 要 注意 事件 中 参数 Sh 与 Target 的 含义 ， 它 们 分 别 指 代 工 作 表 对 象 和 单元 格 对 象 。 





























11-29 ”运行 结果 8 
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11.4.6 ”工作 表 选 中 区 域 变更 事件 


Workbook SheetSelectionChange 事件 是 在 工作 表 的 单元 格 区 域 被 选择 时 发 生 的 。 特 别 
注意 该 事件 要 与 11.4.5 市 介绍 的 Workbook_SheetChange 事件 区 别 开 来 ， 本 厄 介 绍 的 事件 只 
要 所 选区 域 地 址 发 生 改 变 就 激活 ， 而 不 是 由 修改 内 容 激 活 。 

打开 “实例 文档 08.xlsm”， 用 鼠标 在 Sheet2 或 Sheet3 中 选择 任意 区 域 ， 会 看 到 该 区 域 
填充 颜色 变 绿 。 

源 代码 : 实例 文档 08.xlsm/ThisWorkbook 


1l. Private Sub Workbook SheetSelectionChange (ByVal Sh As Object, ByVal Target 


As Range) 
之 I Sh.Index >= 2 Then 
5 Target.Interior.Color = vbGreen 
4 End If 
要 End Sub 


代码 中 Sh.Index 属性 指 的 是 工作 表 的 序号 ， 由 于 加 入 了 开 语 句 的 限定 ， 因 此 鼠标 在 
Sheetl 中 选择 区 域 后 ,填充 色 并 不 发 生 改变 。 


习题 


1. 在 Excel 中 手工 打开 多 个 工作 短文 件 后 ,使 用 代 人 码 吉 历 每 个 工作 德 的 完全 路 径 、 每 
个 工作 短 包 含 的 工作 表 个 数 ， 将 忆 历 结 采 打印 于 立即 窗口 中 。 

2. 打开 一 个 电脑 中 已 有 的 工作 血 ， 使 用 VBA 代码 把 这 个 工作 德 的 所 有 工作 表 的 网 格 
线 隐 藏 挥 。 

3. 利用 Workbook SheetActivate 事件 ， 实 现在 工作 短 中 手工 切换 工作 表 时 ， 能 够 日 动 
选中 每 个 工作 表 的 B2 单元 格 。 例 如 ， 用 鼠标 切换 到 Sheet2 ， 就 看 到 该 工作 表 的 B2 单元 格 


第 12 章 


工作 表 Worksheet 对 象 






一 个 Excel 工作 泗 文 件 通 稼 由 一 个 以 上 工作 表 组 成 。 当 新 建 一 个 空 日 工作 沽 时 ， 默 认 有 
Sheetl 、Sheet2 、Sheet3 三 个 普通 工作 表 (Worksheet)。 蒜 到 | 
根据 需要 ， 用 户 可 以 右 击 工 作 表 标签 ， 在 弹出 的 快 “| 请 一 下 一 生硬- 曾 呈 ” 

捷 菜 单 中 选择 “插入 ”命令 ， 会 弹出 如 图 12-1 所 示 站 

的 对 话 框 。 

对 话 框 中 除了 可 以 插入 普通 工作 表 外 ， 还 可 以 
插入 Excel 图 表 、 宏 表 、 对 话 框 等 。 这 些 不 同类 型 
的 表 中 ， 只 有 普通 工作 表 和 宏 表 有 具有 可 以 编辑 的 单 图 12-1 插入 新 表 对 话 框 
元 格 ， 其 他 类 型 则 没有 。 

源 文 件 “ 实 例文 档 09.xlsm” 工 作 短 中 ， 除 了 默认 的 三 个 普通 工作 表 外 ， 还 插入 了 3 个 
其 他 类 型 的 特殊 表 ， 如 图 12-2 所 示 。 























sheet1 | 宏 1 | 对 话 杠 | | Chart1 | Sheetz | Sheet3 加 


图 12-2 不 同类 型 的 表 
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从 工作 秒 的 VBA 工程 的 资源 管理 器 中 可 以 看 到 ， 只 有 普通 工作 表 和 图 表 这 两 种 类 型 的 
表 具 有 事件 模块 ， 如 图 12-3 所 示 。 


Microsoft Visual Basic for Applications - 实例 文 千 09xlsm | 
底 性 旧 所 结 电视 同 的 插头 丰 格式 加 调试 节 放行 且 ” 工 具足” 外援 程 所 帅 ” 狠 口 [W 秀吉 册 ) 
国 师 :- 园 | 其 弹 醒 上 哟 | 二 和 | am 姨 | 吕 畦 尝 关 | 和 | 

加 | 


: -- Th shorktbw cts 
-人 出 去 1 Chart11 





图 12-3 表 的 事件 模块 
工作 簿 ( Workbook) 对 象 下 有 两 个 重要 的 集合 对 象 来 表示 表 ， 分 别 是 Sheets 和 Work- 


sheets 。 

Sheets 对 象 表示 工作 竹中 的 所 有 表 。 对 于 每 一 个 表 的 表示 ， 既 可 以 用 名 称 方式 ， 也 可 以 
用 索引 形式 。 

源 代 码 : 实例 文档 09.xlsm/Sheets 对 象 


1 Sub Testl]() 

pa Debug.Print ThisWorkbook.Ssheets (2) .Name 

Se ThisWorkbook.Sheets ("Chartl") .Activate 

4. ThisWorkbook.Sheets.Item("Sheet2") .Name = "Second™ 


5. End Sub 

以 上 第 2 ~ 4 行 代码 的 作用 分 别 是 ， 在 立即 窗口 打印 本 工作 簿 第 2 个 工作 表 的 名 称 ， 
返回 “ 宏 1”; 激活 图 表 Chartl ; 把 名 称 为 Sheet2 的 普通 工作 表 重 命名 为 Second。 其 中 ， 
Sheets.Item( “Sheet2”) 可 以 简写 为 Sheets(“Sheet2”)。 

Sheets.Count 返回 所 有 表 的 总 数 。 


12.1 工作 表 储 合 Worksheets 对 象 


Worksheets 对 象 只 能 表示 所 有 普通 工作 表 (Worksheet) 构成 的 集合 。 还 是 以 “实例 文档 
09 .xlsm ”为 例 来 说 明 Sheets 与 Worksheets 的 区 别 。 
源 代 码 : 实例 文档 09.xlsm/Worksheets 对 象 


1 Sub Testl{() 

之 。 Dim wst As Excel .Worksheet 

3 Set wst = ThisWorkbook.Worksheets ("Sheetl1™") 

4. MsgBox wst.Type 

二 Set wst = ThisWorkbook.Worksheets("™" 宏 1") 

6 MsgBox Wst .TYPe 

i End Sub 下 标 挡 黑 


运行 上 述 代码 ， 会 发 现 第 5 行 代码 出 错 ， 这 是 因为 这 
个 工作 德 中 并 没有 叫 作 “ 宏 1” 的 普通 工作 表 ， 如 图 12-4 [半生 el 3] 吕 e 
所 示 。 
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也 就 是 说 ， 如 宁 一 个 表 不 是 普通 工作 表 ， 那 么 它 不 隶属 于 Worksheets 集合 ; 换言之 ， 
对 于 任何 一 个 工作 短 ，Sheets 对 象 比 Worksheets 涵盖 了 更 多 类 型 的 表 。 


12.1.1 表 的 遍历 


可 以 利用 VBA 遍历 工作 竹中 的 表 。 如 果 要 遍历 所 有 表 ， 那 么 必须 在 Sheets 集合 中 遍 
历 ; 如 果 只 遍历 普通 工作 表 ， 则 在 Worksheets 集合 中 遍历 ， 裔 历 到 的 每 一 个 工作 表 的 类 型 是 
Worksheet，Worksheets.Count 表示 普通 工作 表 的 总 数 。 

源 代 码 : 实例 文档 09.xlsm/ 表 的 遍历 


1 Sub Testl]{() 

2 On Error Resume Next 

3 Dim 七 As Object 

= Debug .Print "条 书 "，" 类 惠 "， " 索引 " 

ys For Each tt In ThisWorkbook.sheets 

6 Debug.Print t.Name, tt.Type, t.Index 

1 Next 七 

8 MsgBox ThisWorkbook.Sheets.Count & Vbtab & ThisWorkbook.WorkSheets.Count 
9 End Sub 


代码 分 析 : 上 述 过 程 遍历 宏 所 在 的 工作 簿 的 所 有 表 ， 在 立即 窗口 打印 每 个 表 的 名 称 、 类 
型 和 索引 值 。 由 于 该 工作 短 包 含有 多 种 类型 的 表 ， 因 此 如 采 把 第 3 行 换 成 Dim t As Worksheet， 
再 运行 会 出 错 。 家 

以 上 过 程 的 运行 结果 如 图 12-5 所 示 。 

可 以 看 出 普通 工作 表 的 “类 型 ” 值 为 -4167， 因 此 ， 
可 以 根据 表 的 Type 属性 来 判断 一 个 表 是 否 是 普通 工作 表 。 
Excel 各 种 类 型 的 表 的 类 型 枚 举 值 如 表 12-1 所 示 。 





表 12-1 Excel 各 种 类 型 的 表 的 类 型 枚 举 值 


ET EET 
xlDialogSheet 对 话 框 
xlExcel4IntlMacroSheet 宏 表 
xlExcel4MacroSheet 安吉 


在 实际 编程 应 用 中 ， 经 常 要 裔 历 所 有 的 普通 工作 表 。 
源 代码 : 实例 文档 09.xlsm/ 表 的 遍历 


1 Sub Test2{() 

2 Dim wst As Worksheet 

了。 For Each wst In ThisWorkbook.Worksheets 
4 Debug.Print wst.Index, Wst.Name 

2 Next wast 

6 End Sub 
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以 上 代码 在 立即 窗口 打印 工作 短 中 所 有 普通 工作 表 的 索引 值 
和 名 称 ， 运 行 结果 如 图 12-6 所 示 。 工 作 表 的 索引 值 是 指 该 工作 表 在 es 
工作 表 标 签 中 的 位 置 ， 最 左边 的 表 的 索引 是 1。 

由 于 Excel 是 一 个 多 文档 界面 程序 ， 在 一 个 Excel 应 用 程序 中 
可 以 同时 打开 多 个 工作 短 ， 因 此 ， 很 多 情况 下 需要 通 有 历 所 有 工作 竹中 的 所 有 工作 表 。 

打开 “实例 文档 09.xlsm” 后 ， 再 打开 一 个 其 他 的 工作 短 ， 然 后 运行 如 下 代码 。 

源 代 码 : 实例 文档 09.xlsm/ 表 的 遍历 


Sheetl 





图 12-6 运行 结果 3 


1 Sub Test31{) 
2. Dim wbk As Workbook 
了 Dim wst As Worksheet 
4. For Each wbk In Application.Workbooks 
| Debug.Print wbhk.Name & " 中 的 表 有 : " 
6 For Each wst In wbk.Worksheets 
i Debug.Print wst.Index, wst.Name 
| Next wst 
9. Next wbk 
10. End Sub a 
ee 0 ssm 中 的 表 有 ; 
它 它 证 
遍历 结果 如 图 12-7 所 示 。 ee 
RE = | 0 有 成 续 表 .xlsn 中 的 说， 
以 上 程序 利用 了 二 重 循环 ， 外 层 循 环 遍 历 每 一 个 工作 短 ， 内 层 1 点 本 161 
下 I 一 = 1 pe J" 信安 161 
循环 遍历 每 一 个 工作 表 。 在 Excel VBA 编程 应 用 中 经 第 用 到 上 述 遍 | 








历 策略 。 
12.1.2” 表 的 增加 


Excel VBA 使 用 Sheets.Add 或 者 Worksheets.Add 方法 为 工作 泗 增 加 表 ，Add 方 法 的 参 
数 有 以 下 4 个 。 

D Type: 规定 新 增 表 的 类 型 。 

D Before: 新 增 表 位 于 哪 一 个 表 之 前 。 

D After: 新 增 表 位 于 哪 一 个 表 之 后 。 

D Count: 新 增 表 的 个 数 。 

运行 以 下 代码 ， 可 以 一 次 性 增加 2 个 图 表 工 作 表 。 

源 代码 : 实例 文档 10.xlsm/ 新 增 表 


1. Sub Testl() 
pa ThisWorkbook.SsSheets.Add Type:=xlChart, Count:=2 
3. End Sub 


由 于 代码 中 没有 规定 Before 或 After 参数 值 ， 所 以 默认 新 增 的 表 位 于 活动 工作 表 之 前 。 
运行 以 下 代码 ， 可 以 一 次 性 在 Sheet3 工作 表 之 后 增加 5 个 普通 工作 表 。 
源 代码 : 实例 文档 10.xlsm/ 新 增 表 


11. Sub Test2 () 

有 ThisWorkbook.sheets.Add Type:=xlWorksheet, Count:=9, After:=ThisWorkbook. 
Worksheets ("Sheet3") 

3. End sub 
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注意 : 如 果 在 批量 增加 表 的 同时 立刻 对 新 增 表 进行 重 命名 ， 则 需要 把 Count 设置 为 
1， 循 环 增加 表 ， 每 增加 一 个 ， 立 即 重 命名 。 


源 代 码 : 实例 文档 10.xlsm/ 新 增 表 


] Sub Test3() 

2 Dim wst As Worksheet 

人 Dim Vv As Variant 

二 For Each YY In Arrayl("Jan", "Feb", "Mar™, "April", "May") 

3 Set wast = ThisWorkbook.Worksheets.Add (Type:=xlWorksheet, after:= 
ThisWorkbook.Ssheets.Item(ThisWorkbook.Ssheets.Count)) 

6. WSt.Name = CStr (Vv) 

证 二 Next Y 

8. End Sub 


以 上 代码 中 ， 新 增 表 的 操作 位 于 一 个 循环 体内 ， 每 循环 一 次 ， 变 量 v 就 取得 数组 中 的 
个 元 素 赋 给 工作 表 作为 新 名 称 。 

同时 还 要 留意 新 增 表 操作 中 的 After 参数 ，3 引 用 的 是 工作 竹中 最 后 一 个 工作 表 ， 从 而 实 
现 新 增 的 表 总 是 位 于 最 后 位 置 。 一 次 性 增加 5 个 表 后 ， 结 果 如 图 12-8 所 示 。 





Sheet1 | cheet2 | Sheet3 : Fab | Mar | April | May en 


图 12-8 运行 结 末 5 





12.1.3” 表 的 删除 


使 用 Worksheet Delete 可 以 删除 一 个 表 。 
源 代码 : 实例 文档 10.xlsm/ 删除 表 


1 Sub Test 1() 

之 Dim 七 As Object 

3 Dim wst As Worksheet 

4. Set 七 = ThisWorkbook.Sheets (2) 

号 Set wst = Th1sWorkpocoK .WorTKSheets (1 二) 
6 七 .Delete 

1 WSt .Delete 

8 End Sub 


上 述 代码 中 ， 对 象 变量 {表示 工作 簿 中 第 二 个 表 ，wst 表示 第 一 个 工作 表 ， 最 后 两 行 必 
代码 删除 这 两 个 表 。 运 行 代 码 后 ， 出 现 如 图 12-9 所 示 的 对 话 框 。 
Microsoft Excel [i 








: 全 无 法 氢 江 删除 工作 表 , 并 且 可 能 删除 一 些 数据 。 如 果 和 您 不 于 要 它 ， 请 单 主 删除”, 


| mw | [| ms | 


图 12-9 ”确认 删除 对 话 框 
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每 删除 一 个 表 ， 总 会 弹出 这 个 对 话 框 ， 必 须 手工 单 击 “删除 ”按钮 才 可 以 真正 删除 。 为 
丁 屏蔽 这 个 对 话 杠 ， 可 以 事先 设置 Application.DisplayAlerts 属性 为 False， 再 次 执行 上 述 代 
公 ， 就 不 再 弹出 对 话 框 了 。 

特别 要 注意 的 是 ，Excel 允许 删除 所 有 的 普通 工作 表 ， 但 是 不 允许 删除 所 有 的 表 。 换 名 
话说 ， 一 个 工作 禾 至 少 要 有 一 个 可 见 表 ， 哪 怕 这 个 表 不 是 普通 工作 表 。 

因此 ， 一 般 情 况 下 执行 如 下 代码 会 出 错 。 

1。 Sub Test2() 

pa Dim wst As Worksheet 

二 For Each wst In ActiveWorkbook.Worksheets 
4. wst .Delete 
= 
6. 


Next WSst 
End Sub 


接 下 来 讲述 批量 删除 表 的 技巧 。 打 开源 文件 “实例 文档 11.xlsm”， 该 工作 竹 包 仿 a、b、c、 
d、e 共 5 个 普通 工作 表 。 假设 要 批量 删除 工作 表 a 以 外 的 所 有 表 ， 也 就 是 删除 a 之 后 的 4 个 
表 。 不 难 写 出 如 下 代码 。 

源 代码 : 实例 文档 11.xlsm/ 批量 删除 表 


1]. sub Testl() 

A Application.DisplayAlerts = False 

; Dim 1 As Integer 

4. For 1 = 2 To 3 

y's ThisWorkbook.Worksheets (1) .Delete 
6. Next 1 

1. End sub 


执行 该 过 程 后 ， 奇 怪 的 现象 出 现 了 ， 会 看 到 只 删除 了 b 和 4d 工作 表 ， 其 余 3 个 工作 表 还 
在 ， 而 且 还 弹出 “下 标 越 界 ” 的 错误 ， 如 图 12-10 所 示 。 


hcrosoft Wisual Bastic 


运行 时 销 误 9: 
下 标 趟 异 


继续 个 | | 结束 多 | 帮助 cm | 





图 12-10 ”运行 结果 6 
这 是 因为 在 循环 变量 二 2 的 时 候 ， 首 先 把 b 表 删 除 反 了 ， 由 于 bb 表 的 删除 ， 各 个 表 的 索 
引 立 刻 重 建 ， 本 来 c 表 的 索引 是 3， 但 由 于 b 表 的 删除 ，c、d、e 的 索引 更 新 为 2、3、4, i 
目 加 后 册 次 删除 ， 目 然 是 把 4 表 删 除 ， 这 时 候 工 作 短 其 实 只 剩 下 3 个 表 。 后 来 i 日 加 为 4， 
再 删除 当然 就 会 下 标 越界 。 
因此 为 了 顺利 实现 该 目的 ， 可 以 修改 代码 如 下 。 
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源 代码 : 实例 文档 11.xlsm/ 批量 删除 表 


1 Sub Test2{) 

过 Application.DisplayAlerts = False 
Dim 1 As Integer 
4. FoOr 1 = 2 To 3 
3 ThisWorkbook.Worksheets (2) .Delete 
6 Next 1 
| End Sub 


注意 ， 代 码 的 改动 非常 小 ， 只 是 把 第 5 行 插 号 内 的 i 修改 为 2 即 可 。 运 行 Test2 后 ， 顺 
利 删除 a 之 后 的 4 个 表 。 实 现 原理 是 . 每 次 都 是 删除 索引 为 2 的 表 ， 每 删除 一 次 ， 后 面 的 每 
个 表 索 引 会 目 动 减少 1。 

另外 ， 还 可 以 抛 开 索 引 不 管 ， 利 用 For Each 循环 批量 删除 表 ， 再 配合 下 条 件 判 断 ， 把 a 
表 剩 下 即 可 。 

源 代码 : 实例 文档 11.xlsm/ 批量 删除 表 


1 Sub Test31{) 

2 Dim wst As Worksheet 

3 Application.DisplayAlerts = False 

一 For Each wst In ThisWorkbook.Worksheets 
2 If wst.Name <> "a”" Then 

6 wat .Delete 
1 End If 

8 Next wst 
9 End Sub 


运行 该 过 程 后 ， 结 采 与 Test2 相同 。 


12.2 Worksheet 对 象 常 用 属性 


Worksheet 对 象 的 父 级 对 象 是 Workbook ， 子 对 象 和 成 员 非 常 多 ， 以 下 介绍 笛 用 的 成 员 和 
Index 属性 用 来 获取 一 个 表 在 Sheets 集合 中 的 索引 (从 左 到 右 的 位 置 )， Type 属性 返回 
一 个 表 的 类 型 ， 在 前 面 已 讲 过 ， 这 里 不 再 重复 。 


12.2.1 单元 格 属性 


单元 格 区 域 Range 对 象 是 Worksheet 对 象 的 下 级 ， 用 来 表述 工作 表 中 的 单元 格 区 域 的 属 
性 有 : 

D Cells 表示 工作 表 的 所 有 单元 格 。 

D Range 用 字符 串 形式 的 地 址 表达 特定 区 域 。 

口 Rows 用 数字 表示 整 行 。 

D Columns 用 列 标 字 母 表示 整 列 。 

DD UsedRange 表示 工作 表 中 的 已 使 用 区 域 。 
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以 上 5 种 表达 形式 的 返回 对 象 类 型 均 为 Range 对 象 。 
源 代 码 : 实例 文档 12.xlsm/ 单元 格 属性 


1 Sub Testl{() 

2 ThisWorkbook.Worksheets (1) .Activate 

3 ' 获取 工作 表 最 大 行 与 最 大 列 〈 总 行 数 与 总 列 数 ) 

4 Debug.Print ActiveSheet.Cells.Rows.Count, ActijveSheet .Columns.Count 
sR Debug.Print ActiveSheet.Cells.Address 

6 Debug.Print ActiveSheet.Range ("CI") .Value 

1 ActiveSheet.Rows("5:71") .Select 

98 ActiveSheet.Columns("B:D") .Select 

qs ActiveSheet .UsedRange.Select 

10. End Sub 


代码 中 第 4 行 ，Cells 表示 工作 表 中 所 有 单元 格 ， 因 此 可 以 返回 总 行 数 与 总 列 数 。 第 5 
行 代码 打印 所 有 单元 格 的 地 址 ， 第 6 行 代码 打印 单元 格 C5 的 内 容 ， 第 7 行 代码 选中 5 ~ 7 
行 ， 第 8 行 代 码 选中 B ~ D 连续 的 三 列 ， 第 9 行 代码 选中 已 使 用 的 单元 格 。 

大 于 单元 格 区 域 方面 更 详细 的 使 用 技巧 ， 请 参考 第 14 革 相 关内 容 。 


12.2.2 ” Name 与 CodeName 属性 


Worksheet 对 象 的 Name 属性 ， 其 实 就 是 在 工作 表 标 签 看 到 的 标签 名 称 ， 这 个 属性 是 可 
恋 写 的 ， 既 可 以 手工 修改 工作 表 名 称 ， 也 可 以 用 VBA 目 动 获取 和 修改 名 称 。 

打开 “实例 文档 12.xlsm”， 对 比 工 作 表 标签 和 VBA 中 的 工程 资源 管理 此 ,会 看 到 第 一 
个 工作 表 的 名 称 是 January， 而 该 表 的 代码 名 称 ( CodeName) 仍然 是 Sheet1。 也 就 是 说 ， 当 
改变 了 工作 表 的 名 称 后 ,代码 名 称 不 会 变化 。 如 采 要 更 改 代码 名 称 ， 只 能 手工 打开 VBA 的 
属性 对 话 框 ， 然 后 在 属性 对 话 框 中 输入 新 的 名 称 才 行 ， 如 图 12-11 所 示 。 

代 人 码 名 称 类 似 于 变量 名 称 ， 使 用 的 时 候 不 能 也 不 需要 用 引号 括 起 来 。 
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图 12-11 查看 和 修改 工作 表 的 CodeName 
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那么 这 个 代码 名 称 有 什么 用 呢 ? 可 以 读 取 工作 表 的 名 称 及 其 代码 名 称 。 
源 代 码 : 实例 文档 12.xlsm/Name 和 CodeName 


1 Sub Testl]{() 

2 Dim wst As Worksheet 

和 Set wst = ThisWorkbook.Worksheets (1) 

4 MsgBox wst.Name & vbhNewLine & wast.CodeName, wblinformation 
5 End Sub 


运行 代码 后 ， 结 果 如 图 12-12 所 示 。 
同时 还 可 以 利用 CodeName 来 指 代 工作 表 对 象 。 
源 代码 实例 文档 12.xlsm/Name 和 CodeName 


1] Sub Test2() 

2 MsgBox Sheet2.Name & vbhNewLine & Worksheets (2) .Name 
有 Sheet2.Activate 

= Sheet2.Range ("B2:D6") .Select 

与 End Sub 


代码 中 Sheet2 就 是 第 2 个 工作 表 的 代码 名 称 ， 这 个 代码 名 称 不 使 用 双 引 号 引起 来 ， 就 
可 以 直接 使 用 。 因 此 运行 代码 后 ， 运 行 结 果 如 图 12-13 所 示 。 


[i January 
Sheetl1 


En 





sis 


图 12-12 ”运行 结果 7 图 12-13 “运行 结果 8 


可 以 看 出 ， 完 全 可 以 使 用 Sheet2 来 代替 Worksheets(2) 这 种 写法 。 今 后 在 编写 代码 过 程 
中 ， 如 果 看 到 Sheet2.Activate 这 样 的 语句 ， 我 们 就 知道 Sheet2 是 一 个 代码 名 称 ; 如 果 看 到 
Worksheets(“Price”) 这 种 写法 ， 就 知道 有 个 工作 表 的 名 称 是 Price。 

实际 上 ，Excel VBA 中 经 常用 到 的 ThisWorkbook 也 是 一 种 代码 名 称 ， 可 以 通过 属性 窗 
口 更 改 。 


12.2.3 ”前 一 个 与 后 一 个 工作 表 


可 以 使 用 Worksheet Previous 间接 获取 工作 表 的 前 一 个 工作 表 ， 同 理 使 用 Worksheet. 
Next 可 以 获取 后 一 个 工作 表 。 
源 代码 实例 文档 12.xlsm/ 前 一 个 与 后 一 个 工作 表 


1] Sub Testl1() 

之 Dim wst As Worksheet 

3 Set wst = Sheet2.Next 

4. MsgBox "Sheet2 的 下 一 个 表 是 : " & wst.Name 
2 Set WwWst = Sheet2.Previous 

6 MsgBox "Sheet2 的 前 一 个 表 是 : " & wst.Name 
1 End Sub 
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代码 中 Sheet2 是 指 中 间 的 那个 工作 表 。 第 4 行 的 运行 结果 如 图 12-14 所 示 。 
第 6 行 的 运行 结果 如 图 12-15 所 示 。 





图 12-14 运行 结果 9 


12.2.4 ”应 用 程序 与 父 级 对 象 


可 以 通过 Application 属性 获得 工作 表 所 在 的 顶层 应 用 程序 对 象 。 
源 代 码 : 实例 文档 12.xlsm/ 应 用 程序 与 父 级 对 象 


1。 Sub Testl () 
MsgBox Sheet2.Application.UserName 
3. End Sub 


代码 运行 后 ， 返 回 工作 表 所 属 的 应 用 程序 的 用 户 名 ， 如 图 12-16 所 示 。 

由 于 Worksheet 的 上 级 对 象 是 工作 短 ， 可 以 通过 Parent 属性 来 获取 工作 表 所 在 的 工作 竹 
对 象 。 

源 代 码 : 实例 文档 12.xlsm/ 应 用 程序 与 父 级 对 象 


1 Sub Test2{() 

之 Dim wbk As Workbook 

3 Set wbk = Sheet2.Parent 
4. MsgBox wbk.Name 


5. End Sub 


代码 运行 后 ， 返 回 Sheet2 所 在 工作 禾 的 名 称 ， 如 图 12-17 所 示 。 





图 12-16 运行 结果 11 图 12-17 运行 结果 12 


12.2.5 ”工作 表 标 等 颜 色 


Worksheet 对 象 的 Tab 子 对 象 代 表 工 作 表 的 标签 ，Tab 有 Color 和 ColorIndex 两 个 属性 ， 
用 来 读 取 或 修改 工作 表 标 签 颜 色 。 
源 代 码 : 实例 文档 12.xlsm/ 工作 表 标 签 颜 色 


1。 Sub Testl() 
ss sheetl1.Tab.Ccolor = vbhGreen 


第 12 章 工作 表 Worksheet 对 象 ”237 


3. Sheet2.Tab.CcolorIindex = 6 
4. End Sub 


代码 运行 后 ， 会 看 到 两 个 工作 表 的 标签 颜色 分 别 变 为 绿 
色 和 黄色 ， 如 图 12-18 所 示 。 





12.2.6 是否 显示 分 页 符 


工作 表 的 显示 属性 ， 例 如 是 否 显 示 网 格 线 、 是 否 显示 行 号 列 标 、 缩 放 比 例 等 ， 可 以 通过 
窗口 (Window) 对 象 来 设置 ， 具 体 请 参考 11.2.6 节 相 关内 容 。 

Excel 中 的 分 页 符 ， 用 来 表示 打印 时 分 页 的 位 置 ， 有 横向 和 纵 同 两 种 。 工 作 表 默认 不 显 
示 分 页 待 ， 但 是 通过 VBA 可 以 目 动 显示 和 隐 猎 分 页 符 。 

源 代 码 : 实例 文档 12.xlsm/ 显示 属性 


Sub Testl1 1() 
Sheetl.DisplayPageBreaks = True 
End Sub 
Sub Test2{) 
Sheetl.DisplayPageBreaks = Not Sheetl .DisplayPageBreaks 
End sub 


代码 中 ，Test 过 程 是 设置 为 显示 分 页 符 ; Test2 则 是 利用 布尔 运算 和 从 Not 来 实现 切换 显示 。 
Worksheet 的 DisplayPageBreaks 属性 设置 为 True 后 ,会 看 到 I 列 与 J 列 之 间 有 一 条 虚 
线 ， 如 图 12-19 所 示 。 


January | February | Sheet3 | 中 





图 12-19 ”运行 结果 14 


12.2.7 ”工作 表 的 可 见 性 


工作 表 的 Visible 属性 ， 用 来 控制 工作 表 的 显示 / 隐藏 状态 。 该 属性 有 三 种 取 值 : 
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口 xlSheetHidden: 一 般 [ 绚 着。 

口 xlSheetVeryHidden: 非 稼 隐藏。 

口 xlSheetVisible: 可 见 。 

属性 设置 如 图 12-20 所 示 。 

如 果 设 置 Visible=xlSheetVeryHidden, 则 不 能 通过 手工 方式 再 次 显现 工作 表 ， 必 须 使 用 
VBA 代 人 码 ， 或 者 通过 属性 窗口 来 修改 ， 如 图 12-21 所 示 。 


Sheet3 Worksheet 


Se 


EeBr aaks| 写 旬 
isplayRiehtToLef EE 









































Sub Test] 0) 
Sheet3. Vigsible = 





图 12-20 ”工作 表 的 3 种 可 见 性 设置 图 12-21 修改 工作 表 的 可 见 性 


12.2.8 页面 攻 秆 


Excel 作为 全 世界 使 用 最 广泛 的 电子 表格 软件 ， 工 作 表 排版 和 打印 输出 的 应 用 非 稼 普 
迄 ， 因 此 使 用 VBA 目 动 进行 页 面 设 置 和 批量 打印 技术 具有 非常 重要 的 意义 。 

工作 表 页 面 设置 的 所 有 参数 设 定 ， 均 隶属 于 Worksheet 对 象 下 面 的 PageSetup 成 员 对 
象 ， 该 对 象 拥有 众多 的 属性 ， 下 面 对 最 常用 的 页 面 设 定 进行 举例 说 明 。 

在 讲述 用 VBA 目 动 设 定 页 面 之 前 ， 需 要 事先 了 解 一 下 手工 操作 。 如 果 是 通过 手工 设 定 
页 面 ， 需 要 在 Excel 中 切换 到 “页 面 ” 选 项 卡 ， 然 后 单 击 “ 页 面 设置 ”组 右 下 角 的 盘 状 ， 会 
弹出 “页 面 设置 ”对 话 框 ， 如 图 12-22 所 示 。 

“页 面 设置 ”对 话 框 有 “页 面 ”“ 页 边 距 “页 眉 /页 脚 ”“ 工 作 表 ”四 个 选项 卡 。 页 面 设 
置 环节 在 打印 工作 表 的 过 程 中 占有 非 稼 重要 的 地 位 ， 如 有 果 设 置 不 恰当 ， 束 会 造成 数据 显示 不 
人 全、 纸张 浪费 等 一 系列 的 问题 。 因 此 ,打印 工作 表 一 般 要 齐 循 如 下 流程 。 

(1) 在 工作 表 中 编辑 数据 ， 格 式 化 排版 (字体 、 边 框 线 设 定 等 )。 

(2) 设 定 打印 区 域 。 

(3) 页 面议 置 。 

(4) 打印 预览 。 

(5) 打印 输出 。 
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图 12-22 ”工作 表 页 面 设置 


其 中 ， i 设置 部 分 又 包含 很 多 内 容 ， 和 常用 设置 有 : 纸张 方 回 (纵向 还 是 檬 和 癌 )、 纳 放 
比例 和 目 动 调整 、 纸 张大 小 ( A4 还 是 B5)、 起 始 页 码 、 页 边 距 (上 下 左右 )、 抽 眉 和 页 脚 内 
容 设 定 、 工 作 表 打印 选项 《是否 打 印 网 格 线 、 是 否 打印 行 号 列 标 等 )。 

PageSetup 对 象 的 属性 很 多 ， 限 于 篇 幅 ， 各 个 属性 的 用 法 以 及 注解 请 参考 代码 右 侧 的 注 

源 代码 实例 文档 14.xlsm/PageSetup 








1 Sub Test() 

2 Dim setup As Excel .PageSetup 

本 Set setup = ThisWorkbook.Worksheets (1) .PageSsetup 

4. With setup 

5 .PrintArea = "Al:D12" ' 设置 打印 区 域 ， 该 地 址 以 外 的 部 分 不 打印 
6. 

J -Orientation = Excel.XxXlPageOorientation.xlPortrait " 纸张 纵向 

8 

9., .Zo00m = False ' 不 缩放 。 自 动 调整 到 1 页 高 ，1 页 宽 
0 -FitToPagesTall = 1 

ls .FitToPagesWide = 1 

a 

13。 . PaperSize = Excel .XlPaperSize.xXlPaperAd 上 纸张 大 小 为 Ad4, 枚 举 型 常量 
14. 

15. .FirstPageNumber = 4 ' 起 始 页 码 设置 为 4 

16. 

i .LeftMargin = 100 ' 左边 距 

18 . .RightMargin = 100 ' 右边 距 

19. .TopMargin = 50 ' 上 这 中 

20. .BottomMargin = 50 ' 下 边 距 

-a .HeaderMargin = 20 ' 页 收 边 距 

2 .FooterMargin = 20 ' 页 脚 边 路 

23 

24. .CenterHorizontally = True ' 页 面 水 平 居 中 


a .CenterVertically = False ' 页 面 在 垂直 方向 不 居中 
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之 日 

27 . ' 以 下 设 定 页 届 和 页 脚 内 容 

28. .LeftHeader = "LeftHeader™ "页 眉 左 侧 

29. .CenterHeader = "CenterHeader™ "页 眉 中 间 

30. .RightHeader = "RightHeader™ ' 页 蛋 右 便 

可 上 .LeftFooter = "LeftFooter™ ' 页 脚 堪 侧 

3 之 。 

了 。 OddAndEvenPagesHeaderFooter = False ' 去 看 育 偶 页 不 同 
34. .DifferentFirstPageHeaderFooter = False "去掉 首页 不 同 
3 .PrintComments = xlPrintIinPlace ' 打印 批注 

36. .PrintGridlines = True 打印 网 格 线 

37. .PrintHeadings = True ' 打印 行 号 列 标 
38. 

39. .Order = xlDownThenOQver ' 打印 顺序 为 先 列 后 行 
40 。 

41. ThisWorkbook.Save 

42 。 

43. End With 


44. End Sub 


运行 上 述 过 程 之 后 ， 在 Excel 中 按 下 快捷 键 【 Ctrl+F2 】 打 印 预 归 ， 歼 果 如 图 12-23 所 示 。 


LeftEeadeT EDLETIT eT Fightieader 


行政 学 院 政治 学 专业 町 放 专业 扫 术 中 级 | 
2 





图 12-23 ”使 用 代码 自动 页 面 设置 
上 述 过 程 中 的 代码 ， 涵 羡 了 “页 面 设 置 ” 对 话 框 中 大 部 分 的 设 定 内 容 ， 每 行 代码 的 功能 
请 参考 代码 后 的 注释 部 分 。 注 意 第 41 行 ， 页 面 设 置 结束 后 要 进行 文档 保存 。 
在 实际 工作 中 ， 如 果 遇 到 上 述 代码 中 没 涉及 的 设置 部 分 ， 请 该 者 使 用 录制 宏 的 功能 ， 获 


12.3 工作 表 的 日 动 筛选 


数据 的 日 动 贤 选 是 Excel 日 名 办 公 中 很 频繁 、 很 重要 的 操作 之 一 。 本 节 介 绍 用 VBA 编 
程 的 方式 实现 目 动 疾 选 。 

Excel VBA 中 的 AutoFilter 既是 一 个 对 象 ， 义 是 一 个 方法 。 如 果 接 在 Worksheet 对 和 象 
之 后 ， 它 是 工作 表 的 自动 痛 选 对 象 ; 如 果 接 在 Range 对 象 之 后 ， 则 是 对 该 区 域 切换 自动 贤 
选 模式 。 

Excel 的 日 动 沛 选 功 能 只 能 应 用 于 工作 表 中 的 一 个 数据 区 域 。 换 句 话 说 ， 如 果 A 区 域 处 
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于 自动 筛选 模式 ， 则 B 区 域 不 能 进行 自动 筛选 ， 整 个 工作 表 只 能 有 一 个 区 域 处 于 自动 筛选 
与 Excel 的 自动 得 选 操作 有 关 的 对 象 关 系 如 图 12-24 所 示 。 


Worksheet 对 象 
ShowAllData 方 法 AutoFilterMode 属 性 
- FilterMode 属 性 





AutoFilter 对 和 象 


Filters 集 合 对 象 Range 对 象 
Filter 晴 选 器 对 象 AutoFilter 方 法 


图 12-24 工作 表 的 自动 科 选 对 象 模 型 
这 些 对 象 的 关系 错 综 复 林 ， 负 用 对 象 的 合 义 列 于 表 12-2 中 。 








表 12-2 与 自动 生 选 有 关 的 常用 对 象 


对 象 [1 x 备 注 
数据 区 域 的 标题 行 出 现 箭头 、 功 能 区 中 的 “自动 
| i 反 四 布 杀 4 
筛选 ”按钮 处 于 按 下 状态 ， 此 时 返回 True i 
h 动 入 选 状 态 是 至 少 设置 了 一 个 簿 选 器 、) 
处 于 日 动 第 选 状态 且 至 少 设置 了 六 筛选 器 ， 此 1 读 属 性 ， 返 回 布尔 值 
时 返回 True 
只 有 当 工 作 表 的 FilterMode 为 True 时 ， 才 能 应 
Worksheet.ShowAllData 方法 用 该 方法 来 显示 所 有 数据 ， 但 并 不 跳出 自动 筛选 | 作用 是 清除 所 有 筛选 条 件 
模式 
在 工作 表 处 于 自动 闯 选 状态 下 ， 才 存在 该 对 象 ， 
下 面包 含 的 主要 对 象 有 Range 和 Filters 


Worksheet.AutoFilterMode 属性 





Worksheet.FilterMode 属性 






Worksheet.AutoFilter 对 象 返回 一 个 AutoFilter 对 象 


AutoFilter.Range 对 象 表示 处 于 自动 筛选 的 单元 格 区 域 返回 一 个 Range 对 象 
, | | 切 处 于 和 白嫩 
Range .AutoFilter 方法 进入 自动 筛选 模式 或 者 增加 筛选 吕 RAR 自动 





AutoFilter.Filters 集合 表示 在 上 自动 闯 选 模式 下 所 有 的 筛选 需 





为 了 便于 讲解 ， 把 工作 表 分 为 以 下 3 种 状态 。 
12.3.1 工作 表 的 3 种 状态 


1. 状态 1: 非 筛 选 模式 
这 种 状态 是 数据 表 的 默认 状态 ， 如 图 12-25 所 示 。 
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下 单 日 期 ” 寄 户 地 址 商品 名 称 ”销售 额 品类 别 等 
2017/19:4 辽宁 年 记 本 5800D 
2017/9/5 黑龙江 数码 相机 32o0 
201779 上 二 | EDOD 





图 12-25 ” 非 筛选 
此 时 Worksheet.AutoFilterMode 属性 为 False ，Worksheet.FilterMode 属性 也 为 False。 
2. 状态 2: 目 动 秘 选 模式 ， 显 示 全 部 数据 


这 种 状态 下 ， 数 据 表 的 标题 行 呈 现下 拉 和 箭头， 但 还 看 不 到 吧 选 漏斗 ， 数 据 记 录 全 部 显 
示 ， 如 图 12-26 所 示 。 
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此 D 


全 部 3 各 时 下 单 昌 期 书 客 户 地 5 商品 和 请 信人 EE Iie 
2017/9 /4 | 辽宁 笔记 本 5800 电脑 耗 村 周 少 并 ”营业 二 部 
2D174945 ”黑龙江 数码 相机 3200 旅游 已 浊 藩 = 
20177956 辽宁 电 饭 祖 的 0 家 用 电器 ” 草 梅 坤 ”营业 二 部 
2017/9x7 广东 判 频 娓 5600 其 他 类 “| 陈 球 市 场 部 


图 12-26 ”自动 入 选 模式 ， 显 示 全 部 数据 
此 时 Worksheet.AutoFilterMode 属性 为 True，Worksheet.FilterMode 属性 为 False。 
状态 3， 目 动 位 选 模 式 ， 并 应 用 了 和 仿 选 器 


这 种 状态 下 ， 个别 列 的 下 拉稀 头 变 成 漏斗 形状 ， 显示 的 数据 条 数 比 总 条 数 少 ， 如 
图 12-27 所 示 。 






















































































“下 单 日期 半 富 记 六 商品 训 和 "| 销售 额 多 和 
2017/9/5 志江 人 就 到 相机 3200 旅游 a 
2017/9/7 be 5600 EE 人 类 陈 珍 
2017/9J7 “新疆 3400 罗 珍 
2D017/9J7 ”新 怠 i 2800 生 汪 鞍 林 
2D17/9,11 广东 呀 洱 站 E000 其 仙 类 _ 邓 绍 溅 : 
2017/9/13 ,新疆 剃 疡 .56800 其 仙 类  ” 神 伟 坚 ” 零 此 部 


图 12-27 ”上 月 动 站 选 模式 ， 并 应 用 了 六 选 需 
此 时 Worksheet.AutoFilterMode 属性 为 True，Worksheet.FilterMode 属性 也 为 True。 
下 面 讲解 一 下 3 种 状态 之 间 的 切换 方法 。 
由 于 一 个 工作 表 上 的 数据 区 域 往往 不 止 一 处 ， 所 以 让 工作 表 进 入 目 动 奖 选 模式 ， 并 不 是 
对 Worksheet 对 象 进行 操作 ， 而 是 对 指定 的 单元 格 区 域 进 行 操 作 才 行 。 
(1) 状态 1 一 状态 2。 
源 代码 : 实例 文档 14.xlsm/AutoFilter 


1 
2 
4 
b 
加 
2 





pi 
| 


1. Sub 状态 1 至 状态 2 () 

2 Dim wst As Worksheet 

sh Set wst = ThisWorkbook.Worksheets ("Sheet2") 
4 WSt .Range ("B2:122") .AutoFilter 

End Sub 
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代码 分 析 : wst.Range("B2:I22").AutoFilter 后 面 没有 任何 参数 ， 表 示 进 入 自动 筛选 模式 ， 
但 不 设置 岂 选 需 。 

使 用 Range.AutoFilter 方法 ， 后 面 设置 篇 选 融 的 条 件 ， 无 论 原先 是 状态 1 还 是 状态 2 
都 可 直接 进入 状态 3。 

(2) 状态 1 或 状态 2 一 状态 3。 


1 Sub 状态 1 至 状态 3 () 

2。 Dim wst As Worksheet 

3 Set wst = ThisWorkbook.Worksheets ("Sheet2") 

4. wst.Range("B2:122"™") .AutoFilter Field:=3, rt ss=" 二"， 


Operator:=x]lOr, Criteria2:=" 这 洒 " 
JI。 Ena Sub 


代码 分 析 : Field:=3 ， 表 示 数 据 区 域 的 第 3 列 ， 而 不 是 工作 表 的 第 3 列 。 在 同一 列 应 用 
了 两 个 条 件 ， 所 以 用 操作 符 xlOr 连接 。 

运行 以 上 代码 ， 根 据 数 据 区 域 的 第 3 列 进行 尼 选 ， 沛 选 出 客户 地 址 为 山东 或 辽宁 的 记 
录 ， 如 图 12-28 所 示 。 


实例 区 档 14x|ls 
状 据 证 阅 视图 和 开 达 有 具 StaticCustomUl YB 


Fr 四 


号 : 下 
有 自 岗 站 自 文本 让 其 他 来 源 现 有 连接 SR 7| 到 


ve 


和 ee = 的 入 
2017/916 “辽宁 EF 6000 
2017/9/10 1 波 是 5400 
2017/9/11 山东 1 2000 
2017/9 并 3 山东 执 科 38300 


家 具 部 
2017/9/14 i 2600 ; 
2017/9/16 辽 有 5 项 4800 田 昕 癌 业 一 1 


图 12-28 ”自动 设置 第 选 硕 条 件 





如 果 是 单一 条 件 ， 可 以 写成 wst.Range("B2:122").AutoFilter Field:=8, Criterial:=" 营业 
二 部 "。 

在 编程 开发 过 程 中 ,经常 需 要 去 掉 现 在 所 有 的 第 选 上 条 件 ， 显 示 全 部 数据 。 此 时 宕 要 保 
证 现在 工作 表 处 于 目 动 燃 选 模式 ， 并 且 现 在 至 少 有 一 个 癣 选 锅 ， 才 可 以 调用 ShowAllData 方 
法 去 掉 所 有 筛选 髓 。 

(3) 状态 3 一 状态 2。 

运行 下 面 的 过 程 ， 会 目 动 清除 所 有 和希 选 条 件 ， 显 示 全 部 数据 。 


Sub 状态 3 至 状态 2 () 
Dim wst As Worksheet 
Set wst = ThisWorkbook.Worksheets ("Sheet2") 
If wst.FilterMode = True Then 
wSst .ShowAllData 
End I 
End Sub 


244 Office VBA 开发 经 典 一 一 基础 入 门 卷 


退出 自动 师 选 的 方法 比较 人 简单， 执行 Worksheet.AutoFilterMode=False 即 可 ,但 是 需要 


注意 的 是 执行 该 方法 之 前 确保 工作 表 的 状态 是 日 动 解 选 模式 。 
(4) 状态 2 或 状态 3 一 状态 1。 
运行 下 面 的 过 程 ， 工 作 表 会 退出 目 动 衡 选 模式 。 


1. Sub 状态 2 或 状态 3 至 状态 1() 

之 。 Dim wst As Worksheet 

3 Set wst = ThisWorkbook.Worksheets ("Sheet2") 
4 If wst.AutoFilterMode = True Then 


5 WSt .AutoFilterMode = False 
6 。 End If 
1 End Sub 


12.3.2 ”遍历 筛选 器 


当 工 作 表 处 于 月 动 箭 选 状态 时 ，Worksheet 下 面 的 AutoFilter 对 象 有 一 个 Filters 集合 对 


象 ， 该 集合 包含 所 有 的 锯 选 需 〈EFilter ) 。 
Filter 对 象 主 要 的 属性 如 下 。 
口 On: 该 列 设 置 了 噬 选 条 件 时 ， 返 回 True。 
En 
口 Operator: 操作 符 ， 返 回 如 xlAnd、xlOr 等 枚 举 值 。 
D Count: 该 列 条 件 的 总 数 。 
假定 现在 工作 表 处 于 状态 1， 运 行 下 面 的 过 程 ， 日 动 按照 客户 地 址 、 销 售 
并 且 裔 爵 每 列 的 外 选 希 的 状态 。 
1. Sub 谢 历 第 选 器 () 
2 Dim wst As Worksheet 
Ss Dim AF As Excel .AutoFilter, ft As Excel .Filter 
4 Set wst = ThisWorkbook.Worksheets ("Sheet2") 
2 


wst .Range ("B2:122") .AutoFilter Field:=3, Criterial:=" 山东 "， 
xlOr, Criteria2:=" 辽宁 " 


6. Ww3t .Range ("B22:122") .AutoFilter Field:=y, Criterial:="<I000™ 
i. Set AF = wst.AutoFilter 

8. Debug .Print "筛选 区 域 的 总 列 数 : "，AF.Filters.Count 

3 For Each ft In AF.Filters 

10. Ift ft.on = True Then 

11. Debug.Print 1t.cCcriterial, i1t.Operator, ilt.Count 

12. End If 

13. Next flt 


14. End Sub 
由 于 本 例 只 设置 了 mt 的 迄 选 条 件 ， 因 此 有 两 个 Ea we 
| 
Filer 人 处 于 开启 状态 ， 运 行 上 述 过 程 ， 立 即 窗口 打印 结 = 山东 
果 如 图 12-29 所 示 。 


“5000 0 


Operator:= 





Excel 工作 表 的 结果 如 图 12-30 所 示 。 图 12-29 ”遍历 第 选 器 信息 


开 培 邱 六 页 面 布局 2 凑 据 审阅 


[ 自 自 Access [位 情 [sa 


二 EA FE 
[6 自 网 站 Bl 现 有 连接 Sa 四 i 
[后 自 六 本 


| 编 加 入 接 
勤 取 外 部 执 拒 











单 号 [| 下 单 日 期 | 客户 地 HL 了 | 宴 电 放 和 > | 销 千 额 了 可 商品 类 中 | 销售 员 


AD11 201779711 山东 
AD1B 201779z13 山东 
LD1T 20172974 辽宁 
Ped 2017/9/16 辽宁 


电热 程 
鞋 记 本 
弹 须 中 


图 12-30 


12.3.3 ”处 理 目 动 星 选 后 的 区 域 


视图 开 避 [上 有 具 


和 网 日 村 丈 清 除 


2000 
3800 
2B00 
800 
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空 人 ww 和 档 14x sm - Excel 
加 戴 项 。 团队 
目 : 靶 快速 填充 
由 目 山 除 重 复 项 芷 
下 育 级 i - 二 


五 重新 应 用 


到 | 


排序 和 篇 选 


品 [=| 部 门 
韦 诗 注 营业 二 


五 个 
下调 怪 江 
其 他 类 出 昕 


筛选 后 的 工作 表 


对 于 执行 了 目 动 痛 选 后 的 区 域 ， 人 们 更 天 心痛 选 出 来 的 数据 有 多 少 条 ， 以 及 如 何 用 


VBA 日 动 把 由 选 出 的 数据 复制 到 其 他 地 方 。 


运行 下 面 的 过 程 可 以 自动 按照 商品 类 别 进行 


外 选 ， 包 选 完 


假设 工作 表现 在 处 于 状态 1 
成 后 在 立即 窗口 打印 自动 簿 选区 域 、 筛 选 后 的 可 见 区 域 的 地 址 。 
1. Sub 自动 筛选 后 的 区 域 () 
之 Dim Wst As Worksheet 
了 本。 Dim Igl As Range, rg2 As Range 
4 Set wst = ThisWorkbook.Worksheets ("Sheet2") 
5 


wst.Range ("B22:122") .AutoFilter Field:=4, Criterial:=Arrayl(" 笔记 本 "， 
" 电 饭 锅 ") ，Operator:=Xx1LEFilterValues 


数码 相机 r 


6 Set rgl] = wst.AutoFilter.Range ' 工作 表 中 自动 筛选 的 区 域 
了 Set rg2 = rgl.SpecialCells (xlCellTypeVisible) :筛选 后 的 可 见 区 域 
8. Debug.Print rgl.Address 

9 Debug.Print rg2.Address 

10 . ' 接 下 来 遍历 可 见 区 域 的 行 

I Dim Ig As Range 

pa Dim TotalRows As JInteger 

4 For Each rg In rg2.Areas 

14. Debug.Print rg.Address 

1 TotalRows = TotalRows + Ig.Rows.Count 

1 6. Next 工 可 

1 7 TotalRows = TotalRows 一 1 


18 . Debug .Print " 可见 行 的 总 行 数 为 :"， 


19. End Sub 


TotalRows 


代码 分 析 : AutoFilter Field:=4, Criterial:=Array(" 笔记 本 ", "数码 相机 "," 电 饭 锅 ")， 


Operator:=xlFilterValues 表示 按照 第 4 列 (商品 名 称 ) 目 动 病 选 ， 


锅 这 3 类 沛 选 出 来 。 
Set rg2 = 
过 目 动 是 选 后 ， 可 见 区域 不 是 连续 


是 由 多 个 分 离 的 区 域 构 成 。 因 此 在 re2.Areas 里 面 进行 笛 历 ， 把 每 个 连 乡 
TotalRows 中 ,但 由 于 可 见 区 域 包 括 数据 区 域 的 标题 


把 笔记 本 、 数 码 相 机 、 电 饭 


rgl.SpecialCells(xlCellTypeVisible) 表示 肾 选 后 的 可 见 区 域 。 一 般 情 况 下 ， 经 
的 区 域 ， 因 为 中 间 有 隐藏 行 ， 因 此 竹 选 后 的 单元 格 区 域 


经 区 域 的 行 数 累 加 到 
行 ， 因 此 还 要 减 去 1。 
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运行 上 述 过 程 ，Excel 工作 表 处 于 自动 第 选 模 式 ， 如 图 12-31 所 示 。 


oe ee 加 中 
201L77B 5 审 3 2 
2017/9H6 辽宁 电 | 名 DO 


3017A BT 1 给 2B00 
2017/98 电 饥 贺 3400 
20177B7 二 2D0 
20L7rey11 山东 | 2000 
201 F791 3 1 2600 
2017/98x15 青 ; i 5B00 
20l177o9715 隆 3DDD 


图 12-31  ” 按 商 品名 称 筛 选 
立即 窗口 的 打印 结果 如 图 12-32 所 示 。 





$B$2 :$T$22 

$B$2:$1$5, $B$8:$1$10, $B$13:$1$13, $B$19:$1$21 
$B$2:$1$5 

$B$8:$1$10 


$B$13: $1$13| 
$B$19:$1$21 





图 12-32 ”月 动 第 选 后 打印 可 见 区 域 的 地 址 

实际 工作 中 ， 还 经 第 需 要 把 不 同 的 贤 选 条 件 沛 选 出 的 结果 分 发 到 多 个 工作 表 中 。 

假设 Sheet2 Meipineney 运行 下 面 的 过 程 ， 依 次 按照 不 同 的 省 份 进行 日 动 贤 
选 ， 每 箭 选 完成 一 次 就 把 第 选 结果 发 送 到 新 建 的 工作 表 中 ， 发 送 完 成 后 原 数 据 区 域 去 挥 师 选 
和 项， 显示 全 部 数据 ， 进 行 下 一 轮 目 动 笑 选 。 

1. Sub 筛选 后 的 数据 分 发 到 其 他 表 () 
pe Dim wst As Worksheet 
3 
一 


Dim Igl] As Range Ig2 As Rande 


Dim Provinces As Variant, Province As Variant 


5 Provinces = Arrayl(" 这 宁 "， "山东 "，" 黑龙 江 "=， "有 陕西 ") 

6 Set rgl = ThisWorkbook.Worksheets("Sheet2") .Range ("B2:122") ' 总 数据 区 域 
For Each Province In Provinces 

8 rgl .AutoFilter ' 保证 处 于 自动 筛选 状态 ， 但 去 掉 所 有 筛选 器 

全 rgl.AutoFilter Field:=3, Criterial:=Province 

10. Set rg2 = rgl.SpecialCells (xlCellTypeVisible) ， 筛选 后 的 可 见 区 域 
Es Set wst = ThisWorkbook.Worksheets.Add 

人 Application.ActiveSsheet.Name = Province 

1 rg2.Copy Destination:=Application.ActiveSheet.Range ("Al") 

14. Next Province 


15. End Sub 


代码 分 析 : 当 目 动 靖 选 完 成 后 ， 需 要 插 人 新 工作 表 ， 使 用 Add 方法 插 人 新 表 后 ， 新 表 
SA I 因此 本 例 使 用 ActiveSheet 表示 新 表 。 
运行 上 述 过 程 ， 会 自动 插入 4 个 新 工作 表 ， 每 个 工作 表 的 内 容 恰 好 为 对 应 省 份 的 数据 ， 
如 图 12-33 所 示 。 
Excel 的 目 动 痛 选 ， 除 了 将 单元 格 内 容 作 为 中选 规则 外 ， 还 可 以 根据 单元 格 填 充 颜 色 、 
字体 颜色 的 差异 进行 肾 选 。 


-a 
开始 = 疯 面 布局 
ls : Ei 


公式 


局 


1 | 日 IT 全 证 际 
下 重 条 应 用 
[Ei 


第 12 章 工作 表 Worksheet 对 象 


lxlsm - Excel 

十 阁 视图 开发 共 。 加 就 矶 ”局 队 

Eh Wes 有 0 癌 知 计算 “| 旦 前 建明 -> 
5 sp a a 














FT 
上 DM 201T7 8 
201T779,19 
20LTYS 站 
201T 91 


i 


陆 西 | 加 楷 江 | 山东 


| FE 
Sl 商品 各 和 请 备 额 
笔记 本 


了 中 


5 号 
BDAD 
5 二 0 
了 所 和 所 
4300 


Sheat2 | 





图 12-33” 按 客户 地 址 分 类 导出 筛选 结果 


12.3.4 ”按照 单元 格 填充 颜色 师 选 


例如，AutoFilter Field:=3, Criterial:=RGB(0,255, 0), Operator:=xlFilterCellColor, 
数据 区 域 第 3 列 的 单元 格 如 果 是 绿色 填充 色 ， 
表示 数据 区 域 的 第 3 列 单元 格 如 采 无 填充 颜 色 ， 怠 中选 出 来 。 


Operator:=xlFilterNoFill, 


怠 靖 选 出 来 9 否则 | 


24/ 


表 不 
颖 藏 。AutoFilter Field:=3， 


假设 原始 数据 表 的 A 列 ， 个别 单元 格 具有 不 同 的 填充 色 ， 如 图 12-34 所 示 。 
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单 号 本 


那么 可 以 把 其 中 深 绿色 ( 像 单 元 格 B3 那 种 的 填充 颜色 ) 的 数据 记录 师 选 出 来 。 


例如 执行 : 


ActiveSheet.Range ("$Bs$2:5I1I59522"™) .AutoFilter Field:=1, 


Interior.Color, 


Operator:=xlFilterCcellColor 


就 可 以 把 与 单元 格 B3 颜色 一 样 的 行 电 选 出 来 ， 如 图 12-35 所 示 。 
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图 12-35 
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12.3.5 ”按照 单元 格 字 体 颜 色 渍 选 


例如 , AutoFilter Field:=2, Criterial:=VbRed, Operator:=xlFilterFontColor， 表 示 数 据 区 域 


第 2 列 单元 格 的 字 


- 体 闸 色 为 红色 时 ,满足 贤 选 条 件 。AutoFilter Field:=2, Operator:= 


xlFilterAutomaticFontColor， 表 示 数 据 区 域 第 2 列 单元 格 字 体 为 默认 字体 颜色 (一 般 为 黑色 ) 
时 ， 满 足 入 选 条 件 。 


假定 原始 数据 表 中 “下 单 日 期 ” 列 个 别 单元 格 的 字 


图 12-36 所 示 。 
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商品 类 别 | 销 肯 8 
申 ; 


原始 数据 表 的 单元 格 具 有 上 月 定义 的 字体 颜色 


执行 下 面 的 语句 ， 会 把 与 单元 格 C4 字体 颜色 (神色 ) 一 样 的 其 他 


ActiveSheet.Range ("$B$2:$1$22"™) .AutoFilter Field:=2, 
Font .Color, 


Operator:=xXlFilterFontColor 


运行 结果 如 图 12-37 所 示 。 
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Worksheet 对 佘 常 用 方法 


Excel 工作 表 的 大 部 分 操作 ， 都 可 以 通过 右 击 工作 表 
标签 ， 在 弹出 的 快捷 菜单 中 选择 相应 的 命令 来 实现 ， 如 图 
12-38 所 示 。 


如 插入 工作 表 、 竺 操作 ， 都 属于 工作 表 的 


方法 ， 以 下 介绍 Worksheet 对 象 的 常用 方法 。 
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图 12-38 ”工作 表 的 右键 快捷 菜单 
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12.4.1 ”激活 和 选中 工作 表 


在 包含 多 个 工作 表 的 工作 筹 中 ， 用 鼠标 单 击 工作 表 标签 的 同时 ， 如 果 按 下 【 ct ] 或 
【 Shift 】 键 ， 可 以 实现 多 个 工作 表 的 点 选 和 连 选 。 但 是 ,不管 选 中 了 多 少 个 工作 表 ， 只 有 一 
个 工作 表 处 于 激活 状态 ， 这 个 工作 表 就 是 活动 工作 表 ActiveSheet 对 象 。 

如 末 要 目 动 选中 其 中 一 个 表 ， 就 可 以 直接 使 用 Worksheet.Select 方法 ,例如 Worksheets 
("Sheet2").Select 或 者 Worksheets(3).Select ; 如 果 要 同时 选中 多 个 表 ， 可 以 在 Worksheets 的 
括号 内 放 入 一 个 数组 作为 参数 。 

源 代码 : 实例 文档 15.xlsm/ 激活 和 选中 工作 表 


1] Sub Test2{) 

之 Dim 3 As Sheets 

3 Dim oo As Object 

4. Application.ThisWorkbook.Worksheets (Array ("Sheetl", "Sheet3", "Sheety")). Select 
中 Set 3 = Application.ActiveWindow.SelectedSsheets 

6 MsgBox " 你 选中 了 " & s.Count & "个 表 。 下 面 输出 被 选中 表 的 名 称 : " 

1 For Each oo In s 

8 Debug.Print o.Name 

- Next o 

10. End Sub 


代码 分 析 : 第 4 行 代码 一 次 性 选中 3 个 工作 表 。 

第 5 行 代码 把 当前 窗口 选中 了 的 表 集 合 赋 给 对 象 变量 s。 要 特别 注意 ActiveWindow. 
SelectedSheets 这 个 对 象 的 含义 。 

第 7 ~ 9 行 代码 遍历 每 一 个 被 选 表 的 名 称 。 

运行 第 6 行 代 码 ， 弹 出 的 对 话 框 如 图 12-39 所 示 。 

如 采 要 选中 全 部 的 工作 表 ， 这 个 功能 用 VBA 如 何 实 现 
呢 ? 可 以 先 把 所 有 表 的 名 称 提取 到 一 个 数组 中 ， 然 后 用 Select 
方法 选中 。 代 码 如 下 。 

源 代码 : 实例 文档 15.xlsm/ 激活 和 选中 工作 表 





Sub Test4{) 
Dim arr() As String 
ReDim arr(l To ThisWorkbook.Sheets.Count) 


Dim 1 As Integer 


arr(i) = ThisWorkbook.Sheets (i) .Name 


Next 1 
ThisWorkbook.Sheets (arr) .Select 


1 
由 
3 
4 
eh For 1 = LBoundt{(arr}) To UBound (arr) 
6 
1 
8 
9 End Sub 


代码 分 析 : 首先 定义 一 个 动态 数组 ， 然 后 根据 工作 每 的 表 总 数 重 新 定义 数组 大 小 ,注意 
数组 下 标 从 1 开始 ， 因 为 工作 竹中 最 左边 的 表 的 索引 从 1 开始 。 然 后 用 For 循环 把 所 有 表 名 
称 放 到 数组 中 。 第 8 行 是 关键 代码 ， 利 用 Sheets( 数组 ).Select 方法 选中 所 有 表 。 

重要 提示 : 数组 中 除了 放置 表 名 称 字 符 串 外 ， 还 可 以 放置 表 的 索引 。 例 如 ，Worksheets 
(Array(1, 3, 5)).Select 表示 选中 第 1、3、5 个 表 。Worksheets(Array(1, "Sheet2", 5)).Select 表 
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示 选 中 第 1 个、 第 5 个 表 ， 以 及 名 称 为 Sheet2 的 表 。 
以 上 讨论 的 是 如 何 选中 多 个 表 。 
Activate 方法 用 于 把 其 中 一 个 表 激 活 作 为 活动 工作 表 。 
源 代码 : 实例 文档 15.xlsm/ 激活 和 选中 工作 表 


1 Sub Test3 1() 

本 天 Application.ThisWorkbook.Worksheets (2) .Activate 
3 MsgBox Application.ActiveSheet.Name 

= End Sub 


代码 中 选中 并 激活 第 2 个 表 ， 然 后 对 话 框 中 返回 活动 工作 表 的 名 称 : Sheet2。 
12.4.2 ”工作 表 的 移动 和 复制 


使 用 Worksheet.Move 方法 实现 工作 表 的 移动 ， 使 用 Worksheet.Copy 方法 可 以 实现 工作 
表 的 复制 。 移 动 和 复制 的 参数 是 一 样 的 ， 但 是 功能 略 有 差别 。 表 的 移动 是 指 这 个 表 从 A 处 
挪动 到 B 处 ， 挪 动 之 后 A 处 就 不 再 有 这 个 表 。 而 复制 则 是 创建 副本 ， 原 处 还 有 该 表 。 

既 可 以 将 工作 表 移 动 到 同一 工作 短 的 其 他 表 的 前 后 位 置 ， 也 可 以 将 工作 表 移 动 到 其 他 工 
作 短 中 。 因 此 只 需要 设 定 Move 方法 的 Before 或 After 参数 即 可 。 

下 面 介 绍 一 个 工作 表 在 同一 工作 短 内 部 移动 。 

源 代码 : 实例 文档 15.xlsm/ 工作 表 的 移动 复制 和 另存 


1 Sub Testl{() 

之 Dim WsSt As Worksheet 

3. Set wst = ThisWorkbook.Worksheets ("Sheet2") 

4 WSst .Move After:=ThisWorkbook.Worksheets ("Sheet3") 
本 MsgBox w3t.Index 

6 End Sub 


代码 分 析 : 以 上 代码 把 Sheet2 这 个 表 移 动 到 了 Sheet3 的 后 面 。 工 作 表 在 移动 之 后 ， 表 
的 索引 会 重建 ， 因 此 最 后 的 对 话 框 中 弹出 数字 3， 因 为 移动 操作 之 后 工作 表 的 排列 顺序 为 
Sheetl 、Sheet3、Sheet2。 

如 果 要 把 一 个 工作 表 移 动 到 为 一 个 工作 簿 中 ,使 用 如 下 代码 。 

源 代码 实例 文档 15.xlsm/ 工作 表 的 移动 复制 和 另存 


1 Sub Testz (|) 

之 Dim wst As Worksheet 

Ss Set wst = ThisWorkbook.Worksheets ("Sheet2") 

4 WSt .Move Before:=Application.Workbooks(" 实例 文档 le6.xlsm") .Worksheets ("2017") 
2 End Sub 


运行 上 述 代 码 之 前 ， 同 时 打开 源 文件 “实例 文档 15.xlsm” 和 “实例 文档 16.xlsm”， 运 
行 后 发 现 工作 表 Sheet2 移动 到 工作 狂 “ 实 例文 档 16.xlsm ”的 2017 这 个 表 之 前 。 
工作 表 的 复制 和 移动 的 代码 非常 相似 。 
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源 代码 : 实例 文档 15.xlsm/ 工作 表 的 移动 复制 和 另存 


1 Sub Test31{) 

2 Dim wst As Worksheet 

3. Set wst = ThisWorkbook.Worksheets ("Sheet2") 

4 wast.Copy After:=ThisWorkbook.Worksheets ("Sheet3") 
3 End Sub 


以 上 代码 把 Sheet2 这 个 表 复 制 到 Sheet3 之 后 ， 复 制 了 的 表 名 称 默认 为 Sheet2(2)。 

如 有 果 工 作 表 的 Copy 方法 后 没有 加 任何 参数 ， 那 么 执行 该 方法 会 把 工作 表 复 制 到 新 工作 
和 海中， 并 且 该 新 工作 竹 成 为 活动 工作 短 ， 根 据 这 个 原理 可 以 实现 工作 表 的 分 发 。 

在 实际 应 用 中 ， 经 党 需要 把 工作 竹中 每 个 工作 表 另 存 为 单独 的 工作 短文 件 。 

假设 现在 打开 任何 一 个 有 数据 的 工作 短 ， 然 后 运行 SheetCopy， 会 看 到 Excel 中 多 出 来 
一 个 新 工作 短 。 接 下 来 只 需要 把 该 工作 短 另 存 为 合适 的 格式 ， 然 后 关闭 即 可 。 

下 面 的 实例 实现 把 一 个 启用 宏 的 工作 德 中 8 个 工作 表 分 发 为 8 个 独立 的 不 启用 宏 的 普通 
工作 短文 件 。 

源 代码 : Excel2010 实际 操作 题 .xlsm/ 分 发 工作 表 


EE: 


1 Sub Test31{) 

2 Dim wst As Excel .Worksheet 

: For Each wst In ThisWorkbook.Worksheets 

4 WS3t .COPY 

2 Application.ActiveWorkbook.SaveAs Filename:="D:\dist\™" & wst.Name & 
" .Xlsx", FileFormat:=Excel .Xl1lFileFormat .xlOpenXMLWorkbook 

0. Application.ActiveWorkbook.Close 

Ea Next wst 

3838. End Sub 


代码 分 析 : 第 4 行 代码 中 的 wst.Copy 方法 是 把 该 工作 表 变 成 新 工作 短 ， 第 $ 行 代码 指 
定 另 存 的 文件 路 径 以 及 文件 格式 ， 第 6 行 代码 关闭 刚刚 另存 的 工作 短 。 
上 述 过 程 运 行 结果 如 图 12-40 所 示 。 
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图 12-40 ”运行 结果 16 


12.4.3 ”控制 工作 表 的 计算 


如 果 把 Excel 的 计算 模式 设置 为 手动 计算 ， 那么 工作 表 中 数据 发 生变 动 后 ， 用 公式 计算 
后 的 结果 不 会 立即 更 新 。 用 户 可 以 按 下 快捷 键 【 F9 ]】 重 新 计算 工作 表 ， 也 可 以 供 助 VBA， 
使 用 Worksheet.Calculate 方法 重新 计算 。 
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源 代 码 : 实例 文档 15.xlsm/ 控制 工作 表 的 计算 


1 Sub Testl{() 

a Application.Calculation = xlCalculationManual 设置 计算 模式 为 手动 
3 ThisWorkbook.Worksheets ("Sheet2") .Calculate 

4 End Sub 


代码 分 析 : 上 述 过 程 首先 设置 Excel 的 计算 方式 为 手动 ， 当 然 ， 这 步 也 可 以 预先 设置 好 。 
接 下 来 重新 计算 Sheet2 工作 表 。 该 工作 表 背 后 预先 写 了 一 个 工作 表 的 事件 过 程 ， 代 码 如 下 。 

源 代 码 : 实例 文档 15.xlsm/Sheet2 

1L1- Private Sub Worksheet Calculate () 

- MsgBox "工作 表 被 执行 计算 ! "，vbInformation 

3。 End Sub 

因此 ， 当 工作 表 的 数据 发 生 编 辑 后 ， 再 运行 上 述 Testl 过 程 ， 
会 看 到 公式 结果 被 正确 更 新 ， 同 时 弹出 如 图 12-41 所 示 的 对 话 框 。 

这 说 明 工 作 表 的 重新 计算 引发 了 工作 表 的 计算 事件 。 图 12-41 运行 结果 17 


Microsoft Excel 





12.4.4 ” 设 定 背景 图 片 


Worksheet.SetBackgroundPicture 方法 可 以 为 工作 表 搬 人 外 部 的 
源 代码 : 实例 文档 15.xlsm/ 设置 背景 图 片 





张 图 片 作为 背景 。 


1。 sub Testl() 

二- Dim wst As Worksheet 

3 Set wst = ThisWorkbook.Worksheetst(l) 

4. wst.SetBackgroundPicture "C:\temp\PC.jJpg" 
DJ- End Sub 


运行 代码 后 ， 第 一 个 工作 表 效 果 如 图 12-42 所 示 。 


i 


i yy FE hb | | 夺回 Ba 辽 帘 度 | 自动 网 怡 洁 。 标量 
Es 二 et 。 I 交 本 敌 容 请 亲本 本 Em 习 雪 看 下 
人 页 边 是 钼 瑟 方向 钼 二 本 小 打印 区 域 分 隐 符 ” 央 除 打印 标题 上 移 一 层 下 移 一 层 还 择 赣 档 
一 效 嘿 - | 。 ， ” 背 虽 济 第 让 比 禁 |100% | 口 打 向 。 口 打印 
而 面 识 各 ， 。 调 时 为 各 和 汪 大小。 ”5 ”工作 志 选 项 
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人 短 后 将 其 关闭， 故意 删除 C:\temp\PC.jpg 这 张 图 片 ， 青 次 打开 工作 注 ， 
景 图 仍然 存在 ， 这 说 明 背 景 图 随 工 作 簿 一 起 保存 了 。 
如 果 要 删除 工作 表 的 背景 图 ， 只 需要 执行 wst.SetBackgroundPicture“” 即 可 。 





12.4.5 ”复制 和 粘贴 数据 


把 一 个 单元 格 区 域 的 内 容 复制 ， 并 粘贴 到 工作 表 中 ， 首 先 运行 Range.Copy 方法 ,把 单 
元 格 的 内 容 放 到 剪贴 板 ， 然 后 运行 Workbook.Paste 方法 把 剪贴 板 内 容 粘贴 到 工作 表 的 默认 单 
元 格 中 。 

Worksheet 的 Paste 方法 的 完整 语法 为 : 


Worksheets.Paste Destination, Link 


口 参数 Destination 必须 是 一 个 Range 对 象 ， 表 示 精 贴 的 目的 地 。 

口 参数 Link 是 一 个 布尔 值 ， 表 示 是 否 粘贴 为 链接 ， 如 果 为 True， 表 示 粘 贴 目 的 地 不 仅 
粘贴 数值 ， 而 且 自 动 创 建 公 式 ， 与 源 区 域 建立 链接 。 

Destination 和 Link 参数 不 可 同时 使 用 ， 也 就 是 说 Paste 方法 最 多 接受 一 个 参数 。 

打开 源 文件 “实例 文档 15.xlsm”， 切 换 到 Sheet2 ， 运 行 如 下 过 程 。 

源 代 码 : 实例 文档 15.xlsm/ 复制 和 粘贴 数据 


1 Sub Testl1() 

as Worksheets (2) .Range ("Bl :BY") .Copy 

3 Worksheets (3) .Paste Destination:=Worksheets (3) .Range ("D1 :DS") 
二 End Sub 


代码 分 析 : 上 述 代 码 自 先 对 第 二 个 工作 表 的 B1:B5 执行 复制 ， 相 当 于 按 下 快捷 键 
【 Ctrl+C ]， 执 行 完 这 名 后 ， 会 看 到 该 区 域 周 围 有 虚线 框 。 然 后 对 第 三 个 工作 表 进 行 粘贴 ， 烙 
贴 的 终点 为 D1:D5。 实 际 上 ，Paste 方法 后 面 可 以 不 设置 任何 参数 ， 这 时 候 粘 贴 的 终点 取决 
于 第 三 个 工作 表 的 当前 选择 区 域 。 

接 下 来 看 一 个 粘贴 链接 的 实例 。 

源 代码 : 实例 文档 15.xlsm/ 复制 和 粘贴 数据 


1 Sub Test2{() 

之 Worksheets (2) -Range (BT1L:B5) .CoPY 
要 Worksheets(3) .Range ("”B1L:Bo5”) .Select 
4 Worksheets (3) .Paste Link:=True 

本 End Sub 


由 于 Paste 方法 最 多 接受 一 个 参数 ， 所 以 无 法 规定 Destination 参数 ， 因 此 在 Paste 方法 
之 前 ， 需 要 使 用 Select 方法 预先 选中 第 三 个 工作 表 的 B1:B5 区 域 。 
述 过 程 执行 后 ， 会 发 现 第 三 个 工作 表 的 区 域 中 保留 有 公式 。 
另外 ，WorkSheet 对 象 还 有 一 个 PasteSpecial 方法 ， 用 于 粘贴 Excel 外 部 的 对 象 ， 不 过 
这 个 方法 的 用 途 不 太 广 泛 ， 谈 者 可 以 目 行 摸索 。 不 过 ， 与 今后 要 讲 到 的 Range.PasteSpecial 
方法 区 别 开 来 。 
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重要 提示 : 本 市 的 Testl 过 程 ， 还 可 以 改写 为 如 下 单行 版 本 ， 两 者 功能 基本 相同 。 
源 代 码 : 实例 文档 15.xlsm/ 复制 和 粘贴 数据 


1。 Sub Test31() 
本 Worksheets (2) .Range ("Bl1:BI") .Copy Worksheets (3) .Range ("El]:E2") 
3. End Sub 


也 就 是 说 ， 在 Copy 方法 之 后 直接 写 上 目的 地 区 域 即 可 。 使 用 这 种 方式 ， 原 单元 格 区 域 
周围 不 出 现 虚 线 框 ， 比 过 程 Testl 运行 速度 更 快 。 在 Excel VBA 编程 的 实际 应 用 中 ， 经 和 常用 
到 Rangel.Copy Range2 这 种 方式 快速 复制 数据 。 


12.4.6 ”使 用 记录 窗 体 


在 Excel 2003 版 ， 主 亲 单 中 有 一 个 记录 和 窗 体 功 能 ， 在 编辑 数据 表 时 比较 方便 。 在 Excel 
2007 以 上 版 本 ， 该 功能 找 不 到 了 ,但 是 通过 VBA 还 是 能 显示 出 该 窗口 。 

打开 源 文件 “实例 文档 15.xlsm”， 切 换 到 工作 表 Sheet4， 运 行 如 下 过 程 。 

源 代码 : 实例 文档 15.xlsm/ 使 用 记录 窗 体 


1。 Sub Testl() 
2 Worksheets ("Sheet4") .ShowDataForm 
3. End Sub 


这 样 就 可 以 在 记录 窗 体 中 编辑 数据 记录 了 ， 如 图 12-43 所 示 。 


1 | 
2 | 
| 
5 
6 | 
了 

a | 
9 | 
人 





… | Sheet2 | Sheet3 | Sheet4 | Sheet5 | 
图 12-43 ”使 用 记录 窗 体 
如 采 工 作 表 中 的 数据 没有 标题 行 ， 执 行 上 述 代码 会 出 现 如 图 12-44 所 示 的 提示 对 话 框 。 


Microsoft Exce| 无 法 确定 当前 列表 或 迹 定 区 域 的 哪 一 行 包 含 询 标 签 ， 央 此 不 能 执行 此 命令 。 


。 车 要 将 选 定 区 域 或 列表 的 首 行 用 作 标 签 ， 而 不 星 数据 ,请 单 击 "确定 "按钮 。 
,请 选 定 任 一 单元 格 ， 再 重新 执行 此 命令 。 


. 如 果 选 定 的 数据 集 有 误 
. 若 要 要 创建 列 标签 ， 请 单 击 "取消 "入 钮 。 然 后 在 各 列 数据 顶 庄 栓 入 文本 标签 。 
- 有 关 创 建 标签 的 详细 内 容 ， 请 单 击 "帮助 "按钮 。 
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此 时 ， 单 击 “ 确 定 ” 按 钮 即 可 出 现 记 录 窗 体 。 
12.4.7 ”工作 表 的 保护 


对 工作 表 设 置 保护 ， 可 以 提高 工作 表 安 全 性 ， 使 得 工作 表 的 编辑 更 加 智能 化 。 

Worksheet.Protect 方法 可 以 对 工作 表 实 施 保 护 。 该 方法 的 语法 和 参数 如 下 : 

Worksheet.Protect (Password, DrawingObjects,Contents,Scenarlos, UserlnterfaceOnly, 
AllowFormattingCells,AllowFormattingColumns,AllowFormattingRows,AllowIlInsertingColumns, 


AllowlInsertingRows,AllowlInsertingHyperlinks,AllowDeletingColumns,AllowDeletingRows, 
AllowSorting,AllowFiltering,AllowUsijngPivotTables) 


所 有 参数 中 ， 只 有 Password 参数 的 类 型 是 一 个 字符 串 ， 

其 余 参数 均 为 布尔 理 ET 

为 了 理解 以 上 和 参数 的 言 “ 义 ， 在 Excel 中 选择 “ 审 
阅 ”一 更改” 一 保护 工作 表 ” 命令 ， 会 弹出 “保护 工作 表 
对 话 框 ， 如 图 12-45 所 示 。 

参数 Password:="nihao"， 相 当 于 在 密码 框 中 输入 nihao。 

参数 Contents:=True， 相 当 于 勾 选 了 对 话 框 中 的 “保护 
工作 表 及 锁定 的 单元 格 内 容 ” 复 选 框 。 

参数 AllowFormattingCells:=True， 相 当 于 勾 选 了 “设置 图 12-45“ 保 护 工作 表 ” 对 话 框 

上 上 面 对 话 框 中 自 “ 设 置 单元 格格 式 ”以 下 各 项 对 应 的 各 参数 都 以 Allow 开头 。 例 如 ， 
允许 搬 人 列 对 应 的 VBA 代码 是 AllowInsertingColumns:=True， 不 允许 删除 行 对 应 的 代码 是 
AllowDeletingRows=False， 以 此 类 推 。 

而 对 于 保护 后 哪些 单元 格 还 能 被 用 户 选 中 呢 ? 也 就 是 说 ， 如 何 用 VBA 日 动 
控制 保护 工作 表 中 “ 选 定 锁定 单元 格 ”以 及 “ 选 定 未 锁定 单元 格 ”这 两 个 复 选 框 呢 ? 这 要 用 
到 Worksheet 对 象 的 EnableSelection 属性 。 

工作 表 的 EnableSelection 属性 只 能 等 于 如 下 三 个 枚 举 第 量 之 

口 Excel.XIEnableSelection. xINoRestrictions: 不 加 任何 限制 ， 可 以 选择 所 有 单元 格 。 

口 Excel.XlEnableSelection. xINoSelection: 不 能 选中 任何 单元 格 。 

口 Excel.XlEnableSelection.xlUnlockedCells: 只 能 选中 未 锁定 的 单元 格 。 

打开 源 文件 “实例 文档 15.xlsm”， 切 换 到 工作 表 Sheet5， 运 行 如 下 过 程 ; 

源 代码 : 实例 文档 15.xlsm/ 保护 工作 表 


ee 





1 Sub Testl1() 

之 。 Dim Wst As Worksheet 
3 Set wst = ThisWorkbook.Worksheets!(o) 
4 


WSst .Protect Password:="nihao", DrawingObjects:=True, Contents:=True, 
Scenarios:=True, AllowInsertingColumns:=True 
wst .EnableSelection = Excel .XlEnableSelection.xlUnlockedCells 


06. End sub 


Cn 
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代码 分 析 : 代码 执行 后 ， 工 作 表 Sheets 被 设置 了 工作 表 保 护 ， 密 码 是 nihao， 只 允许 
插入 列 操作 。 并 且 ， 只 能 选中 未 锁定 的 单元 格 ， 也 就 是 只 有 Al:B10 区 域 可 以 用 鼠标 选中 。 

对 于 设置 了 保护 的 工作 表 ， 如 何 获 得 工作 表 的 保护 状态 和 参数 呢 ? 还 需要 了 解 Work- 
sheet 的 一 些 相关 属性 。 

口 Worksheet.ProtectContents: 当 工 作 表 处 于 保护 状态 ， 该 属性 返回 True。 

口 Worksheet.Protection: 是 一 个 保护 对 象 ， 通 过 该 对 象 可 以 获取 到 各 个 保护 参数 。 

源 代码 : 实例 文档 15.xlsm/ 保护 工作 表 


1] Sub Test3 1() 

pa Dim wst As Worksheet 

3 Set wst = ThisWorkbook.Worksheets (os) 

和 4 w3t.Protect Password:="nihao", DrawingObjects:=True, Contents:=True, 


Scenarios:=True, AllowInsertingColumns:=True 


J wst.EnableSselection = Excel .XlEnableSelectijon.xlUnlockedCells 

6. Ift wst.ProtectContents Then 

Ea MsgBox " 处 于 保护 状态 。" 

8. Else 

9. MsgBox " 未 保护 。" 

10. Emo If 

11. With wst.Protection 

12. Debug.Print .AllowInsertingColunmms, .AllowFiltering, .AllowFormattingCells 
3。 End With 


14. End Sub 


代码 分 析 : 第 6 行 代码 检测 工作 表 的 状态 ， 由 于 第 4 行 代码 变 置 了 工作 表 保 护 ， 所 以 返 
回 “ 处 于 保护 状态 ”。 

第 12 行 获取 保护 状态 下 各 参数 的 状态 分别 返回 True、False 、False。 

如 果 要 撤销 工作 表 的 保护 ， 需 要 用 Worksheet.UnProtect 方法 ， 该 方法 只 需要 提供 密码 
参数 。 

源 代码 : 实例 文档 15.xlsm/ 保护 工作 表 


1] Sub Test2{) 
2 Dim wst As Worksheet 
本 Set wst = ThisWorkbook.Worksheets(5) 
4. WwWSt .Unprotect Password:="nihao™ 
eh Ift wst.ProtectContents Then 
6 MsgBox " 处 于 保护 状态 。" 
1 Else 
8 MsgBox " 未 保护 。" 
End I 
10. End Sub 


代码 分 析 : 第 4 行 代码 用 于 撤销 保护 。 由 于 撤销 了 保护 ， 因 此 对 话 框 弹出 “未 保护 ”。 
12.4.8 工作 表 的 预 汉 和 打印 


在 日 常 办 公 中 ， 经 常 需要 打印 Office 文档 ， 对 于 工作 表 的 打印 ， 只 需要 学 习 打印 预览 
( Worksheet.PrintPreview 方法 ) 和 打印 输出 (Worksheet.PrintOnut 方法 )。 当 然 ， 工 作 表 打印 之 
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前 需要 进行 页 面 设置 ， 关 于 页 面 设置 的 介绍 ， 请 参考 12.2. 
PrintOut 方法 的 语法 和 参数 格式 如 下 : 
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8 广内 容 。 


Worksheet .Printout (From, To, Coples, Preview, ActivePrinter, PrintToFile,Collate,PrToFileName, 


IgnorePrintAreas) 


口 From 和 To: 
口 Copies: 设置 打印 份 数 ， 默 认为 1。 


分 别 设 置 打 印 的 页 面 范围 。 如 果 不 设置 ， 默 认 打 印 该 工作 表 的 所 有 页 面 。 


口 Preview: 打印 前 是 否 弹 出 预先 视图 ， 上 默认 为 False。 


口 PrintToFile: 是 否 打印 到 文件 。 如 果 要 打印 到 文件 ， 


需要 同时 设置 PrToFileName 参数。 


口 PrToFileName: 输出 的 文件 路 径 ， 只 有 当 PrintToFile 为 True 时 有 效 。 
为 了 更 好 地 理解 参数 的 含义 ， 打 开 Excel 的 打印 对 话 框 查看 ， 如 图 12-46 所 示 。 


上 面 对 话 框 中 画 圈 的 部 分 ， 就 是 设置 的 打印 份 数 和 页 面 范围 。 如 果 单 击 “ 打 印 机 


菜单 ， 看 到 如 图 12-47 所 示 的 “打印 机 ”选项 。 


;10.2.1.226 上 的 HP La... 
和 en 
设 音 
i 打印 活动 工作 过 
i _ 避 亲生 江 a i 作 | 
2 :| 至 3 
= 音 下 名 
| 日 打印 一 桐 的 页面 


下 拉 


4 10.2.1.226 上 的 HP Laserjet Professigonal P1606dn 
ss | 及 机 


过 


Fax 


就 洁 


" Microsoft Office Document Image Writer 


BE ly 123 123 1,2,3 


i 


Rierosoft WXPS Docurment WWriter 


a 就 冉 


[ | Foal 

ai 厘米 藉 志 
正六 bE _ 
志 : 1.7p 奇 水。 本 :1.7.- 工 


漆 力 叶 J 


攻 
图 12-46 “Excel 打印 对 话 框 
以 上 对 话 框 的 各 项 ， 均 可 以 通过 VBA 月 动 设 置 。 
源 代 码 : 实例 文档 15.xlsm/ 工作 表 的 预览 和 打印 


3.7 厘米 


1 Sub Test2 () 

二 Dim wst As Worksheet 

3 Set wst = ThisWorkbook.Worksheets (2) 
wst .PrintOut From:=l1, To:=3, Coples:=2, 
5. End Sub 


以 上 代码 表示 打印 1 ~ 3 页 ,打印 2 份 ， 
在 实际 应 用 中 ， 改 成 如 下 形式 更 为 合理 。 
源 代 码 : 实例 文档 15.xlsm/ 工作 表 的 预览 和 打印 


Sub Test31{) 
Dim wst As Worksheet 
Set wst = ThisWorkbook.Worksheets (2) 


WSt .PrintPrevyview 


1] 
Ma 


4 . 





图 12-47 


印 机 . 


打印 六 交 件 


“打印 机 ”选项 


Preview:=True 


打印 前 预览 。 
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Se WS3t .PrintOut From:=], To:=3, Copies:=2 
6. End Sub 


上 述 代码 中 ,第 4 行 的 打印 预 蜗 不 是 必需 的 。 
如 末 要 打印 到 文件 ， 而 不 从 打印 机 输出 ， 修 改 代码 如 下 。 
源 代码 : 实例 文档 15.xlsm/ 工作 表 的 预览 和 打印 


1 Sub Test4{) 

2 Dim wst As Worksheet 

E Set wst = ThisWorkbook.Worksheets (2) 

4. wst .PrintOut PrintToFile:=True, PrToFileName:="C: \temp\export .pdf" 
I. End sub 


重要 提示 : 如 果 要 打印 工作 簿 中 的 所 有 工作 表 ， 只 需要 把 Worksheet PrintOut 改 成 
Workbook.PrintOut 即 可 ， 参 数 要 求 不 变 。 男 外 ， 也 可 以 使 用 For Each 遍历 每 个 表 的 时 候 ， 
循环 打印 即 可 。 

知识 拓展 : 实际 工作 中 ， 有 时 候 会 遇 到 : 同一 个 工作 表 需 要 打印 出 多 份 ， 每 份 的 格式 相 
同 ， 但 是 部 分 数据 需要 有 改动 的 情况 。 像 这 种 情况 ， 就 需要 一 边 改 动工 作 表 一 边 打 印 ， 这 样 
从 打印 机 出 来 的 每 页 均 不 相同 。 

还 是 以 “实例 文档 15.xlsm ”的 工作 表 Sheet2 为 例 ， 利 用 数组 公式 的 方式 不 断 改动 学 生 
成 绩 ， 每 改动 一 次 ， 就 打印 一 张 出 来 。 

源 代 码 ， 实例 文档 15.xlsm/ 工作 表 的 预览 和 打印 


1 Sub Testos{() 

之 Dim 1 As Integer 

3 For 1 = 1 To 5 

4. Sheet2.Range ("Bl1:D1I3") .Formula = "~=RandBetween (60,80)"™ 
2 Sheet2.Printout 

6 Next 1 

i. End Sub 


代码 分 析 : 上 述 代 码 的 循环 结构 循环 5 次 ， 每 循环 一 次 ， 成绩 区 域 日 动 输 入 随机 整数 的 
公式 ， 然 后 打印 。 最 后 从 打印 机 出 来 的 5 张 纸 的 数据 都 不 一 样 。 


12.5 ”Worksheet 对 象 重 要 事件 


Excel VBA 的 文档 事件 ， 主 要 分 为 三 个 级 别 : 应 用 程序 级 事件 (参阅 10.4 方 相关 内 容 ); 
工作 禾 级 事件 (参阅 11.4 方 相关 内 容 ); 工作 表 、 图 表 事 件 。 

无 论 是 哪 一 个 级 别 的 事件 ， 功 能 是 类 似 的 ， 痢 是 当 用 户 做 出 菏 一 操作 时 ，Excel 能 够 日 
动感 知 并 做 出 啊 应 。 

Excel 文档 事件 在 很 多 场合 下 发 挥 着 巨大 作用 ， 例 如 工作 表 插 件 、 工 作 表 游戏 等 者 和 工 
作 表 事件 有 关系 。 

Worksheet 对 象 的 事件 过 程 要 书写 在 相应 的 工作 表 模 块 中 ,创建 事件 过 程 的 步 又 如 下 : 
在 VBA 界面 中 ， 双 击 工程 资源 管理 器 中 Sheetl 模块 ， 在 代码 区 域 左 侧 的 下 拉 列 表 框 中 选择 
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Worksheet， 在 右 侧 下 拉 列 表 框 中 出 现 各 种 事件 名 称 ， 根 据 需 要 选择 其 一 ， 代 码 区 域 会 日 动 
生成 模板 ， 如 图 12-48 所 示 。 


No visual Hosic for 有 证 on - mm - ERCct oi OO 大 本 本 
加 文件 旧 ”篇 费 昌 ”入骨 ”插入 人 D， 净 式 I@) 调 不 I0)】 运行 风 ”工具 中 ”外溢 得 序 各 ”窗口 [MW 壤 助 证) 
:国电 - 园 | 号 区 请 贞 | 量 和 | 国 角 | 虑 图 尝 和 | 和 | 行列 1 


… 国 ] Sheetl Sheetl) 
… 国 | ShaakZ Cheat 
:… 国 | Sheet3 [Sheet3) 
… 串 | ThisYarkbook 


局 性 - Sheetl 
sheetl Yorksheet 

















图 12-48 ”工作 表 事 件 模 块 


本 节 着 重 介 绍 Worksheet 的 以 下 三 个 重要 事件 。 
口 Worksheet SelectionChange: 工作 表 所 选区 域 发 生变 化 时 啊 应 。 
口 Worksheet Change: 单元 格 内 容 发 生 改变 时 啊 应 。 
J Worksheet BeforeRightClick: 在 工作 表 中 右 击 时 响应 。 
这 些 事件 由 于 在 前 面 几 章 介 绍 过 ， 因 此 这 里 要 分 析 一 下 它们 的 联系 与 区 别 。 
实际 上 ,工作 表 的 很 多 事件 名 称 ， 在 应 用 程序 事件 名 称 列表 、 工 作 短 事件 名 称 列表 中 均 
包含 。 它 们 的 功能 一 样 ， 但 是 声明 方式 以 及 作用 范围 不 同 。 例 如 ，SelectionChange 事件 有 如 
下 三 种 与 法 。 
口 应 用 程序 级 事件 : Private Sub App SheetSelectionChange(ByVal Sh As Object ByVal 
Target As 人 Range)。 
口 工作 短 级 事件 : Private Sub Workbook SheetSelectionChange(ByVal Sh As Object， 
ByVal Target As Range)。 
口 工作 表 级 事件 : Private Sub Worksheet SelectionChange(ByVal Target As Range)。 
应 用 程序 级 事件 的 作用 范围 是 应 用 程 厅 中 所 有 工作 锭 的 所 有 工作 表 ， 工 作 儿 级 事件 的 作 
用 范围 是 该 工作 短 中 的 所 有 工作 表 ， 而 工作 表 级 事件 则 是 只 在 该 工作 表 范 围 内 有 效 。 
其 他 工作 表 事 件 也 具有 类 似 的 性 质 。 


12.5.1 选中 区 域 变 更 事件 


当 用 鼠标 在 工作 表 中 选中 单元 格 区 域 时 会 啊 应 Worksheet SelectionChange 事件 ， 该 事 
件 过 程 中 的 Target 参数 返回 所 选单 元 格 区 域 。 
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下 面 举 一 个 实例 ， 当 用 鼠标 选择 新 的 区 域 后 ，Excel 的 状态 栏 显示 所 选区 域 的 相对 地 址 。 
在 实例 文档 17.xlsm 中 的 Sheetl 模块 中 书写 如 下 事件 过 程 。 
源 代 码 : 实例 文档 17.xlsm/Sheet1 


1. Private Sub Worksheet SelectionChange (ByVal Target As Range) 
A Application.SstatusBar = Target.Address (False, False) 
3. End Sub 


事件 过 程 和 普通 过 程 不 一 样 ， 不 需要 按 快捷 键 【 F5 】 执 行 。 只 需要 用 上 忌 标 在 工作 表 中 
选中 或 者 用 忌 标 单 击 单元 格 即 可 调用 到 事件 过 程 。 代 码 中 的 Target.Address(False, False) 表示 
所 选区 域 的 相对 引用 地 址 。 


12.5.1.1 限制 所 选区 域 

很 多 场合 下 ， 当 用 户 选中 单元 格 区 域 后 ， 需 要 先 判断 一 下 所 选区 域 的 形状 再 做 后 续 处 
理 。 例 如 ， 只 有 用 鼠标 选中 一 个 单元 格 才 做 后 续 处 理 ， 就 需要 在 事件 过 程 中 加 入 条 件 判断 
语句 。 

源 代码 : 实例 文档 17.xlsm/Sheet2 


1 Private Sub Worksheet SelectionChange (ByVal Target As Range) 
pa It Target.Cells.Ccount = 1 Then 

ES MsgBox "你 选中 了 : " & Target.Address (False, False) 
4 End If 

本 End Sub 


代码 分 析 : 当 用 户 用 鼠标 选中 工作 表 Sheet2 的 
多 个 单元 格 时 ， 什 么 也 不 发 生 ， 如 果 只 选中 一 个 单元 
格 ， 则 弹出 如 图 12-49 所 示 的 对 话 框 。 

再 如 ， 当 选中 区 域 的 左上 角 位 于 C 列 左 侧 ， 就 
涂 上 绿色 ， 选 中 C 列 右 侧 涂 上 黄色 。 





源 代码 : 实例 文档 17.xlsm/Sheet3 图 12-49 运行 结果 19 
1 Private Sub Worksheet SelectionChange (ByVal Target As Range) 

之 工 Target.Column <= 3 Then 

Se Target.Interior.Color = vbGreen 

4. Else 

= Target.Interior.Color = VbYe Low 

6 End I 

1 End Sub 


代码 分 析 : Target.Column 表示 所 选区 域 的 列 ， 也 就 是 所 选区 域 左 上 和 角 单 元 格 所 在 列 。 


12.5.1.2 ”注意 无 限 递归 

一 般 情 况 下 ，Worksheet SelectionChange 事件 过 程 的 代码 中 ， 不 应 该 包含 与 Range.Se- 
lect 方法 相关 的 语句 ， 否 则 极 多 造成 无 限 递 归 。 

打开 源 文件 “实例 文档 17.xlsm”， 切 换 到 工作 表 Sheet4， 用 鼠标 任意 选中 一 个 单元 格 ， 
例如 选中 B1， 会 产生 如 图 12-50 所 示 的 阶梯 效果 。 
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源 代 码 : 实例 文档 17.xlsm/Sheet4 


Private Sub Worksheet SelectionChange (ByVal Target As Range) 
2 If Target.Row > 10 Then 

: End 

4. End If 

二 Target.Interior.Color = vbhBlue 

6 Target .Offset (1l, 1).Select 

i End Sub 


代码 分 析 : 当 用 鼠标 选中 Bl 后 ,会 立即 响应 上 述 事 件 过 程 ， 由 于 B1 的 行 是 1， 不 会 
进入 到 了 If 结构 中 ， 首 先 把 Bl 填充 色 设置 为 蓝 色 ， 然 后 自动 选中 Bl 左下 角 的 单元 格 C2。 
Range.Offset(1,1) 表示 在 源 区 域 的 基础 人 下 偏 移 1 行 ， 然 后 辐 右 偶 移 1 列 ， 因 此 是 C2。 

由 于 第 6 行 代 码 选 中 了 C2 单元 格 ， 这 一 行为 会 导致 再 次 啊 应 Worksheet SelectionChange 
事件 过 程 ， 也 就 是 调用 了 事件 过 程 自 身 ， Pa 
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连续 调用 10 次 后 ，Target 的 所 在 行 超 过 10， 开 判断 成 立 ， 就 终止 整个 程序 。 
如 果 上 述 过 程 中 没有 写 第 2 ~ 4 行 的 于 结构 ， 很 可 能 造成 Excel 的 朋 沉 。 


12.5.2 ”工作 表 修 改 事 件 


工作 表 修 改 事件 是 指 单元 格 内 容 发 生 改 变 时 响应 的 事件 过 程 。 例 如 ， 用 户 在 单元 格 中 
编辑 数据 ， 或 者 使 用 VBA 自动 往 单元 格 中 写 人 值 、 清 空 单 元 格 内 容 等 操作 都 会 啊 应 Work- 
sheet Change 事件 。 

注意 ， 该 事件 的 名 称 与 前 面 讲 过 的 Worksheet SelectionChange 事件 只 有 一 个 单词 的 
差异 。 


12.5.2.1 根据 用 户 输入 激活 其 他 应 用 程序 

下 面 模 拟 当 用 户 在 单元 格 输入 中 文 命令 时 ， 目 动 司 动 相应 的 外 部 程序 。 

VBA 可 以 使 用 Shell 命令 启动 外 部 程序 ， 例 如 Shell "calc.exe", vbNormalFocus 可 以 目 动 
局 动 计算 需 。 

打开 源 文 件 “ 实 例文 档 17.xlsm”， 切 换 到 工作 表 Sheetl ， 在 任意 一 个 单元 格 中 输入 “ 计 
算 信 ”三 个 字 ， 然 后 按 【 Enter 】 键 确认 ， 会 看 到 上 日 动 跳出 计算 硕 ， 如 图 12-51 所 示 。 
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源 代 码 : 实例 文档 17.xlsm/Sheet1 


1 Private Sub Worksheet Change (ByVal Target As Range) 
2., If Target.Value = " 计算 器 " Then 

3 Shell "calc.exe", VbNormalFocus 

4. ElseIf Target.Value =“" 控制 面板 " Then 

与 Shell "control .exe", VbhNormalFocus 

6 Elseltft Target.Value = "命令 行 " Then 

a shell "cmd.exe™", VbNormalFocus 

| ElseIf Target.Value = " 记事 本 " Then 

9 


Shell “notepad.exe", VbNormalFocus 


10. Else 
11. MsgBox " 不 明白 你 想 于 什么 ! "™, VvbhExclamation 
| End If 


13. End Sub 


代码 分 析 : 当 用 户 在 单元 格 中 输入 内 容 后 ， 就 会 目 动 啊 应 Worksheet Change 事件 ， 


Target.Value 表示 被 修改 内 容 的 单元 格 的 值 。 


如 采用 户 在 单元 格 输入 其 他 不 相干 的 内 容 ， 将 会 阐 出 如 图 12-52 所 示 的 对 话 框 。 
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图 12-$1 运行 结果 21 图 12-52 


12.5.2.2 ”避免 无 限 递 上 归 
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Worksheet Change 事件 过 程 中 如 果 存 在 修改 单元 格 内 容 的 语句 ， 同 样 会 造成 无 限 递 归 。 
打开 源 文件 “实例 文档 18.xlsm”， 切 换 到 工作 表 Sheet1， 在 该 工作 表 的 任 一 单元 格 中 


输入 内 容 后 按 下 【 Enter 】 键 。 
源 代 码 : 实例 文档 18.xlsm/Sheet1 


1. Private Sub Worksheet Change (ByVal Target As Range) 
Target.offset (1 ，0U) -Value = 8 
3. End sub 


按 下 【 Enter 】 键 后 工作 表 中 结果 如 图 12-53 所 示 。 
为 什么 事件 过 程 中 主要 代码 只 有 一 行 ， 结 果 却 出 来 这 么 多 85 ? 


这 是 因为 事件 过 程 


中 ， 存 在 改变 单元 格 值 的 语句 ， 该 语句 执行 冠 后， 又 一 次 啊 应 了 事件 过 程 本 身 ， 造 成 无 
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限 递 归 。 

为 了 人 避 人 锡 计 如 此 类 的 无 限 递 归 ， 可 以 在 过 程 的 开头 和 结尾 加 上 
事件 的 开关 设置 。 

切换 到 工作 表 Sheet2， 输 入 任意 内 容 后 ， 会 看 到 后 来 只 出 现 一 
次 64。 代 人 码 如 下 。 

源 代码 : 实例 文档 18.xlsm/Sheet2 


Dm 
[me 


[mE 


a 


了 
3 


1 Private Sub Worksheet Change (ByVal Target As Range) 
之 Application.EnableEvents = False 

人 Target.0ffset (ll, 0) .Value = 64 

和 4 Application.EnableEvents = True 

” End Sub 





代码 分 析 : 用 户 输入 内 容 后 ， 啊 应 Worksheet Change 事件 ， 但 
功能 。 这 样 就 不 会 造成 无 限 递归 。 


12.5.3 ”工作 表 右 击 事件 


用 鼠标 在 单元 格 区 域 右 击 ， 会 啊 应 Worksheet BeforeRightClick 事件 ， 该 事件 包含 以 下 
两 个 参数 。 

D Target: 鼠标 右 击 时 所 选中 的 单元 格 区 域 。 

D Cancel : 该 参数 默认 为 False， 如 有 果 在 事件 过 程 中 设置 为 True， 将 不 会 弹出 黑 

元 格 右键 菜单 。 

12.5.3.1 屏蔽 默认 的 右键 菜单 

打开 源 文件 “实例 文档 18.xlsm”， 切 换 到 工作 表 Sheet3 ， 用 鼠标 在 任意 单元 格 右 击 。 

源 代 码 : 实例 文档 18.xlsm/Sheet3 





认 的 单 


1 Private Sub Worksheet BeforeRightClick (ByVal Target As Range, Cancel As Boolean) 
之 。 Target.Value = RndadI) 

3 Cancel = True 

4 End Sub 


代码 分 析 : 运行 上 述 过 程 ， 会 看 到 选中 的 区 域 中 自动 输入 了 随机 数字 ， 而 且 不 青 弹 出 右 
键 菜单 。 

12.5.3.2 ”弹出 自 定 义 菜单 

用 鼠标 在 工作 表 右 击 时 ， 屏 向 软 认 的 单元 格 右键 某 单 后 ， 还 可 以 跳出 其 他 有 沫 单 。 实 际 
上 ，Office 的 订单 是 一 种 工具 栏 对 象 ， 右键 琳 单 是 一 种 竖 排 工具 栏 而 已 。 

如 果 要 弹出 内 置 的 瑟 单 ， 需 要 知道 单 的 名 称 或 索引 1 写 。 

源 代码 : 实例 文档 18.xlsm/Sheet3 


1l. Private Sub Worksheet BeforeRightcClick (ByVal Target As Range, Cancel As Boolean) 
2 Target.Value = Rndl() 





264 Office VBA 开发 经 典 一 一 基础 入 门 卷 


3 Cancel = True 
4. Application.CommandBars ("Document") .ShowPopup 
3. End Sub 


代码 分 析 : CommandBars("Document") 是 Excel 的 一 个 内 
置 末 单 ，ShowPopup 方法 将 会 在 鼠标 附近 弹出 该 菜单 ， 绪 果 如 
图 12-54 所 示 。 

如 果 要 创建 一 个 用 户 自 定义 亲 单 ， 需 要 事先 搭建 利己 ED 
的 右键 菜单 ， 以 及 菜单 中 的 控件 。 打 开源 文件 “实例 文档 atmo 
18.xlsm”， 切 换 到 Sheet4， 在 VBA 代 人 码 区 域 中 切换 到 Sheet4 Bs 
模块 ， 运 行 CreateMenu 过 程 ， 目 的 是 确保 Excel 具有 Right 这 图 12-54 ”运行 结果 24 
个 右键 亲 单 。 代 人 码 如 下 。 

源 代码 : 实例 文档 18.xlsm/Sheet4 


四 ”保存 [5) 


| 
虽 HE | 
页 面 设置 (U).. 


条 挤 写 检查 (8).. 


1 
2 
3 
4 
5 
p 
站 
9 
9 





1 Private Sub CreateMenu() 

On Error Resume Next 

3 Dim cmb As Office.CommandBar 

4 Dim btl As Office.CommandBarButton, bt2 As Office.CommandBarButton 
i Application.CommandBars ("Right") .Delete 

和 Set cmb = Application.CommandBars.Add (Name:="Right", Position:=msoBarPopup) 
. Set btl = cmb.Controls.Add (Type:=msoControlButton) 

8 With btl 

9 .Caption = ™ 清除 值 " 

10. .OnAction = "m.Clear" 

11. .Faceld = 2950 

12. End With 

13。 Set bt2 = cmb.Ccontrols.Add (Type:=msoControlButton) 

14. With bt2 

上 9， .Caption = "随机 数 " 

16. -OnAction = "m.Random" 

1i. .FacelId = 290 

18. End With 


19. End sub 


以 上 代码 自动 创建 一 个 名 称 为 Right 的 右键 菜单 ， 然 后 向 该 右键 菜单 中 添加 两 个 按钮 ， 
功能 分 别 是 清除 单元 格 的 值 ， 以 及 向 单元 格 写 和 人 随机 数 。“ 清 除 值 ”按钮 被 单 击 后 ， 啊 应 标 
准 模 块 m 中 的 Clear 过 程 ;“ 随 机 数 ” 按 钮 会 啊 应 Random 过 程 。 

标准 模块 m 中 的 Clear 过 程 代 公 如 下 。 

1. Sub Clearl() 


2 . Selection.ClearContents 
3。 End Sub 


Random 过 程 代 人 码 如 下 。 


1. Sub Randomt() 
pi Selection.Value = Rnad() 
3. End Sub 


接 下 来 在 Sheet4 的 单元 格 中 右 击 ， 结 果 如 图 12-55 所 示 。 图 12-55 ”运行 结果 25 
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这 是 因为 工作 表 的 事件 过 程 中 ， 有 如 下 一 行 代码 : 
Application.CommandBars ("Right") .ShowPopup 
天 于 工具 栏 和 来 单 方面 的 内 容 ， 请 参阅 第 17 半 相 关内 容 。 


12.5.3.3 ”识别 组 合 键 

利用 API 因数 可 以 识别 键 蔓 上 的 按键 是 否 处 于 按 下 状态 ， 根 据 这 个 原理 ， 当 鼠标 右 击 
单元 格 时 ， 根 据 键盘 按键 的 不 同 ， 做 出 不 同 的 反应 。 

打开 源 文件 “实例 文档 32.xlsm”， 切 换 到 工作 表 Sheetl ， 用 鼠标 单 击 单元 格 之 前 ， 按 
下 功能 键 【F10 】 会 弹出 “行业 单 ”; 如 宁 按 住 【 Ctrl 】 键 的 同时 右 击 单元 格 ， 会 弹出 “工作 
表 标 签 ”的 右键 全 单 ; 如 末 按 住 【 Alt 】 键 的 同时 右 击 单元 格 ， 会 弹出 “ 困 面 ”的 右键 末 单 。 
其 原因 是 Sheetl 的 工作 表 事 件 中 有 如 下 代码 。 

源 代码 : 实例 文档 32.xlsm/Sheet1 


本 Private Declare Function GetKeYyState Lib "user32" (ByVal nVirtKey As Long) As lInteger 
之 Private Sub Worksheet BeforeRlghtClIck(BYVal Target As Range, Cancel As Boolean) 

本 Cancel = True 

4. Ift (GetKeyState (VBA.KeyCodeConstants.vbKeyFl0) And &H8000) Then 

3 Application.CommandBars ("Row") .ShowPopup 

6 ElseIf (GetKeyState (VBA.KeyCodeConstants.vbhKeyControl) And &H8000) Then 
了 Application.CommandBars ("Ply") .ShowPopup 

8 ElselIft (GetKeyState (VBA.KeyCodeConstants.vbhKeyMenu) And &H8000) Then 
Application.CommandBars ("DeskTop") .ShowPopup 

10. End If 


ll1. End Sub 


代码 分 析 : 第 1 行 代码 是 一 个 API 函数 ， 写 在 模块 项 部 即 可 ， 用 来 判断 键盘 的 键 是 否 
处 于 按 下 状态 。 

第 3 行 代 人 码 用 于 屏蔽 单元 格 本 和 号 的 右键 菜单 。 第 4 行 代码 的 下 条 件 选 择 中 ，VBA. 
KeyCodeConstants.vbKeyF10 是 一 个 键盘 枚 举 和 常量， 只 有 按 下 【 F10 】 才 能 执行 该 分 文 的 语 
句 。 同 理 ， 第 6 行 代码 识别 【 Ctrl ] 键 ,第 8 行 代码 识别 【 Alt 】 键 的 按 下 状态 。 

这 样 处 理 ， 即 使 都 是 在 工作 表 中 右 击 ， 做 出 的 反应 也 是 不 同 的 。 


12.5.4 ”使 用 类 模块 操作 Excel 文档 事件 


虽然 Excel VBA 中 的 工作 短 、 工 作 表 事件 为 开发 者 提供 了 便利 ， 大 大 降低 了 开发 难度 ， 
但 是 从 程序 设计 的 角度 来 看 ， 会 让 人 们 对 事件 机 制 产 生 误解 。 如 果 考 虑 到 今后 程序 作品 的 封 
装 ， 那 么 事件 过 程 的 封装 就 是 一 个 难题 。 

这 里 可 以 思考 一 下 ， 为 什么 Excel VBA 中 工作 禾 级 、 工 作 表 级 的 事件 产生 得 那么 容易 ， 
而 应 用 程序 级 的 事件 过 程 相对 复杂 。 

这 里 用 类 模块 的 方式 来 实现 工作 表 事 件 。 

第 一 步 : 新 建 一 个 工作 竹 ， 在 VBA 工程 中 ,插入 一 个 类 模块 ， 类 模块 重 命名 为 ClsEvent。 

第 二 步 : 在 类 模块 中 输入 如 下 代码 。 
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1 Public WithEvents wst As Excel .Worksheet 

2. Private Sub wst SelectionChange {ByVal Target As Range) 
3 Target.Interior.Ccolor = vbRed 

4 End Sub 


代码 分 析 : wst 是 一 个 具有 事件 过 程 的 对 象 变量 ， 第 2 ~ 4 行 是 它 的 事件 过 程 。 
第 三 步 : 在 VBA 工程 中 插入 一 个 标准 模块 ， 重 命名 为 m。 
第 四 步 : 在 模块 m 中 输入 如 下 代码 。 
Dim E As New ClsEvent 
Sub Testl{() 
Set E.wst = ThisWorkbook.Worksheets (2) 
Sub 
Sub Test2() 
Set E.wst = Nothing 
End Sub 


代码 分 析 : E 是 一 个 ClsEvent 的 新 实例 。 

第 五 步 : 用 眼 标 选择 Testl ， 运 行 这 个 过 程 ， 然 后 切换 到 Excel 界面 中 的 Sheet2 工作 表 ， 
任意 选中 一 个 区 域 ， 会 看 到 该 区 域 十 充 色 变 红 。 

如 宁 要 去 掉 这 个 效果 ， 只 需要 再 次 执行 一 下 Test2 过 和 
事件 了 。 

本 方 源 文件 实例 文档 19.xlsm。 

学 习 使 用 类 模块 方式 创建 事件 的 过 程 ， 将 有 助 于 今后 VBA 代码 封 竣 方面 的 学 习 。 


器 
| 
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，Sheet2 就 不 再 啊 应 类 模块 中 的 





习题 


1. 假定 一 个 工作 竹中 每 个 工作 表 都 是 以 月 份 命名 的 ， 如 图 12-56 所 示 。 请 用 VBA 日 动 
为 所 有 工作 表 重 命名 ， 在 每 个 工作 表 原 有 名 称 前 面 加 上 “2017 年 ”。 






' 3 月 | 4 月 |5 明 | @ 





图 12-56 “习题 1 图 


2. 编写 一 个 过 程 ， 该 过 程 能 够 让 工作 竹中 所 有 工作 表 倒 序 排列 ， 也 就 是 最 右边 的 工作 
表 移 动 到 最 左边 ， 以 此 类 推 。 

3. 利用 工作 表 的 BeforeDoubleClick 事件 编写 程序 ， 当 用 鼠标 双击 任何 一 个 单元 格 时 ， 
该 单元 格 的 内 容 与 其 正 下 方 的 单元 格 内 容 互 换 。 例 如 ， 在 图 12-57 中 ， 双 击 B3 单元 格 ， 使 
得 B3 的 内 容 是 “ 张 三 ”"，B4 的 内 容 变 成 “ 李 四 ”。 





图 12-57 习题 3 图 
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图 表 Chart 对 象 


Office 中 的 图 表 是 根据 数据 生成 的 图 形 。 使 用 图 表 可 以 把 数据 可 视 化 地 呈现 出 来 ， 当 数 
据 发 生变 化 时 ， 不 需要 重新 绘制 图 表 ， 即 可 动态 更 新 。 

除了 Excel 以 外 ，Word、PowerPoint 等 其 他 组 件 也 支持 图 表 。 图 表 技 术 也 是 微软 Office 
的 一 个 重要 的 技术 内 容 。 

本 童 主要 了 解 和 熟悉 Chart 对 象 的 重要 属性 、 笛 用 、 方 法 和 事件 ， 和 擎 握 使 用 VBA 操作 
和 控制 图 表 。 

在 学 习 图 表 自 动 化 之 前 ， 需 要 事先 了 解 一 下 Excel 中 手工 创建 和 修改 图 表 的 步 又 。 

在 Excel 2013 中 ， 首 先 用 鼠标 选取 数据 区 域 ， 然 后 选择 “插入 ”命令 ,， 单 击 “ 图 表 ” 碳 
下 角 的 箭头 ， 会 弹出 “搬入 人 图表” 对 话 框 ( 见 图 13-1)。 选 择 合 适 的 图 表 类 型 后 ， 单 击 “ 确 
定 ” 按 钮 ， 立 即 在 工作 表 上 出 现 一 个 簇 状 柱 形 图 。 
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。 汪 从 己 齐 守 扣 语源 可 字典 党 罕 冲 查 守卫 机 全 导 几 南 村 和 共计 审 志 直角 


ee 当 凌 别 的 顺序 并 干 至 村 时 ， 请 使 用 





图 13-1 Excel 图 表 对 话 框 
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一 个 图 表 包 含 很 多 对 象 ， 例 如 图 表 标 题 、 图 例 、 系 列 格式 ， 这 些 都 可 以 在 后 期 进行 改 
动 。 特 别 要 注意 的 是 ， 用 鼠标 在 图 表 区 域 选择 对 象 时 ， 选 择 “ 格 式 ” 一 “当前 所 选 内 容 ” 命 
令 ， 可 以 看 到 左上 和 角 的 组 合 框 内 容 会 相应 地 变化 ， 如 图 13-2 所 示 。 
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图 13-2 ”图 表 选 项 
默认 情况 下 ， 在 Excel 中 插入 图 表 后 ,该 图 表 会 浮动 在 工作 表 中 ， 奈 住 一 部 分 单元 格 区 
域 。 这 种 对 象 属于 工作 表 中 的 图 表 对 象 (Chartobject)， 图 表 内 藤 于 工作 表 中 。 
在 图 表 区 右 击 ， 在 弹出 的 快捷 菜单 中 选择 “移动 图 表 ” 命 令 ， 如 图 13-3 所 示 ， 可 在 弹 
出 的 殉 动 用 胡 ， 对 话 框 中 进行 设置 ， 把 内 散在 工作 表 中 的 图 表 对 象 作为 独立 的 “ 表 ” 插 人 


“移动 图 才 ” 对 话 框 中， 关中 “新 工作 才 ” 前庭 按 印 “并 重合 各， 如 图 13 4 所 示 。 
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图 13-3 ”移动 图 表 图 13-4 重 命名 图 表 工 作 表 的 名 称 
单 击 “确定 ”按钮 后 ， 图 表 成 为 一 个 独立 的 工作 表 ， 如 图 13-5 所 示 。 
这 种 形式 的 图 表 ， 没 有 单元 格 区 域 ， 也 没有 行 号 列 标 ; 与 Worksheet 是 平 级 的 对 象 ， 其 
父 对 象 都 是 Workbook， 但 是 仍然 依赖 于 创建 图 表 时 的 数据 源 。 
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下 面 的 过 程 用 来 过 历 工 作 短 中 的 所 有 表 的 信息 。 











图 表 Chart 对 象 ”2&69 
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图 13-5 图 表 工 作 表 


源 代 码 : 实例 文档 75.xlsm/ 认识 图 表 


1 Sub Testl1() 

pa Dim Ww As ObJject 

习 For Each w In ThisWorkbook.sheets 
4 


|. Debug.Print w.Name, TypeName (w) 

3 Next w 

0. Debug.Print ThisWorkbook.Worksheets.Count 
1 Debug.Print ThisWorkbook.Charts.Count 

8 End Sub 


代码 分 析 由 于 该 工作 短 含 有 两 种 以 上 类 型 的 表 ， 因 此 对 
象 变量 w 需要 定义 为 Object 类 型 。 第 3 ~ 5 行 代码 在 立即 窗口 
打印 每 个 表 名 和 表 的 类 型 名 。 第 6 行 代码 打印 工作 簿 中 普通 工 
作 表 的 个 数 ， 第 7 行 代码 打印 图 表 工 作 表 的 个 数 。 

结果 如 图 13-6 所 示 。 


13.1 Chart 对 象 重要 属性 





Sheetl 


Sheet2 

Chartl1 

Chart2 
2 


Worksheet 
Worksheet 
Chart 
Chart 





Chart 对 象 具 有 和 Worksheet 对 象 一 样 的 诸多 属性 ， 例 如 Name、Tab 、Visible 等 ， 但 也 


有 一 些 与 图 表 密 切 相 关 的 其 他 重要 属性 。 
13.1.1 图 表 的 构成 
一 个 图 表 主 要 由 以 下 部 分 组 成 。 
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口 数据 源 。 

D 图 表 区 。 

口 绘图 区 。 

口 坐标 轴 (水 平 、 垂 直 )、 网 格 线 等 。 

OD 标题 (图 表 标题 、 坐 标 轴 标 题 ) 。 

口 数据 系列 。 

以 上 这 些 选 项 一 旦 设 定 ， 都 可 以 用 VBA 来 进行 读 写 。 


13.1.2 ” 读 瑟 图 表 类 型 


Chart 对 象 的 ChartType 属性 是 用 来 谈 取 和 修改 图 表 类 型 的 。 图 表 类 型 的 枚 举 稍 量 可 以 
由 Excel.XIChartType 输入 一 个 小 数 点 获得 。 第 用 图 表 的 枚 举 值 如 下 。 

口 xlArea: 面积 图 。 

口 x1ColumnClustered: 和 族 状 柱 形 图 。 

D xlLine: 折线 图 。 

口 xlPie: 饼 图 。 

口 XIXYScatter: XY 散 点 图 。 

下 面 的 过 程 判断 图 表 的 类 型 ， 然 后 修改 图 表 类 型 为 饼 图 ， 最 后 再 判断 一 次 类 型 。 

源 代 码 : 实例 文档 75.xlsm/ 认识 图 表 


1 Sub Testz (|) 

2 Dim cc As Chart 

3 Set c = ThisWorkbook.Charts ("Chart2") 

= With c 

导 : MsgBox ”目前 图 表 的 类 型 是 : " & .ChartType 
.ChartType = Excel .XlChartType.xlPie 

1 MsgBox ™ 修改 后 图 表 的 类 型 是 ， ”二 .ChartType 
8 End With 

9 End Sub 


运行 上 述 过 程 ， 前 后 两 次 对 话 框 输出 的 结果 分 别 是 51 和 5，,， 分别 对 应 于 枚 举 值 
xlColumnClustered 和 xlPie. 


13.1.3 ”修改 图 表 数 据 源 


Chart 对 和 象 的 SetSourceData 方法 可 以 修改 图 表 的 数据 源 。 下 面 的 实例 中 ， 图 表 原 先 的 数 
据 源 是 Al:C12。 
源 代码 : 实例 文档 75.xlsm/ 认识 图 表 


1。 Sub Test3() 
2 Dim C As Chart 
sh Set cc = ThisWorkbook.Charts ("Chart2™") 
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He 


With c 

.SetSourceData Source:=Sheets ("Sheetl1") .Range ("Al:C8"), PlotBy:=x]Colummns 
6. End With 
1. End Sub 


运行 上 述 代 码 后 ， 图 表 工 作 表 如 图 13-7 所 示 。 








13.1.4 ”设置 图 表 标 十 


图 表 方 面 的 标题 包含 图 表 标 题 (ChartTitle )、 横 坐标 轴 标 题 、 纵 坐标 轴 标 题 。 
下 面 的 实例 为 图 表 设 置 标题 。 
源 代码 : 实例 文档 75.xlsm/ 认识 图 表 


1. Sub Test4() 

pa Dim C As Chart 

Ss Set c = ThisWorkbook.Ccharts ("Chart2") 

4. With c 

5 -HasTitle = True 有 有 图 表 标 题 

6. .ChartTitle.Characters.Text = " 成绩 表 " 

1. .Axes (xlCategory, XlPrimary) .HasTitle = True 主要 分 类 轴 显 示 标 题 
8. -Axes (xlCategory, XlPrimary) .AxlisTitle.Characters.Text = ” 姓名 " 

马 。 -Axes (xlValue, xlPrimary) .HasTitle = True l 主要 数值 轴 显 示 标 题 
10 。 .Axes (xlValue, xlPrimary) .AxisTitle.Characters.Text = ™ 分 数 " 

11。 .HasDataTable = True 显示 数据 表 

下 End With 


13. End Sub 
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代码 分 析 : 第 6 行 代码 设置 图 表 的 标题 ， 第 8 行 代码 设置 横 坐 标 轴 的 标题 ， 第 10 行 代 
但 设置 纵 坐 标 轴 的 标题 。 

第 11 行 代 码 显 示 数 据 表 ， 这 将 会 在 图 表 下 部 显示 数据 源 。 

运行 上 述 过 程 ， 络 末 如 图 13-8 所 示 。 





图 13-8 ”运行 结果 3 
如 果 要 对 标题 进行 更 许 细 的 格式 设 定 ， 需 要 用 到 AxisTitle 对 象 。 
下 面 的 过 程 对 图 表 的 主 分 类 轴 的 标题 文字 进行 字体 格式 设 定 。 
源 代 码 : 实例 文档 75.xlsm/ 认识 图 表 


1 Sub Testo{() 

之 Dim cc As Chart 
3 Dim 七 As Excel .AxisTitle 

4 Set c = ThisWorkbook.Charts{("Chart2") 
Ds c.HasDataTable = False 

6 Set 七 = c.Axes (xlCategory, XlPrimary) .AxisTitle 
1 With 七 

8 Caption = 学生 姓 韦 “ 

9 .Characters.Font.Name = " 华文 新 魏 了 
10. .Characters.Font.Size = 16 

11. .Characters.Font.Iltalic = True 

12. End With 

13. End Sub 


代码 分 析 : 对 和 象 变量 t 是 一 个 标题 对 象 ， 在 本 例 中 代表 水 平 类 别 轴 的 标题 文学 。 
运行 上 述 过 程 ， 主 分 类 轴 的 文字 格式 发 生 了 变化 ， 如 图 13-9 所 示 。 
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图 13-9 ”运行 结果 4 


13.1.5 ”设置 图 表 区 与 绘图 区 格式 


图 表 区 是 指 图 表 外 框 的 区 域 ,， 绘图 区 是 指 坐 标 轴 包含 的 内 部 区 域 。 图 表 区 用 Chart 对 和 象 
的 ChartArea 对 象 来 描述 ， 绘 图 区 用 PlotArea 对 象 来 描述 。 
源 代码 : 实例 文档 75.xlsm/ 认识 图 表 


1] Sub Test6() 

pa Dim C As Chart 

“Pe Set c = ThisWorkbook.cCcharts{"Chart2") 

4. With c.ChartArea 

a -Border.LineSstyle = Excel .XxXlLineSstyle.xlDash 
0. -Border.Weight = 3 

1. .Border.Color = VvbBlue 

8 .Interior.Color = vbhYellow 

End With 

10. With c.PlotArea 

二 .Border.LineSstyle = Excel .XlLinestyle.xlDashDot 
12. .Border.Weight = 2 

13. .Border.Color = vbRed 

14. .Interior.Color = vbhWhite 

有 End With 


16. End Sub 


代码 分 析 : 第 4 ~ 9 行 代码 用 来 设置 图 表 区 ， 分别 设 定 线 型 、 线 党、 边框 颜色 和 底 纹 
颜色 。 
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第 10 ~ 15 行 代 码 用 来 设置 绘图 区 的 格式 。 
运行 上 述 过 程 ， 结 果 如 图 13-10 所 示 。 
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13.1.6 设置 坐标 轴 格 式 


通 稼 情况 下 ， 一 个 图 表 有 水 平 类 别 轴 (xlCategory) 和 垂直 数值 轴 ( xlValue )， 在 Excel 
VBA 中 ， 坐 标 轴 是 Axis 对 象 ， 坐 标 轴 对 象 有 很 多 成 员 和 属性 。 其 中 网 格 线 也 是 坐标 轴 的 成 
员 ， 例 如 ,平时 看 到 的 水 平 网 格 线 其 实 是 垂直 数值 轴 的 网 格 线 。 

源 代 码 : 实例 文档 75.xlsm/ 认识 图 表 


1 Sub Testy/ (|) 

之 Dim C As Chart 

3 Dim YY As Excel .Axis 

4 Set C = ThisWorkbook.Charts{"Chart2") 

3 Set YY = Cc.Axes (xlValue) 

6 With vy 

了 .HasMajorGridlines = True ' 显示 主要 网 格 线 
8 .HasMinorGridlines = True ' 显示 次 要 网 格 线 
3 .MajorGridlines.Border.Color = vbBlue 

10. .MajorGridlines.Border.Weight = 3 

11. .MinorGridlines.Border.Color = vbBlack 

12. -MinorGridlines.Border.Weight = 2 

13. .MinimumScale = 20 ' 数值 轴 的 最 小 值 
14. MaximumSscale = 120 ' 数值 轴 最 大 值 
12. .Border.LineSstyle = Excel .XlLinestyle.xlDot ， 坐标 轴 文 本 框 边框 线 
16. End With 


1i1. End Sub 
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代码 分 析 : 对 象 变量 y 是 图 表 的 垂直 数值 轴 ， 和 第 7 ~ 15 行 代码 都 是 设置 坐标 轴 的 格式 的 。 
运行 上 述 过 程 ， 结 果 如 图 13-11 所 示 。 
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13.1.7 “操作 数据 系列 


一 个 图 表 中 可 以 有 一 个 以 上 的 数据 系列 (Series)， 例 如 图 表 只 绘制 了 全 班 学 生 的 语文 成 
绩 ， 那 么 柱 形 图 中 每 个 学 生 占 据 一 个 “ 柱 ”， 这 个 柱 的 高 度 束 是 该 学 生 的 场 文成 绩 。 如 末 同 
时 绘制 语文 、 数 学 、 和 英语 3 门 课 的 成 绩 ， 那 么 一 个 学 生 有 3 个 柱 ， 这 就 说 明 该 图 表 有 3 个 数 
据 系列 。 

数据 系列 是 可 以 单独 设 定 的 ， 在 图 表 中 选中 一 个 系列 并 右 击 ， 在 弹出 的 快捷 沫 单 中 选 
择 “ 设 置 数据 系列 格式 ”命令 ， 在 右 侧 的 任务 窗 格 中 进行 详细 设 定 ， 例 如 改变 数据 系列 的 颜 
色 、 数 据 标 记 等 。 同 时， 在 公式 编辑 栏 中 可 以 看 到 一 个 公式 ， 这 就 是 数据 系列 的 公式 ， 如 
图 13-12 所 示 。 
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图 13-12 ”数据 系列 的 公式 
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13.1.8 





量 历 数据 系列 


图 表 中 所 有 的 数据 系列 用 SeriesCollection 表示 ， 每 个 数据 系列 都 是 Series 对 象 ， 该 
对 象 也 有 很 多 属性 和 方法 。 图 表 中 数据 点 的 格式 ， 以 及 数据 标签 都 可 以 通过 Series 的 改动 
来 实现 。 
下 面 的 过 程 遍历 图 表 中 的 数据 系列 ， 在 立即 窗口 打印 数据 系列 的 名 称 和 公式 。 
源 代码 : 实例 文档 75.xlsm/ 认识 图 表 
1] Sub Test8() 
2 Dim C As Chart 
3 Dim ss As Excel .Series 
4 。 Set c = ThlsWorkbookK .Charts ("Chart2") 
. For Each ss In c.SeriesCollection 
6 Debug.Print s.Name, 3.Formula 
了 
8 


NexXt Ss 


End Sub 


运行 上 述 过 程 ， 立 印 窗口 的 打印 结果 如 图 13-13 所 示 。 





图 13-13 运行 结果 7 
下 面 的 实例 把 数据 系列 的 图 表 类 型 更 改 为 折线 图 ， 并 设置 数据 系列 格式 。 
源 代码 实例 文档 75.xlsm/ 认识 图 表 


1 SU Test91{) 

之 Dim cc As Chart 

3 Dim 3 As Excel .Series 

4 Set c = ThisWorkbook.Charts{("Chart2") 

i Set s = c.SeriesCollection({" 语文") 

6 3s.ChartType = xlLineMarkers ' 改变 序列 的 类 型 为 折线 图 ( 带 数 据点 ) 
1 3s.Format.Line.Style = msoLineThinThick “" 折线 的 线 型 是 粗细 线 
8 3.Format.Line.Weight = 5 ' 线 帘 
3.Markerstyle = xlMarkerSstyleSquare ' 标记 样式 

10 3.MarkerSize = 8 ' 标记 大 小 

11 ss.MarkerForegroundColor = vbRed ' 标记 的 颜色 

12. 3.Smooth = True ' 平滑 化 


13. End Sub 


代码 分 析 : 对 象 变量 s 表示 的 是 “语文 ”这 个 数据 系列 ， 其 原先 是 柱 形 图 。 

第 6 行 代 码 更 改 该 序列 为 折线 图 , 第 7 ~ 8 行 代码 改变 折线 的 线 型 , 第 9 ~ 11 行 代码 
改变 数据 标记 点 的 样式 ， 第 12 行 代码 把 折线 平滑 化 。 

运行 上 述 过 程 ， 结 果 如 图 13-14 所 示 。 
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图 表 标 题 





后 居 葡 剂 玩 蜗 到 守 儿 兴 兰 到 率 麻 博 率 幅 坦 
me 禾 学 加 一 再 文 


图 13-14 更改 系列 的 图 表 类 型 


13.1.9 “操作 数据 点 


图 表 中 每 个 数据 系列 都 由 硅 干 数据 点 组 成 ， 例 如， 语文 成 绩 这 个 序列 由 7 个 学 生 的 成 绩 
构成 ， 那 就 包含 7 个 数据 点 (Point)。 每 个 数据 点 可 以 显示 数据 标记 。 

对 于 簇 状 柱 形 图 ， 每 个 柱 形 都 是 数据 点 。 一 个 数据 系列 中 的 所 有 数据 点 的 格式 可 以 都 相 
同 ， 也 可 以 为 个 别 数据 点 进行 特殊 的 格式 设 定 。 

下 面 的 实例 中 ， 图 表 中 显示 的 是 学 生 的 语文 、 数 学 成 绩 的 篮 状 柱 形 图 。 运 行 以 下 过 程 
可 以 把 “语文 ”这 个 数据 系列 的 第 3 个 数据 点 显示 数据 标记 ， 并 且 把 数据 点 的 前 景色 设置 
为 蓝 色 。 

源 代码 : 实例 文档 77.xlsm/ 操作 数据 点 








1 Sub Testl]{() 

到 Dim C As Excel .Chart 

Dim 3S As Excel .Series 

4. Dim P As Excel .Point 

a Set C = ThisWorkbook.Charts ("Chartl™) 

6. Set 3S = C.SeriesCollection.Item(" 语文 ") 

1 Set P = S.Polnts(3) 

8 P.ApplyDataLabels (xlDataLabelsShowValue) 
9 P.Format .Fill.ForeColor.RGB = RGB (O00, 0, 202) 
10. MsgBox P.Name 

11. P.Select 


12. End Sub 


代码 分 析 : 第 4 行 代 码 ， 对 象 变量 P 是 一 个 数据 点 对 象 。 本 例 中 , P 代表 “语文 ”系列 
的 第 3 个 点 。 
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第 10 行 代码 ， 对 话 框 中 显示 该 数据 点 的 名 称 字 符 串 ， 返 回 S1P3， 意 思 是 第 1 系列 的 第 
3 个 数据 点 。 

第 11 行 代 人 码 ， 单独 选中 数据 点 。 

运行 上 述 过 程 ， 结 果 如 图 13-15 所 示 。 













































































13.1.10 ”操作 数据 标记 


数据 标记 ( DataLabel) 是 对 应 于 数据 点 的 对 象 ， 通 浓 位 于 数据 点 上 方 附近 。 一 个 数据 系 
列 中 通常 可 以 把 所 有 数据 点 的 数据 标记 显示 出 来 ,但 是 也 可 以 把 个 别 的 数据 标记 显示 出 来 而 


对 其 他 进行 隐藏 。 
下 面 的 代码 把 第 1 系列 第 3 数据 点 的 数据 标记 显示 出 来 ， 并 设置 格式 。 
源 代码 : 实例 文档 77.xlsm/ 操作 数据 标记 


1 Sub Testl{() 

2 Dim C As Excel .Chart 
3 日 As Excel .Series 
二 P As Excel.Point 
Se Dim L As Excel .DataLabel 
6 (2 
了 S 
8 P 
9 


Set = ThisWorkbook.Charts ("Chartl1™.) 
Set = C.SeriesCollection.Item(" 语文 ") 
Set = 3S.Points (3) 
Set L = P.DataLabel 
10. L.ShowValue = True 
11. L.Width = 25 
12. L.Characters.Font.Size = 16 


13. L.Characters.Font.Ttalic = True 


14. 
15。, 
16. 
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L.Format .Fill.ForeColor.RGB = RGB (255, 255, 0) 
MsgBox L.Text 
L.Select 


1i. End Sub 


代码 分 析 对 象 变量 工 是 一 个 数据 标记 , 第 11 ~ 14 行 代码 设置 该 标记 的 格式 ,第 15 
行 代码 设置 对 话 框 返回 数据 标记 的 文本 ， 返 回 52。 
第 16 行 代码 自动 选中 该 标记 ， 运 行 结 果 如 图 13-16 所 示 。 






























































13.1.11 





操作 图 例 


图 例 是 一 个 用 来 表示 数据 系列 的 图 形 框 ，VBA 中 的 图 例 对 象 是 Chart.Legend。 可 以 用 
VBA 日 动 设置 图 例 的 位 置 和 格式 。 

下 面 的 过 程 设置 图 表 图 例 的 位 置 和 格式 。 

源 代码 : 实例 文档 77.xlsm/ 操作 图 例 


之 - 


1] 

本 

44 
es 
6. 
i 
8 
9 


10. 
11. 


Sub Testl1() 


Dim C As Excel .Chart 
Dim 工 As Excel .Legend 
Set C = ThisWorkbook.Charts ("Chartl™") 
Set 工 = C.Legend 
With 工 
.Position = Excel.XlLegendPosition.xlLegendPositionR1ight 
.Format .Line.Style = msoLineThickBetweenThin 
.Format .Line.ForeColor.RGB = vbBlue 
-Format .Fill.ForeColor.RGB = vbhCyan 
.Width = 70 
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上 二。 -Height = 40 
13。 .IncludeInLayout = True 
14. End With 


15. End Sub 

代码 分 析 : 对 象 变量 工 是 一 个 图 例 对 象 。 第 7 行 代码 设置 图 例 显 示 于 图 表 的 右 侧 。 第 
8 ~ 9 行 代码 设置 图 例 框 的 边框 线 格式 。 第 10 行 代码 设置 图 例 框 的 填充 色 。 第 11 ~ 12 行 
代码 设置 图 例 框 的 大 小 。 第 13 行 代码 表示 图 例 框 放 在 绘图 区 外 侧 。 

运行 上 述 过 程 ， 结 采 如 图 13-17 所 示 。 








13-17 设置 图 表 的 图 例 


13.2 ”Chart 对 和 佘 常用 方法 


Chart 对 象 与 Worksheet 是 同一 级 对 象 ， 因 此 Worksheet 的 很 多 方法 同样 适用 于 图 表 工 
作 表 。 


13.2.1 图 表 工 作 表 的 删除 


下 面 的 过 程 把 名 称 为 Chart2 的 图 表 工 作 表 删 除 。 
源 代码 : 实例 文档 75.xlsm/ 认识 图 表 


1. Sub Test]() 

2 Dim C As Chart 

二 Application.DisplayAlerts = False 

4 Set c = ThisWorkbook.cCchartst{"Chart2") 
c.Delete 


6. 
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End Sub 


代码 分 析 : 第 3 行 代码 是 为 了 屏蔽 删除 表 的 提示 对 话 框 。 


区 可 


图 表 复制 为 


图 片 





Chart 对 象 的 CopyPicture 方法 可 以 把 图 表 复 制 为 图 片 。 
源 代 码 : 实例 文档 75.xlsm/ 认识 图 表 


1 
E 
4 
可 


Sub Test2 () 


Dim cc As Chart 
Set c = ThisWorkbook.Charts{"Chart2") 


C.CopyPicture Appearance:=xlScreen, Format:=xlBitmap 


End Sub 


运行 上 述 代 码 后 ， 可 以 在 Word 文档 .PPT 幻灯 片 .Excel 工作 表 等 位 置 按 快 捷 键 【 Ctrl+V 】 


粘贴 该 图 片 。 


13.2.3 ”改变 图 表 位 置 


图 表 既 可 以 是 和 工作 表 并 列 的 单独 表 ， 也 可 以 移动 到 工作 表 中 作为 舱 入 图 表 对 象 
(ChartObject) 。 

通过 Chart 对 象 的 Location 方法 可 以 移动 图 表 人 位置。 图 表 位 置 移动 以 后 ， 原 先 的 Chart 
对 象 就 消失 了 ， 在 工作 表 中 多 了 一 个 ChartObject 对 象 。 

下 面 的 过 程 把 图 表 工 作 表 移动 到 工作 表 Sheetl 中 。 

源 代码 : 实例 文档 75.xlsm/ 图 表 常 用 方法 


1 
之 - 
二 
4 
可 


Sub Test31{() 


Dim C As Chart 
Set c = ThisWorkbook.Charts{("Chart2") 


Cc.Location Where:=Excel .XlChartLocation.xXlLocationAsObject, Name:="Sheetl]l™" 


End Sub 


反 过 来 ,也 可 以 把 工作 表 中 的 图 表 对 象 转换 为 图 表 工 作 表 。 
源 代码 实例 文档 75.xlsm/ 图 表 常 用 方法 


1] 
pr 
4 
3 


6. 


Sub Test4{() 


Dim co As Excel.ChartoObject, c As Excel.Chart 

Set co = ThisWorkbook.Worksheets("Sheetl1l") .ChartObjects (1) 

Set C = co.Chart 

CcC.Location Where:=Excel .XlChartLocation.xXlLocationAsNewSheet, Name:= 
"NewChart™" 


End Sub 


代码 分 析 : 对 象 变量 co 代表 放 在 工作 表 上 的 图 表 对 象 ， 如 果 要 访问 通 人 式 图 表 ， 必 须 
使 用 ChartObject.Chart。 
第 5 行 代码 是 关键 ,使 用 Location 方法 ， 把 散 入 图 表 变 成 独立 的 图 表 工 作 表 ， 名 称 为 


NewChart. 
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因此 ， 上 述 Test3 和 Test4 这 两 个 过 程 是 相反 操作 。 


13.3 ”Chart 对 象 事件 


图 表 工 作 表 与 普通 工作 表 一 样 ， 也 可 以 在 其 事件 模块 中 书写 事件 代码 。 
在 VBA 编辑 占 的 工程 资源 冰 理 货 中 ， 双 击 图 表 工 作 表 模块 ， 即 可 打开 代码 窗 格 ， 如 
图 13-18 所 示 。 


: 旺 文件 昌 ” 声 弓 有 视图 同和 了 二 二 IQ) 亡 汪 DW 运行 {好 工具 村 柱 生 所 (及 ) 
| 行 2. 到 1 





图 13-18 ”图 表 工 作 表 的 事件 模块 


13.3.1 激活 图 表 工 作 表 的 事件 


与 Worksheet 的 Activate 事件 一 样 ， 当 图 表 工 作 表 成 为 活动 工作 表 后 ， 触 发 Activate 事件 。 
在 图 表 工 作 表 的 事件 模块 中 ， 写 人 如 下 事件 过 程 。 

源 代 码 : 实例 文档 76.xlsm/Chart1 

1. Private Sub Chart Activate () 

汪 MsgBox " 当前 工作 表 是 : " & Application.ActiveChart. 
0 


当 图 表 工 作 表 获 得 焦点 成 为 活动 工作 表 时 ， 自 动弹 出 对 话 
框 ， 如 图 13-19 所 示 。 





13.3.2 ”识别 图 表 中 的 不 同 元 泰 


当 用 鼠标 在 图 表 中 选择 不 同 的 位 置 时 ， 均 触发 图 表 的 Select 事件 ， 该 事件 的 完整 声 
明 为 : 

Chart Select (ByVal ElementID As Long, ByVal Argl As Long, ByVal Arg2 As Long) 
其 中 ，ElementID 能 够 识别 用 户 选 择 的 是 图 表 的 哪 一 部 分 ， 后 面 两 个 参数 返回 子 对 象 的 序号 
( 见 表 13-1)。 

这 里 假定 用 鼠标 选中 了 图 表 中 的 数据 系列 的 一 个 数据 点 。 那 么 ElementID 就 返回 
xlSeries， 从 表 13-1 中 可 以 查 到 Argl 的 含义 是 SeriesIndex， 也 就 是 数据 系列 的 序号 。 男 一 
个 参数 Arg2 的 含义 是 PointIndex ， 也 就 是 选中 了 该 系列 的 哪 一 个 数据 点 。 


ElementIlD 
XlAx1s 
xlAxisTitle 
xlDisplayUnitLabel 
XlMajorGTiidlines 
XlMinorGridlines 


xlPivotChartDropZone 
xlPivotChartFieldButton 


xlDownBars 
xlDropLines 
x]lHiLoLines 
xlRadarAxisLabels 
xlSeriesLines 
XIUPBars 
XIChartArea 
xlChartTitle 
XICornerIs 
xlDataTable 
XlFloor 
xlLegend 
xlNothing 
xlPlotArea 
XlWalls 
XlDataLabel 
XlErrorBars 
xlLegendEntry 
xlLegendKey 
XlSerles 
xlTIrendline 
X]XEITOTBars 
XlYEITOTBars 
XlShape 


表 13-1 Chart 对 象 事件 参数 说 明 


Arg1 
AxisIndex 
AxisIndex 
AxisIndex 





AxisIndex 


SerlesIndex 





AxisIndex 


DropZone Type 
DropZoneType 


GroupIndex 
GroupIndex 
GroupIndex 
GroupIndex 
GrouplIndex 
GroupIndex 
None 
None 
None 
None 
None 
None 
None 
None 


None 





SerlesIndex 
SerlesIndex 
SerlesIndex 
SerlesIndex 


SerlesIndexX 


SerlesIndex 


SeriesIndex 
下 面 的 实例 中 ， 图 表 显 示 的 是 1950 一 1960 年 全 国 男 女人 口 变化 趋势 ， 在 该 图 表 工 作 表 

的 事件 模块 中 书写 Select 事件 。 
源 代 码 : 实例 文档 76.xlsm/Chart1 
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Arg2 
AxisType 
AxlsIype 
AxilsType 
AxisType 
AxisType 
None 
PivotFieldIndex 
None 
None 
None 
None 
None 
None 
None 
None 
None 
None 
None 
None 
None 
None 
None 
PoimntIndex 
None 
None 
None 
PomntIndex 
TrendLineIndex 
None 
None 


None 


1l. Private Sub Chart Select (ByVal ElementID As Long, ByVal Argl As Long, ByVal 


Arg2 As Long) 
Select Case ElementID 
Case XlChartArea 
MsgBox " 图 表 区 " 
Case XlChartTitle 


MsgBox 时 图 表 标 题 rr 


a 
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1. Case KXlPlotArea 


8. MsgqBox "绘图 区 " 
Case XlSeries 
10. MsgBox " 你 选中 了 第 " & Argl & "条 序列 。" & vbNewLine & "选中 的 是 第 " 
& Arg2 & "个 数据 点 。" 
11. Case Else 
12. MsgBox " 其 他 地 方 " 
13. End Select 


14. End Sub 

代码 分 析 : 当 用 户 单 击 图 表 中 不 同 的 位 置 和 对 象 ， 返 回 的 ElementID 不 一 样 ， 当 用 户 单 
击 了 男性 数据 系列 ， 返 回 的 Argl 参数 值 是 1， 单 击 女 性 系列 返回 的 Argl 参数 值 是 2。 

当 用 鼠标 进一步 单 击 1952 年 的 那个 数据 点 (从 左 数 第 3 个 )， 返回 的 Arg2 的 值 是 3， 如 
图 13-20 所 示 。 


你 选中 了 第 1 条 序列 ，。 
选中 的 星 第 3 个 数据 点 。 





图 13-20 “Chart 对 象 的 Select 事件 


13.4 ”自动 创建 图 表 


在 Excel 中 ， 可 以 用 VBA 日 动 创 建 图 表 。 下 面 分 别 讲述 用 代码 日 动 创建 图 表 工 作 表 和 
目 动 在 已 有 工作 表 中 插入 图 表 的 方法 。 


13.4.1 创建 图 表 工 作 表 


创建 图 表 工 作 表 的 方法 和 插入 普通 工作 表 的 方法 类 似 ， 使 用 Workbook.Charts.Add 方法 
即 可 。 
该 方法 的 参数 只 需要 规定 图 表 工 作 表 的 位 置 。 
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下 面 的 实例 中 ， 事 先 在 工作 表 Sheetl 中 录入 用 于 产生 图 
表 的 数据 ， 如 图 13-21 所 示 。 

然后 运行 如 下 过 程 ， 即 可 在 该 工作 表 之 后 产生 一 个 图 表 
工作 表 。 

源 代 码 : 实例 文档 78.xlsm/ 自动 创建 图 表 





1]. Sub Testl (1) 





pe DIim C As Excel .Chart 

本 Set C = ThisWorkbook.Charts.Add (After:= Pr i 
Worksheets ("Sheetl1")) 图 13-21 用 于 绘图 的 数据 源 

4. With C 

3 .Name = "Chartl™ 

0. .ChartType = Excel .XlChartType.xlLineMarkers 

这 .SetSourceData Source:~=~Worksheets ("Sheetl1l") .UsedRange, PlotBy:= 


Xl]Columns 
.HasTitle = True 
| .ChartTitle.Text = " 人口 变 化 趋势 图 " 
10. End With 
11. End Sub 
代码 分 析 : 第 5 行 代码 目 动 重 命名 图 表 工 作 表 的 名 称 为 Chart1。 第 6 行 代 码 规定 图 表 的 
类 型 是 融 数 据点 的 折线 图 。 第 7 行 代码 规定 图 表 的 数据 源 。 第 8 行 和 第 9 行 设 定 图 表 标 题 。 
运行 上 述 过 程 ， 结 果 如 图 13-22 所 示 。 


‘DO 





人 口 变化 趋势 图 


es 


- [给 图 区 | 
~ 


1 
1 1 


Sheet1 | Chart1 | Sheet2 Sheet3 | 





图 13-22 ”运行 结果 11 


13.4.2 ”在 普通 工作 表 中 插入 图 表 


为 散人 和 人 图表 在 普通 工作 表 中 是 一 种 图 表 对 象 ， 所 以 要 用 Worksheet.ChartObjects.Add 
方法 ， 移 增加 一 个 图 表 对 象 ， 然 后 对 内 部 的 图 表 进 行 详细 设 定 。 

下 面 的 实例 中 ， 事 先 在 工作 表 Sheet2 中 输入 产生 图 表 的 数据 ， 然 后 运行 下 面 的 过 程 ， 
即 可 目 动 在 工作 表 中 产生 一 个 饼 图 。 
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源 代 码 : 实例 文档 78.xlsm/ 自动 创建 图 表 


1 
之 - 
3 
4 
| 
6 


8 - 
呈 


10 - 
11. 
12. 
13s 
14. 


Sub Test2{() 


Dim CO As Excel.ChartObject 
Dim rg As Excel .Range 
Dim C As Excel .Chart 
Set rg = ThisWorkbook.Worksheets (2) .Range ("D3:G12") 
Set CO = ThisWorkbook.Worksheets (2) .ChartoObjects.Add (Left:=rg.Left, Top:= 
rg.Top, Width:=rg.Width, Height:=rg.Height) 
CO.Name = "MyPie" 
Set C = CO.Chart 
With C 
.ChartType = Excel .XlChartType.xlPie 
.SetSourceData Source:=Worksheets ("Sheet2") .UsedRange, PlotBy:= XlColumns 
.HasTitle = True 
.ChartTitle.Text = ™ 
End With 


峭 售 额 分 布 图 " 





15. End Sub 


代码 分 析 : 对 象 变量 CO 是 一 个 图 表 对 象 ， 对 象 变量 C 是 CO 的 Chart 对 象 。 第 6 行 代 
伺 ， 为 了 让 生成 的 图 表 对 象 与 单元 格 区 域 恰 好 对 齐 ， 所 以 使 用 了 对 象 变量 rg。 第 7 行 代码 ， 
为 图 表 对 和 象 命名 。 第 9 ~ 13 行 代码 ， 设 置 图表 细 广 


注意 : 


运行 上 述 过 程 ， 结 果 如 图 13-23 所 示 。 


=BERIES Sheet2! $BE$1l, Sheet2!$ ah: 中, Sheet el PBs, 1 


e H I T E 





图 13-23 ”工作 表 上 自动 生成 饼 图 


普通 工作 表 中 的 散 入 图 表 ， 不 限于 一 个 。 也 就 是 说 ， 可 以 多 次 和 运行 上 述 过 程 ， 


能 在 同一 工作 表 中 产生 多 个 图 表 ， 每 一 个 图 表 都 内 花 于 一 个 ChartObject 对 象 。 


13.5 ” 目 动 删除 图 表 


与 图 表 的 创建 相反 ， 对 于 已 有 的 图 表 ， 也 可 以 用 VBA 来 目 动 删除 。 下 面 分 别 讲解 删除 
图 表 工 作 表 ， 以 及 删除 工作 表 上 的 艇 入 式 图 表 。 


I 


删除 所 有 图 表 工 作 表 


Chart 工作 表 与 Worksheet 的 删除 是 一 样 的 ， 也 使 用 Delete 方法 。 
下 面 的 过 程 般 历 工 作 钴 中 的 所 有 图 表 工 作 表 ， 然 后 逐个 删除 。 


第 13 章 图 表 Chart 对 象 287 


源 代 码 : 实例 文档 78.xlsm/ 自动 删除 图 表 


1 Sub Testl]{() 

之 Dim C As Excel .Chart 
Application.DisplayAlerts = False 
4. For Each C In ThisWorkbook.Charts 
2 C.Delete 

6 Next C 

1 End Sub 


代码 分 析 : 第 3 行 代码 的 作用 是 屏蔽 删除 工作 表 前 跳出 的 等 告 对 话 框 。 

此 外 ,运行 下 面 的 过 程 ， 还 可 以 一 次 性 删除 工作 短 中 所 有 图 表 类 型 的 工作 表 。 
1 Sub Test2{() 

La Application.DisplayAlerts = False 

攻 ， 

4 


ThisWorkbook.Charts.Delete 
End Sub 


13.5.2 ”删除 工作 表 中 所 有 图 表 对 象 


删除 工作 表 中 的 所 有 瞬 人 人 图表， 可 以 用 ChartObject.Delete 方法 。 
下 面 的 过 程 般 历 工 作 表 中 所 有 图 表 对 象 ， 并 逐个 删除 这 些 图 表 对 象 。 
源 代 码 : 实例 文档 78.xlsm/ 自动 删除 图 表 


1 Sub Test31{) 

之 Dim CO As Excel.ChartObject 

= For Each CO In ThisWorkbook.Worksheets ("Sheet2") .ChartoObjects 
4 CO.Delete 

Next CO 

6 End Sub 


也 可 以 使 用 下 面 的 语句 ， 一 次 性 删除 所 有 图 表 对 和 象 。 


1]. Sub Test4() 
2 ThisWorkbook.Worksheetsl("Sheet2") .ChartObjects.Delete 
3. End Sub 


习题 


工作 表 Sheetl 中 的 数据 如 图 13-24 所 示 。 





图 13-24 工作 表 中 的 数据 
1. 使 用 VBA 自动 插入 一 个 图 表 工 作 表 ， 重 命名 为 “销售 图 ”"， 并 设置 该 图 表 工 作 表 的 
数据 源 来 自 于 工作 表 Sheetl 中 的 销售 数据 ,设置 图 表 工 作 表 的 图 表 类 型 是 簇 状 柱 形 图 。 
2. 再 编写 一 个 VBA 过程， 把 上 述 图 表 工 作 表 的 图 表 类 型 更 改 为 二 维 饼 图 。 
3. 再 编写 一 个 VBA 过程， 把 上 述 的 图 表 工 作 表 移动 到 普通 工作 表 Sheetl 之 上 。 


第 14 章 


单元 格 区 域 Range 对 象 






Excel 工作 表 由 者 干 行 列 形成 的 单元 格 构成 。 但 是 工作 表 上 人 允许 放置 各 种 各 样 的 对 象 ， 
例如 可 以 插 和 人 图 片 、 超 链接 、 批 注 、 图 表 等 。 这 些 对 象 都 属于 Worksheet 对 象 的 成 员 ， 然 
而 单元 格 区 域 对 象 ( Range) 是 工作 表 的 主体 ， 单 元 格 是 工作 表 中 用 于 存储 数据 的 主要 场所 ， 
数据 处 理 的 过 程 实际 上 就 是 人 处理 单元 格 的 过 程 ， 因 此 Range 对 象 可 以 说 是 Excel VBA 的 核 
心 内 容 。 

Range 对 象 所 包含 的 成 员 对 象 、 属 性 、 方 法 错综复杂 ， 本 草 把 Range 的 最 常用 知识 点 分 
为 Range 的 常用 属性 、Range 的 产生 和 转化 、Range 的 成 员 对 象 和 Range 的 常用 方法 四 大 类 ， 
列 于 表 14-1 中 。 

与 前 面 讲 过 的 对 象 最 明显 的 不 同 是 Range 对 象 没 有 事件 方面 的 编程 。 


表 14-1 Range 对 象 最 常用 知识 点 
Range 的 常用 属性 Range 的 产生 和 转化 Range 的 成 员 对 象 Range 的 和 营 用 方法 






地 址 字符 串 ，Address 全 部 单元 格 : Cells 单元 格 边框 : Borders 选中 : Select 
值 : Value 激活 :Activate 


显示 内 容 : Text 全 部 列 : Columns 批 和 广 ，Comment 自动 填充 : AutoFill 
数组 公式 区 域 . 

所 在 行 : Row 数组 公式 域 字体 ， Font 自动 第 选 : AutoFilter 
CurentArray 

所 在 列 : Column 当前 区 域 ， CurrentResgion | 条 件 格 式 : FormatConditions | 自动 适应 : AutoFit 

单元 格 个 数 : Count 已 使 用 区 域 : UsedRange | 超 链 接 : Hyperlinks 清除 值 : ClearContents 





公式 ， Formula 获取 边界 区 域 : End 填充 色 : Interior 清除 格式 : ClearFormats 
分 离 区 域 ， Areas 整 行 ， EntireRow 数据 有 效 性 : Validation 清除 批注 . ClearComments 


FE A : * ; 和 
FormulaArray ClearHyperLinks 
隐藏 公式 : 

| 局 袍 ，Offset | 际 甩 有 : Clea 
FormulaHidden 偶 移 人 清除 所 有 on. 
是 否 有 公式 : . = 
HasFormula 
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Range 的 常用 属性 Range 的 产生 和 转化 Range 的 成 员 对 象 Range 的 常用 方法 


, 粘贴 记录 和 集 : 
是 否 有 数组 :; HasArra 并 集 : Application.Union 
数 Pg CopyFromRecordSet 


交集 : Application. 
是 否 为 空 : IsSEmpty es policaton 前 切 单 元 格 : Cut 


Hidden 


Intersect 


水 平 对 齐 方式 ， : FillLeft、 FillRight. 
EA 所 选区 域 : Selection 和 - 
HorizonalAllenment FillDown 

垂直 对 齐 方式 : 
Vertical Allenment 





单元 格 位 置 : Left、 rp| 替换 : Replace 


单元 格 区 域 的 大 小 : 4 
元 悄 : Insert 
Width、 Height 插入 单元 格 : Inse 
cked 
前 一 个 : Previous 去 陈 重 所 ~ 
RemoveDuplicate 


后 一 个 : Next | | Son 


元 格 自 定义 格式 ， We z 
| | Pe es 
NumberFormat 
EE 


列 宽 值 : ColumnWidth 分 列 : TextToColumns 


缩小 字体 适应 单元 格 : 
shrinkToF1t 


单元 格 样 式 名 : Style 


在 讲述 Range 对 象 的 表示 方法 之 前 ， 先 回顾 一 下 Excel 工作 表 的 构成 。 
一 个 工作 表 是 由 若干 行列 构成 的 ，Excel 2007 以 上 版 本 的 工作 短 (扩展 名 通常 为 四 位 ) 
的 每 个 工作 表 为 1 048 576 行 ，16 384 列 。 工 作 表 的 行 号 一 律 用 阿拉 伯 效 字 表 示 ， 工 作 表 的 列 
标 通常 用 大 写 英文 字母 表示 。 列 标 是 遵循 二 十 六 进 制 的 ， 也 就 是 说 最 后 一 位 如 果 是 Z， 它 的 下 
一 个 会 进位 。 下 面 是 列 标的 变化 顺序 : ABC...XYZAAAB...AZBABB .BYBZCA.. 

对 于 每 一 个 单元 格 ， 可 以 用 列 标 字 母 + 行 号 的 形式 来 表达 。 例 如 用 鼠标 选中 C6 单元 
格 ， 会 在 地 址 栏 中 显示 C6， 如 图 14-1 所 示 。 

工作 表 中 最 右 下 角 的 单元 格 地 址 为 XFD1048576 。 

语句 Application.ReferenceStyle=xlRIC1 可 以 设置 列 标 为 阿拉 们 数字 ， 歼 果 如 图 14-2 
所 示 。 

此 时 选中 一 个 单元 格 后 ,地址 栏 显示 为 RSC3 ， 意 思 是 第 5 行 第 3 列 。 

如 果 要 恢复 为 Al 的 形式 ， 运 行 Application.ReferenceStyle=xlAl 即 可 。 
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1 | 
2 | 
3 
4 
3 
6 
?| 
8 | 
9 


一 一 
i 





图 14-1 单元 格 地 址 的 表示 图 14-2” 列 标 用 数字 表示 


14.1 Range 对 人 象 的 表示 方法 


Range 对 象 的 父 级 对 象 是 Worksheet， 因 此 一 般 情况 下 ，Range 对 象 的 完全 表示 方法 为 : 
Application.Workbook.Worksheet.Range 


例如 ，Application.Workbooks(" 实例 文档 20.xlsm").Worksheets("Sheet2").Range("D7") 表 
示 “ 实 例文 档 20.xlsm” 这 个 工作 竹 的 工作 表 Sheet2 的 D7 单元 格 。 

娘 外 ， 单 元 格 区 域 所 归属 的 工作 表 、 工 作 短 ， 还 可 以 放 在 Range 后 面 的 括 写 内 ， 例 如， 
Range("[ 实例 文档 20.xlsm]Sheet2!1B3:D5") 也 表达 了 特定 工作 和 钴 、 特 定 工作 表 中 的 单元 格 区 
域 。 不 过 这 种 方式 在 实际 编程 时 很 少 用 到 。 

如 采 使 用 默认 方式 表示 : Range("D7") 则 表示 Application.Activesheet.Range("D7")。 也 
就 是 说 ，Range 前 面 什么 也 没 加 ， 就 表示 应 用 程序 活动 工作 表 的 那个 区 域 。 

通常 情况 下 ，Range 对 象 括号 内 是 一 个 地 址 字符 串 ， 例 如 Range("A5") 表示 一 个 单元 格 ， 
Range("A3:D5") 表示 左上 角 从 A3 开始 ， 右 下 角 为 D5 围 成 的 矩形 区 域 。 

同时 ，Range 还 可 以 是 几 个 不 连续 的 区 域 的 组 合 区 域 ， 例 如 Range("A1:B3,D8:E11") 表 
示 两 个 区 域 的 组 合 ， 每 个 区 域 的 地 址 之 间 要 用 逗号 隅 开 。 

如 末 要 引用 单列 ， 则 表示 为 Range("B:B") ; 如 采 要 引用 多 列 ， 则 表示 为 Range("C:E")。 
引用 单行 表示 为 Range("2:2")， 引 用 多 行 表示 为 Range("3:5") 等 。 

由 于 Range 对 象 的 参 效 必须 是 字符 串 形 式 的 地 址 ， 在 实际 编程 时 经 凋 遇 到 列 标 字 母 与 
数字 的 转换 问题 。 很 多 情况 下 ， 使 用 Cells 来 表示 单元 格 能 够 让 编程 变 得 更 容易 。 


14.1.1 使 用 Cells 


Excel VBA 中 的 Cells 对 象 非常 灵活 多 变 ， 一 般 的 表达 形式 为 ， 

父 级 对 象 .Cells ( 参数 列表 ) 

父 级 对 象 可 以 是 Worksheet 对 象 ， 也 可 以 是 Range 对 象 。 如 果 父 级 对 象 是 Worksheet， 
那么 是 以 该 工作 表 的 Al 为 基准 ; 如 果 父 级 对 象 是 Range 对 象 ， 则 以 Range 对 象 的 左上 角 单 
元 格 为 基准 。 
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Cells 后 边 插 号 内 的 参数 列表 可 以 分 以 下 三 种 情形 。 
D Cells(r,c)， 表 示 第 fr 行 第 c 列 的 一 个 单元 格 。 

D Cells(n)， 表 示 父 级 对 象 的 第 n 个 单元 格 。 

D Cells， 表 示 父 级 对 象 的 所 有 单元 格 。 

源 代码 : 实例 文档 22.xlsm/ 使 用 Cells 


1 Sub Testl]{() 

2 Debug.Print ActiveSheet.Cells(3, 2) .Address 
全 Debug.Print ActiveSheet.Cells(4) .Address 

二 Debug.Print ActiveSheet.Cells.Address 

3 End Sub 


代码 分 析 : 第 2 行 代码 ， 由 于 父 级 对 象 是 活动 工作 表 ， 所 以 以 Al 为 基准 ，3 行 2 列 的 
单元 格 就 是 B3 单元 格 。 

第 3 行 代码 ， 括 号 内 只 有 一 个 参数 4， 表示 整 个 工作 表 的 第 4 个 单元 格 从 Al 开始 ， 按 
照 先 从 左 到 右 ， 再 从 上 到 下 的 顺序 ， 第 4 个 单元 格 就 是 D1。 

第 4 行 代码 ， 打 印 工 作 表 所 有 单元 格 的 地 址 。 

以 上 过 程 的 运行 结果 如 图 14-3 所 示 。 

男 外 ，Cells 的 父 级 对 象 还 可 以 是 一 个 单元 格 或 单元 格 区 域 。 为 了 
更 清晰 地 说 明 问 题 ， 请 打开 源 文件 Data.xlsm， 可 以 看 到 如 图 14-4 所 
示 的 数据 表 。 





| 
La 
5 


总 


由 C 
姓 渔 考 号 出 生日 期 : ES 
051111110146 2002/ 1802 芋 品 镍 避 1 . 计算 机 | 闪 济 字 
n51111LLLDd53 2Z001/11712 2017001 赵 靓 5 
n51111110869 2002/ 109/12 2017002 钱 灾 3 Eu 
051145110587 2002/07r08 2017003 如 三 57 
051145110529 2003212 站 5 20170Q4 李斯 sn 
[D511441102n0 0002 /11 2d 2017D005 周 午 
15111111013 2D02A11A1 2017006 武 柳 
0S511lLLLoo03 O02 08r Dd 201700T 邯 启 

0511111101d6 2002/ 1B 2s 

M51111110452 a00111r1n 

0511491100932 2003/ 0 22 

051145110635 2002/07r O09 

151145110615 2002/01713 

051121110419 2003/05717 

T51146117431 2003411709 

5111111039? 本 

051111llod58 2003 AL1L 3 

051121110636 20037025 

M51145110629 200dA DL 

051111110074 2002712706 State |Tan 

051121110764 2001/11r0d 3 Califarni 寺 1,118.00 , 9ED, on 

.051145110701 2002701L723 Washinete 中 1，24T. 00 | 时 1, 2358. 

051111119001 2002205715 Urcgon 下 1 469. 00 

D51111110372 oN/ 04 29 hrizona | 中 1, 345. 0D 

0511111100na m0 ond 

51121110637 2003712r25 

0511d5110669 20032090d 

051111110d56 2003A0Br22 
30 | 张 长 明 0511d5110350 2002/12/28 


mo -TT 
司 一 同一 司 一 同一 司 一 可 ,一 司 一 司 , 一 可 





图 14-4 数据 表 
然后 运行 如 下 过 程 。 
源 代 码 : 实例 文档 22.xlsm/ 使 用 Cells 


] Sub Test2() 

之 Dim wst As Worksheet 

s Set wst = Application.Workbooks ("Data.xlsm") .Worksheets (1) 
+ WSst .Activate 

5 Debug.Print wst.Range("K2:Pl3") .cells(3, 2) -Value 
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6. Debug.Print wst.Range ("KEK2:Pl3").Ccells(9) .Value 
1. End Sub 


代码 分 析 : wst 是 一 个 工作 表 对 象 变 量 ， 用 于 指 代 Data 工作 湾 的 第 一 个 工作 表 。 
Range("K2:P13").Cells(3, 2) 表示 是 在 K2:P13 这 个 区 域 中 第 3 行 第 2 列 的 单元 格 ， 相 当 于 LL4 
单元 格 。 

Range("KK2:P13").Cells(9) 表示 K2:P13 这 个 区 域 的 第 9 个 单元 格 ， 数 的 时 候 ， 从 K2 往 
右边 数 ， 数 到 了 P13 ， 然 后 拐弯 到 下 一 行 ， 第 9 个 格子 是 M3 单元 格 。 

因此 ， 上 述 过 程 中 第 5 行 和 第 6 行 代码 的 运行 结果 如 图 14-5 所 示 。 

因此 ， 学 习 Cells 对 象 有 两 大 注意 事项 : 一 是 注意 它 的 父 级 对 象 是 
谁 ; 二 是 注意 参数 个 数 。 

此 外 ，Range 对 象 的 参数 中 可 以 传人 Cells， 表 达 形 式 为 Range 
(Cellsl,Cells2)， 表 示 的 是 以 Cellsl 为 左上 角 、Cells2 为 右 下 角 的 单元 
格 区 域 。 这 种 表达 形式 的 优势 是 不 使 用 列 标 字 母 ， 全 使 用 数字 ， 便 于 循环 。 

源 代 码 : 实例 文档 22.xlsm/ 使 用 Cells 





图 14-5 运行 结果 2 


1] Sub Test3() 

2 Debug.Print Range ("$C$5") .Address (False, False) 
: Debug.Print Cells(y, 3) .Address (False, False) 

和 4 Range (Cells(2, 1), Cells(4, 3)).Select 

器 End Sub 


代码 分 析 : 第 3 行 代码 中 Cells(5,3) 表示 工作 表 的 第 5 行 第 3 列 单元 格 ， 实 际 上 是 C5 
单元 格 ， 因 此 上 述 过 程 中 ， 在 立即 窗口 打印 的 两 个 结果 是 一 样 的 ， 都 是 C5。 

第 4 行 代码 ， 等 价 于 Range(Range("A2"), Range("C4")).Select， 表 示 的 是 目 动 选中 以 A2 
为 左上 角 、C4 为 右 下 和 角 的 单元 格 区 域 。 


14.1.2 ”Range 对 象 的 无 限 嵌 套 性 


Range 对 象 与 前 面 讲 过 的 Cells 对 象 一 样 ， 甚 父 级 对 象 也 是 可 变 的 。 由 于 Range 对 象 
本 身 是 Range 类 型 ， 其 父 级 对 象 还 可 以 是 另 一 个 Range 对 象 ， 因 此 就 可 以 产生 无 限 秘 套 的 
效果 。 

源 代码 : 实例 文档 22.xlsm/Range 的 无 限 肉 套 性 


1 Sub Testl{() 

之 Dim Ig As Range 

3 Set rg = ActiveSsheet.Range ("A2:F9") .Range ("A2:D4") .Range ("B22:C3") .Range ("B2") 
= MsgBox rg.Address 

End Sub 


代码 分 析 : 为 了 便于 理解 ， 把 代码 中 第 3 行 的 每 一 级 Range， 加 上 边框 线 ， 最 后 浓缩 到 
C5 单元 格 中 ， 示 意图 如 图 14-6 所 示 。 
运行 上 述 过 程 后 ， 对 话 框 中 的 结果 为 $C$5。 
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由 于 Cells 返回 的 也 是 Range 对 象 ， 所 以 Cells 和 Range 可 以 混用 。 
源 代 码 : 实例 文档 22.xlsm/Range 的 无 限 藤 套 性 


1] Sub Test2{) 

ra Dim TI As Range 

SP Set rg = ActiveSheet.Cells(2, 3).cells(4, 1).cells(3, 2) 
4 rg.Select 

= rg.Interior.Color = vbhBlue 

6 End Sub 


代码 分 析 : 代码 中 第 3 行 ，ActiveSheet.Cells(2, 3) 表示 的 是 C2 单元 格 ， 后 面 加 一 个 


Cells(4, 1) 就 表示 以 C2 为 基准 的 第 4 行 第 1 列 ， 那 就 是 C5 单元 格 ; 再 加 一 个 Cells(3,2) (以 
C5 为 基准 的 第 3 行 第 2 列 )， 那 就 是 D7 单元 格 。 


因此 ， 上 述 Test2 过 程 的 运行 结果 是 上 自动 选中 D7 单元 格 ， 填 充 色 设置 为 蓝 色 ， 如 


图 14-7 所 示 。 
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图 14-6 ”Range 的 无 限 散 大 性 图 14-7 运行 结果 3 


14.2 ”Range 对 象 的 常用 属性 


14.2.1 ”区域 地 址 


Range.Address 属性 返回 单元 格 区 域 的 地 址 字符 串 。 
Address 属性 包含 行 绝对 引用 与 列 绝对 引用 两 个 参数 ， 和 默认 情况 午 为 True。 如 采 行 绝对 


引用 设置 为 True， 则 行 标 数字 前 加 $ 符号 ; 如 果 列 绝对 引用 设置 为 True， 则 列 标 字 母 前 加 


源 代 码 : 实例 文档 20.xlsm/ 单元 格 地 址 


1。 Sub Testl 1() 


之 。 Debug.Print ActiveCell.Address (RowAbsolute:=TIrue, ColumnAbsolute:=True) 

Ee Debug.Print ActiveCell.Address (RowAbsolute:=True, ColumnAbsolute:= 
False) 

4. Debug.Print ActiveCell.Address (RowAbsolute:=False, ColumnAbsolute:= 
False) 六 有 冤 


9. End sub 


上 述 过 程 的 运行 结果 如 图 14-8 所 示 。 
在 实际 编程 应 用 时 ， 一 般 省 略 参 数 名 称 ， 使 用 ActiveCell.Address 图 14.8 ”运行 结果 4 


坛 全 
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返回 $SK$14， 使 用 ActiveCell.Address(False,False) 返回 KK14。 
14.2.2 ”获取 单元 格 区 域 的 位 置 与 大 小 


在 编程 过 程 中 ， 有 必要 去 获知 单元 格 区 域 在 工作 表 中 的 所 在 位 置 ， 以 及 区 域 中 单元 格 的 
多 少 。 
源 代 码 : 实例 文档 20.xlsm/ 单元 格 的 位 置 


1 Sub Testl{() 

2 Dim Ig As Range 

本 Set I 可 = Range ("B22:E4") 

一 Debug.Print rg.Row: rg.Column, rg.Rows.Count, rg.Columns.Count, rg.Count 
可 End sub 


代码 分 析 : 结合 图 14-9 可 知 ， 单 元 格 区 
域 B2:E4 是 3 行 4 列 ， 共 12 个 单元 格 。 所 以 
Rows.Count 返回 的 是 行 数 ， 得 到 3 ; Columns. 
Count 返回 的 本 得 到 4 ; rg.Count 等 价 于 
rg.Cells.Count， 返 回 的 是 单元 格 个 数 ， 得 到 12。 图 14-9 ”认识 单元 格 区 域 的 属性 

而 rg.Row 返回 的 是 左上 角 单 元 格 的 行 号 ， 也 就 是 B2 单元 格 的 行 号 ， 得 到 2。 同 理 ， 
rg.Column 征 B2 的 列 志 ， 也 十 2。 

因此 上 述 过 程 运 行 后 ， 在 立即 窗口 看 到 的 结果 是 2,2,3,4,12。 

因此 ， 经 党 使 用 Range.Row、Range.Column 来 获取 区 域 左 上 角 单 元 格 的 位 置 ， 而 通过 
Range.Rows.Count 以 及 Range.Columns.Count 来 获取 区 域 的 行 数 与 列 数 。 使 用 Range.Count 
来 获取 单元 格 个 数 ， 对 于 矩形 局 域 ， 单 元 格 个 数 等 于 行 数 乘 以 列 数 。 

对 于 分 离 的 区 域 ， 可 以 使 用 Areas 对 象 分 解 成 单个 连续 区 域 。 

源 代码 : 实例 文档 20.xlsm/ 单元 格 的 位 置 





] Sub Testz () 

Dim Ig As Range 

3 Dim arr(l To 3) As Range 

4. Set rg = Range("B2:D3,C6:Di/,Al10:B12") 
ee rg.Select 

6 MsgBox "分 离 区 域 个 数 : " & rg.Areas.Count 
7. Set arr(l) = rg.Areas (1) 

8 Set arr(2) = Ig.Areas (2) 

号 。 Set arr(3) = rg.Areas (3) 

10. arr (1) .Interior.Color = VvbhRed 

11. arr(2) .Interior.Color = vbhGreen 

i arr(3) .Interior.Color = VvbBlue 


13. End Sub 


代码 分 析 : 第 4 行 代码 中 ，rg 是 一 个 不 连续 的 区 域 (地址 字符 串 用 逗号 隔 开 )， 第 6 行 
代码 返回 分 离 区 域 的 个 数 : 3。 

第 7 ~ 9 行 代码 分 别 把 每 个 连续 区 域 赋 给 数组 中 每 个 元 素 。 第 10 ~ 12 行 代 码 为 每 个 连 
续 区 域 加 上 填充 色 。 
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上 述 过 程 的 运行 结果 如 图 14-10 所 示 。 
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14.2.3” 蛙 元 格 的 地 理 位 置 


单元 格 区 域 可 以 调整 行 高 和 列 宽 ， 从 而 引起 单元 格 区 域 在 工作 表 中 的 地 理 位 置 发 生变 
化 。 特 别 是 工作 表 上 可 以 放置 一 些 图 形 、 图 片 等 对 象 ， 这 些 对 象 与 单元 格 的 相对 位 置 关 系 在 
实际 编程 中 经 常用 到 。 

描述 一 个 几何 对 象 在 坐标 系 中 的 位 置 和 大 小 ,一 般 用 Left、Top 、Width 、Height 四 个 属 
性 来 表示 ， 如 图 14-11 所 示 。 





图 14-11 对象 在 容 需 中 的 位 置 和 大 小 示意 图 


图 14-11 中 ， 对 于 单元 格 区 域 C3:D4，Left 属性 是 指 该 区 域 左 边界 与 单元 格 Al 左边 界 的 
Top 属性 是 指 该 区 域 上 边界 与 列 标 之 间 的 高 度 差 ， 也 就 是 与 单元 格 Al 上 边界 的 距离 。 
Width 属性 是 指 该 区 域 本 号 的 宽度 ， 也 就 是 该 区 域 左 边界 与 右边 界 的 距离 。 

同 理 ，Height 属性 是 指 该 区 域 垂 直方 向 的 高 度 。 

从 图 14-11 中 不 难看 出 ， 区 域 C3:D4 的 Left 属性 其 实 等 于 A 列 和 B 列 两 列 的 列 宽 之 和 。 


但 是 ，Excel 中 存在 很 多 种 单位 制 ， 
重 的 计算 结果 误差 。 

14.2.3.1 Excel 的 行 高 

这 里 认识 一 下 Excel 的 行 高 值 。 当 把 鼠标 移动 到 Excel 工作 表 的 第 2 行 与 第 3 行 之 间 时 





如 果 搞 不 清楚 这 些 单位 之 间 的 转换 关系 ， 会 导致 严 
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按 下 鼠标 ， 会 看 到 提示 “高 度 : 13.50 ( 18 像 系 》， 如 
图 14-12 所 示 。 其 中 ，13.50 的 单位 是 磅 (points 或 
pt)， 磅 与 台 米 的 关系 是 : 1 磅 =0.3527mm。 

像 系 与 屏幕 分 辨 卒 有关， 例如 设 定 分 辩 率 为 
1380 x 768， 那么 屏 硕 就 被 划分 为 1380 行 、768 列 的 
栅 格 ,每 个 格子 的 高 度 和 宽度 都 是 一 个 像素 。 

Range 对 象 的 Height 是 指 单元 格 区 域 多 个 行 高 的 总 和 ， 单 位 是 磅 ; RowHeight 属性 是 指 
每 行 的 行 高 值 ， 单 位 也 是 磅 。 

例如 ，Msgbox Range("B2:B4").Height 会 返回 40.5， 因 为 该 区 域 有 3 行 ， 每 行 高 度 为 
13.5 磅 。 

运行 如 下 过 程 ， 把 工作 表 中 的 第 2 ~ 4 行 的 行 高 设置 为 20 磅 。 

源 代 码 : 实例 文档 20.xlsm/ 单元 格 的 地 理 位 置 





图 14-12 ”查看 单元 格 的 行 高 值 


1。 Sub Testl() 
2 Range ("B2:B4") .RowHeight = 20 
3. End Sub 


代码 分 析 : 注意 这 里 使 用 的 属性 是 RowHeight， 该 属性 是 可 读 写 的 属性 ， 通 第 用 来 获得 
或 者 设 定单 元 格 区 域 的 行 高 值 ， 而 不 是 区 域 的 高 度 之 和 。 这 也 是 该 属性 和 Height 属性 的 区 
别 。Height 属性 通常 用 来 获取 区 域 的 总 高 度 ， 通 常 由 多 个 行 高 值 相 加 而 得 到 。 


14.2.3.2 Excel 的 列 宽 

将 鼠标 移动 到 B 列 与 C 列 之 间 ， 按 下 鼠标 不 放 
开 ， 会 看 到 “宽度 : 8.38 (72 像素 》》， 它 表示 的 是 B 
列 的 列 宽 ， 如 图 14-13 所 示 。 列 宽 的 单位 理解 起 来 要 
比 行 高 复杂 。 

图 14-13 中 的 8.38 可 以 理解 为 8.38 个 标准 字符 
宽度 。 图 14-13 ”查看 单元 格 的 列 宽 

而 Excel VBA 中 ， 单 元 格 区 域 的 宽度 的 单位 仍然 为 磅 ， 单 元 格 列 宽 的 获取 和 设 定单 位 
还 是 字符 宽度 。 


源 代 码 : 实例 文档 20.xlsm/ 单元 格 的 地 理 位 置 





Es 
| 宽度 : 8.38 (72 像素 )| 


















1 Sub Test2() 

pa MsgBox Range ("B2") .Width 

3 MsgBox Range("B2") .ColumnWidth 
= End Sub 


以 上 代码 返回 54 和 8.38。 
如 果 单 元 格 区 域 不 是 一 个 单元 格 ， 结 果 会 是 什么 呢 ? 
源 代 码 : 实例 文档 20.xlsm/ 单元 格 的 地 理 位 置 


1。 Sub Test3() 
三 MsgBox Range ("B2:D2") .Width 
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这 MsgBox Range ("B2:D2") .ColumnWidth 
4. End Sub 


代码 分 析 : B2:D2 占据 了 3 列 ， 上 述 代 码 返 回 162 和 8.38。 对 比 上 次 结果 会 看 到 Width 
属性 变 为 原来 的 3 倍 ， 而 ColumnWidth 没有 变化 。 和 行 高 一 样 ，ColumnWidth 不 累加 ， 人 它 
只 计算 每 列 的 列 宽 。 


14.2.3.3 ”单元 格 区 域 的 上 边 距 和 左边 距 
Range 对 象 的 Top、Left 属性 是 指 区 域 左 上 角 与 Al 单元 格 的 距离 ， 单 位 是 磅 。 
以 下 代码 一 次 性 获取 列 回 区 域 中 每 个 单元 格 的 Top 、Left 属性 。 
源 代 码 : 实例 文档 20.xlsm/ 单元 格 的 地 理 位 置 

1 Sub Test4{) 

2 Dim II As Range 

i For Each rg In Range ("Bl:BJ") 

4 Debug.Print rg.Top, rg.Left 

Next rg 

6 End Sub 





上 述 过 程 的 运行 结果 如 图 14-14 所 示 。 


14.2.3.4 ”自动 更 改行 高 和 列 宽 
更 改 Range 的 RowHeight 属性 ， 可 以 改变 行 高 。 
源 代 码 : 实例 文档 20.xlsm/ 单元 格 的 地 理 位 置 


1 Sub Test5() 

a Dim TI As Integer, cc As Integer 

ss For r= 1 To 9 Step 2 

4 Worksheets ("Sheet3") .Range ("A & I) .RowHeight = 30 
i Next 工 

6 End Sub 


代码 分 析 : 上 述 代 人 码 的 功能 是 把 Sheet3 的 A 列 中 的 奇数 行 的 行 蜗 设置 为 30 磅 。 
运行 结 末 如 图 14-15 所 示 。 





图 14-15 更改 奇数 行 的 行 高 
根据 这 个 特点 ， 可 以 用 VBA 快速 生成 日 历 。 同 理 ， 可 以 一 次 性 改变 多 列 的 列 宽 。 
源 代 码 : 实例 文档 20.xlsm/ 单元 格 的 地 理 位 置 


1。 Sub Test6() 
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之 Dim I As Integer, CC As Integer 
3 For c= 1 To 9 Step 1 
4. Worksheets ("Sheet2") .Cells(1, 
要 Next C 
End Sub 


运行 结果 如 图 14-16 所 示 。 


对 于 连续 的 列 的 列 宽 设 定 ， 其 实 可 以 不 使 用 


循环 ， 上 面 的 Test6 可 以 改写 为 : 
Worksheets ("Sheet2") .Columns("A:I"). 
ColumnWidth J 


其 中 ，Columns("A:ID 等 价 于 Range("A:1")。 
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如 果 同 时 修改 行 高 和 列 宽 ， 再 随机 填充 背景 图 14-16 更 改 列 宽 
色 ， 可 以 实现 波纹 色 降 沙 从 的 效果 。 
源 代码 : 实例 文档 20.xlsm/ 单元 格 的 地 理 位 置 
1 Sub Test81{) 
2 ActiveWindow.2oo0m = 100 
3 t = 1.63 / 13.5 
和 4 With ActiveSsheet 
Ys For r= 1 To 100 
6 -ROW3S (TIT) .RowHeight = Ir Mod 13 
1 .Columns (r) .CcolumnWidth = .Rows (Ir) .RowHeight * 七 
8 For C= 1 To 100 
9. .Cells(r, c).Interior.ColorIindex = (rr + c) Mod 6 
10. Next c 
11. Next Ir 
ee End With 
13. End Sub 
过 程 的 运行 结果 如 图 14-17 所 示 。 





图 14-17 


同时 更 改 
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行 局 、 儿 


列 先 
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代码 实现 的 原理 ， 请 读者 自行 分 析 。 

14.2.3.5 ”行列 的 隐藏 和 显示 

Excel 工作 表 中 的 整 行 、 整 列 可 以 隐藏 。 实 质 上 ， 隐 藏 行 等 价 于 把 行 高 设 为 0， 隐藏 列 
等 价 于 把 列 宽 设置 为 0。 

源 代 码 : 实例 文档 20.xlsm/ 单元 格 的 地 理 位 置 


1 Sub Test91{) 

a Worksheets ("Sheet2") .Columns{("B:C") .CcolumnWidth = 0 
3 Worksheets ("Sheet2"™") .Columns("E:F") .Hidden = True 

4 End Sub 


代码 分 析 : 上 述 过 程 中 ,第 2 行 与 第 3 行 代码 的 功能 相同 ， 都 是 隐藏 列 。 

如 果 要 取消 隐 泸 列 ， 既 可 以 重新 设 定 列 宽 为 大 于 0 的 数字 ， 也 可 以 设置 Hidden 属性 
为 False。 

源 代码 : 实例 文档 20.xlsm/ 单元 格 的 地 理 位 置 


1 Sub Test10 1() 

元 Worksheets("Sheet2") Columnsl( "BC") .ColumnWidth = 8.38 
3 Worksheets ("Sheet2") .Columns("E:F") .Hidden = False 

二 End Sub 


对 于 行 的 隐藏 和 显示 ， 参 考 如 下 过 程 。 
源 代码 : 实例 文档 20.xlsm/ 单元 格 的 地 理 位 置 


1] Sub Testl1l1() 

和 2. Worksheets ("Sheet2") .Rows ("2:2") .RowHeight = 0 
3 Worksheets ("Sheet2") .Rows ("i/:8") .Hidden = True 
+4 End Sub 


上 述 过 程 隐藏 了 第 5 行 ， 并 隐藏 了 第 7 ~ 8 行 。 


14.2.3.6 ”延伸 阅读 

Application.CentimetersToPoints A 数 可 以 把 厘米 转换 成 磅 ; Application.ActiveWindow. 
PointsToScreenPixelsX 可 以 把 磅 转换 成 水 平方 回 的 像素 。 

谈 者 可 根据 需要 目 行 赋 究 上 述 单位 转换 方面 的 内 容 。 


14.2.4 单元 格 内 容 属性 


单元 格 是 用 来 存放 数据 的 。 使 用 Excel VBA 可 以 方便 、 快 捷 地 读 写 单元 格 的 内 容 。 但 
是 Range 属性 繁多 ， 如 采用 错 属 性 ， 将 达 不 到 预期 的 效果 。 

与 单元 格 内 容 有 关 的 属性 如 下 。 

D Value (默认 属性 ) 单元 格 的 仁 ， 可 庶 写 。 

D Text (显示 属性 ): 单元 格 显示 内 容 (与 单元 格 目 定义 格式 有 关 ， 只 读 )。 

口 Formula、FormulaArray: 单元 格 的 公式 字符 串 、 数 组 公式 字符 串 ， 可 读 写 。 

口 HasFormula、HasArray: 单元 格 是 否 有 公式 、 是 否 有 数组 公式 。 只 读 。 
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口 Value2 : 日 期 、 时 间 类 的 单元 格 也 按照 数 
值 处 理 。 

口 FormulaHidden: 是 否 隐 藏 公式 ， 可 旋 写 。 

D Locked: 单元 格 是 否 锁定 ， 可 读 写 。 

D 口 NumberFormat:， 目 定 义 格式 ， 可 读 写 。 

Excel 中 的 “设置 单元 格格 式 ” 对 话 框 ， 可 
以 设置 单元 格 绝 大 多 数 的 属性 ， 如 图 14-18 所 未 。 

14.2.4.1 ”向 单元 格 中 写 入 内 容 

日 动 回 单 元 格 中 输入 内 容 ， 使 用 “ Range. 
Value= 内 容 ” 这 样 的 语法 格式 即 可 。 图 14-18“ 设 置 单元 格格 式 ” 对 话 框 

源 代 码 : 实例 文档 21.xlsm/ 单元 格 内 容 属性 








下 宗 体 | 正 立 | 
Aral Unicode RS 
于 Micros aHe 


of YaH 


计量 TrueTYpe 字体 。 屏 幕 和 盯 半 机 上 孝 贞 合用 该 字体 。 





1 Sub Testl{() 

2 Range ("A3") .Value = 28 

: Range ("AI") .Value = False 

和 4 Range ("A/") .Value = "China" 
2 End Sub 


以 上 代码 分 别 回 单元 格 输入 整数 、 布 尔 值 和 字符 串 。 

其 实 ，Range 的 Value 属性 不 只 用 于 一 个 单元 格 ， 还 可 以 用 于 单元 格 区 域 。 如 果 是 多 个 
单元 格 构成 的 区 域 ， 此 时 Value 可 以 和 VBA 中 的 数组 进行 数据 传递 ， 具 体 请 参阅 14.6.4 节 
相关 内 容 。 

如 果 要 回 单 元 格 中 输入 公式 和 数组 公式 ， 可 以 使 用 Formla 属性 和 FormulaArray 属性 。 

源 代 码 : 实例 文档 21.xlsm/ 单元 格 内 容 属性 


] Sub Testz (|) 

2 Dim 1 As Integer 

3 For 1 = To 5 

4. Range ("A™ & 1).Value = 1 

2 Next 1 

6 Range ("A8") .Formula = "=Sum(Al1 :AJ)™" 
1 End Sub 


代码 分 析 : 上 述 代 码 中 ， 首 先 回 A1:A5 中 输入 数字 ， 然 后 目 动 往 A8 中 输入 公式 ,计算 
出 Al:AS 的 总 和 。 

在 Excel 中 输入 数组 公式 时 ， 需 要 按 下 快捷 键 【 Ctrl+Shift+Enter 】 完 成 公式 的 输入 。 在 
VBA 中 ， 可 以 使 用 FormulaArray 来 日 动 输入 数组 公式 。 

源 代码 : 实例 文档 21.xlsm/ 单元 格 内 容 属性 


1] Sub Test3() 

Dim 1 As Integer 

3 For 1 = To J 

4. Range ("A™ & 1).Value = 1 

is Next 1 

6 Range ("D2:H2") .FormulaArray = "=Transpose (Al :A2)})™" 
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lm MsgBox Range ("D2:H2") .FormulaArray 
8. End Sub 


代码 分 析 : 以 上 代码 自动 往 A1:A5 输入 内 容 后 ， 自 动 往 D2:H2 输入 数组 公式 ， 实 现 数 
据 的 转 置 。 运 行 上 述 过 程 ， 结 果 如 图 14-19 所 示 。 
第 7 行 代 码 的 对 话 杠 用 于 获取 单元 格 区 域 中 的 数组 公式 字符 串 ， 运 行 结果 如 图 14-20 所 示 。 


| {=TRANSPOSE th1:45)} 





图 14-19 ”自动 输入 数组 公 图 14-20 ”运行 结果 7 


14.2.4.2 ”获取 和 判断 单元 格 内 容 

单元 格 中 的 数值 型 数据 可 以 显示 为 日 期 时 间 型 ，Excel 规定 1900 年 1 月 1 日 与 正 整数 1 

在 任 一 单元 格 中 输入 1， 然后 设置 单元 格格 式 ， 选 择 数字 格式 为 “日 期 "， 在 对 话 框 中 
可 以 看 到 1900/1/1， 如 图 14-21 所 示 。 

如 采 在 单元 格 中 下 接 输 入 1900/2/1， 单 元 格 会 显示 为 日 期 格式 ， 不 过 可 以 改变 数字 格式 
为 “和 常规”, 结果 为 32。 

Excel VBA 中 ， 对 于 Range 对 象 的 Value 属性 ， 当 单元 格格 式 为 数值 型 ， 就 获取 到 数 
值 ; 如 果 是 日 期 时 间 型 ， 获取 到 日 期 时 间 型 。 而 对 于 Value2 属性 ， 无 论 单元 格 目前 是 什么 
类 型 ， 一 律 转换 为 数值 型 。 





1 
2 
3 
4 
9 
6 
了 
9 




















图 14-21 日 斯 和 数字 的 互 换 性 
源 代码 实例 文档 21.xlsm/ 单元 格 内 容 属 性 


1 Sub Test4{) 

2 Range ("Al") .Value = Date 

3 Range ("A2") -Value = 42921 

由 。 Debug.Print Range ("Al") .Value, Range ("Al") .Valuez 
Debug.Print Range ("A2") .Value, Range ("A2") .Value2 
6 End Sub 


代码 分 析 : 第 2 行 代码 ， 往 Al 中 输入 当前 日 期 : 2017 年 7 月 5 日 。 第 3 行 代码 ， 往 
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A2 中 输入 一 个 整数 42921 (该 数字 与 2017 年 7 月 5 日 是 相 
等 的 )。 2017/7/5 42921 

第 4 ~5 行 代码 ， 打 印 单元 格 的 Value 与 Value2 属性 ， 结 
果 如 图 14-22 所 示 。 

由 此 可 见 ， 当 单元 格格 式 为 日 期 时 ，Value 和 Value2 属性 是 不 同 的 。 

如 果 一 个 单元 格 的 值 是 由 公式 计算 出 来 的 ， 不 是 直接 输入 的 内 容 ， 当 鼠标 单 击 该 单元 格 
时 ， 公 式 编 辑 栏 显示 的 是 公式 ， 而 不 是 计算 结果 。 

下 面 的 过 程 演示 了 如 何 用 VBA 月 动 输入 公式 ， 验 证 一 个 单元 格 是 否 有 公式 ， 如 果 有 公 
式 ， 公式 具 体 是 什么 。 


源 代 码 : 实例 文档 21.xlsm/ 单元 格 内 容 属 性 





42921 42921 


图 14-22 ”运行 结果 8 


1 Sub Testo{() 

pu Range ("Al") .Value = 了 7 

3 Range ("Bl1") .Formula = "=Al’ 2" 

4 。 Debug.Print Range ("Al") .HasFormula, Range("Al") .Formula 
he Debug.Print Range("Bl1l") .HasFormula, Range ("Bl1") .Formula 


6. End Sub 


代码 分 析 : 第 3 行 代码 ， 往 B1 中 输入 一 个 公式 ， 用 来 计算 Al 的 平方 ， 会 在 Bl 单元 格 
看 到 1369。 

第 4 ~5 行 代码 ,分 别 在 立即 窗口 打印 是 否 有 公式 ， 以 及 公式 字符 串 。 运 行 后 ， 会 在 立 
即 窗 口 看 到 Al 没有 公式 ， 它 的 Formula 属性 与 Value 属性 是 一 样 的 ， 都 是 37 ; 而 Bl 有 公 
式 ，Formula 就 是 公式 字符 串 ，Value 属性 是 1369 。 

上 述 过 程 运行 后 ， 立 即 窗 口 的 打印 结果 如 图 14-23 所 示 。 

关于 数组 公式 方面 的 HasArray 以 及 FormulaArray ， 请 谍 
者 目 行 研究 。 

接 下 来 讲解 ， 如 何 判断 单元 格 内 容 类 型 ， 以 及 判断 单元 格 
是 否 有 内 容 。 


源 代码 : 实例 文档 21.xlsm/ 单元 格 内 容 属 性 





图 14-23 ”运行 结果 9 





1 Sub Teste () 

2 . Range ("Al:AlUV0") .ClearContents 

3 Range ("Al™") .Value = #7/5/2017# 

4. Range ("A3") .Value = 58 

+ Range ("A") .Value = False 

6. Range ("A/") .Value = "China™ 

1 Debug.Print IsEmpty(Range ("Al")), IsEmpty(Range ("A2")) 

98 Debug.Print Application.WorksheetFunction.IsText (Range (AI) .Value), 


Application.WorksheetFunction.I1IsText (Range ("A/") .Value) 

“ Debug.Print VBA.Information.IsDate (Range ("Al"))}), VBA.Information. 
IsDate (Range ("A3")) 

10. End Sub 


代码 分 析 : 第 2 行 代码 用 来 清空 A1:A10 的 所 有 内 容 。 第 3 ~ 6 行 代 码 用 来 往 个 别 单元 
格 中 输入 内 容 。 第 7 行 代码 验证 Al1、A2 是 否 为 空 单元 格 ， 返 回 False、True。 第 8 行 代码 
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利用 Excel 内 置 工 作 表 消 数 验 证 非 空 单元 格 中 的 内 容 是 否 为 文本 类 型 ， 返回 False、True。 第 
9 行 代码 验证 单元 格 中 的 内 容 是 否 为 日 期 时 间 类 型 ， 返 回 True、False。 

重要 提示 : VBA 的 内 置 唤 数 IsArray 用 来 判断 一 个 数值 是 否 为 数组 。 

源 代 码 : 实例 文档 21.xlsm/ 单元 格 内 容 属 性 


1 Sub Testy 1() 

2 Debug.Print VBA.IsArray(3.14) 

SE Debug.Print VBA.IsArray (Array (2, 4, 6, 8)) 

= Debug.Print VBA.IsArray (Range ("Al") .Value) 

5 Debug.Print VBA.IsArray (Range ("Al]:B3") .Value) 
6 End Sub 








代码 分 析 : 该 过 程 用 于 判断 数据 类 型 是 否 为 数组 ， 运 行 结果 如 
图 14-24 所 示 。 

可 以 看 出 ， 如 果 是 一 个 单元 格 的 Value 属性 ， 则 返回 该 单元 格 
的 内 容 ， 而 不 是 数组 ; 如 采 是 多 个 单元 格 组 成 的 区 域 ， 其 Value 属 


14.2.4.3” 自 定义 单元 格 

Excel 单元 格 的 数字 格式 可 以 通过 “单元 格格 式 ” 设 置 对 话 框 的 “数字 ”选项 卡 来 设 定 。 

在 单元 格 中 输入 一 个 数字 为 3200.5294， 然 后 在 格式 对 话 框 中 设置 数字 格式 为 “货币 ”， 
小 数位 数 为 2 位 ， 进 行 四 舍 五 人 ， 结 果 如 图 14-25 所 示 。 





bd 
| 


2D 92. 


[ms 


$3.,200,53 


eat D) 


货币 符号 (国家 /地 区 )(S): 4 -| 


负 效 人 


($1,234,10) 
[$1,234.10) 
1234.10 


-$1.234.10 





澳币 格 元 用 于 表示 一 般 首 而 痕 值 。 会 计 枸 式 可 以 对 一 列 | 过 值 进行 小 数 点 对 齐 。 
图 14-25 设置 单元 格 的 数字 格式 
单 击 “确定 ”按钮 并 关闭 对 话 框 ,可 以 看 到 单元 格 中 的 显示 内 容 与 公式 编辑 栏 的 内 容 是 
不 一 样 的 。 
实际 上 ， 无 论 单 元 格格 式 设置 为 哪 一 种 ， 单 元 格 本 质 内 容 没 有 变化 ， 即 使 设置 了 小 数位 
数 ， 数 字 本 吴 不 会 有 损失 。 
在 VBA 中 ,可 以 用 Value 属性 获得 本 质数 值 ， 用 Text 属性 获得 显示 出 的 内 容 。 
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源 人 代码， 实例 文档 21.xlsm/ 单元 格 内 容 属性 

1. Sub Test8() 

站 二 Debug.Print Range("B2") .Value, Range("B2") .Text 

3. End Sub 

运行 结果 为 : 3200.5294 $3,200.53。 

上 面 讲 的 是 手工 设置 单元 格 的 数字 格式 ， 接 下 来 讲解 如 何 用 VBA 自动 设置 数字 格式 ， 
Range 对 象 的 NumberFormat 属性 用 来 读 写 单元 格 的 日 定义 格式 。 

源 代码 : 实例 文档 21.xlsm/ 单元 格 内 容 属性 


1 Sub Test9{) 

之 Range ("C3") .Value = 40000 

本 Range ("C3") .NumberFormat = "YYYY 年 dd 日 mm 月" 

和 4 Range ("C4") .Value = #6:00:00 AM# 

I Range ("C4") .NumberFormat = "0.00" 

6 Debug.Print Range{("C3") .Value, Range ("C3") .Text, Range("C3") .NumberFormat 
1 Debug.Print Range("C4") .Value, Range ("C4") .Text, Range ("C4") .NumberFormat 
8 End Sub 


代码 分 析 : 第 2 行 代码 往 C3 中 输入 整数 。 第 3 行 代码 设置 C3 的 格式 为 日 期 。 第 4 行 
代码 往 C4 中 输入 一 个 时 间 。 第 5 行 代码 设置 格式 为 两 位 小 数 ， 由 于 Excel 数字 的 单位 是 1， 
因此 一 天 24 小 时 就 等 价 于 数字 1， 那么 上 午 
六 点 就 是 /4 天 ， 因 此 转 为 小 数 后 是 0.25。 第 
6 ~ 7 行 代 人 码 分 别 打 印 C3 和 C4 单元 格 的 属 
性 ， 运 行 结果 如 图 14-26 所 示 。 


14.2.4.4 ”清除 单元 格 内 容 

Range 对 象 的 ClearContents 方法 用 来 清除 单元 格 的 内 容 ， 而 不 清除 格式 。 该 方法 等 价 
于 用 鼠标 选中 一 个 区 域 后 按 下 【 Delete 】 键 。 

例如 ，Range("A1:D9").ClearContents 清除 区 域 的 内 容 ， 如 果 该 区 域 设 置 了 边框 线 ， 或 

在 日 常 办 公 中 ,很 多 情况 下 需要 清除 所 有 公式 ,但 是 保留 计算 结果 。 下 面 举 一 个 例子 。 

源 代码 : 实例 文档 21.xlsm/ 单元 格 内 容 属性 








1 Sub Testl1l1() 

之 Dim 1 As Integer 

3 For 1 = 1 To 10 step 2 

4. Range ("A™ & 1).Value = 1 

3 Range ("B™ & 1).Value = 1 + 荆 

6 Range("C™” & 1).Formula = "=~A™ & 1 & "*B™" & 1 
1 Next 1 

8 End Sub 


代码 分 析 : 第 4 行 代码 往 A 列 中 输入 奇数 。 第 5 行 代码 往 B 列 输入 偶数 。 第 6 行 代码 
往 对 应 的 C 列 输入 一 个 公式 ， 计 算 左 侧 两 个 数字 的 滋 积 。 运 行 结 采 如 图 14-27 所 示 。 
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那么 接 下 来 如 何 把 C 列 中 所 有 公式 清除 ， 只 
保留 结果 呢 ? 接着 运行 下 面 的 Test12， 会 发 现 C 
列 每 个 单元 格 部 不 含 公式 。 

源 代码 实例 文档 21.xlsm/ 单元 格 内 容 属 性 


让 本 
上 


1. Sub Testl1lz () 

Range ("Cl:C9") .Value = 
Range ("Cl:C9"). 

Value 图 14-27 运行 结果 12 

3。 End Sub 

代码 分 析 : 实现 的 原理 其 实 是 对 单元 格 区 域 的 重新 赋值 ， 把 原先 的 值 以 数组 的 形式 
再 次 赋值 到 源 区 域 。 

如 果 要 对 鼠标 选中 的 区 域 清 除 公 式 ， 则 可 以 改写 为 Selection.Value=Selection.Value。 


a 
2 
3 
二 
9 
6 
下 
8 
9 


| 
人 





14.3 Range 的 产生 和 转化 


一 般 情况 下 ， 创 建 Range 对 象 可 以 用 Application 对 象 开始 ， 经 由 Workbook 、Worksheet 
逐 级 产生 。 

但 是 在 实际 编程 过 程 中 ， 经 党 是 由 己 有 的 Range 对 象 来 产生 或 表达 与 其 相关 的 其 他 
Range。 因 此 ， 熟 悉 和 理解 Range 的 转化 技术 ， 将 会 大 大 提高 Excel VBA 的 编程 能 力 。 


14.3.1 引用 工作 表 已 使 用 区 域 


对 于 新 建 的 工作 表 ， 所 有 单元 格 都 是 空白 单元 格 ;对 于 有 数据 的 工作 表 ， 数 据 区 域 是 多 
大 ， 地 址 是 多 少 呢 ? 可 以 使 用 Worksheet.UsedRange 来 获得 ，UsedRange 表示 工作 表 中 已 使 
用 的 单元 格 区 域 。 

在 一 个 空 日 工作 表 中 输入 一 部 分 数 子 ， 如 图 14-28 所 示 。 


1 
此 
3 
4 
9 
| 
9 
8 





图 14-28 ”个别 单元 格 输入 内 容 
然后 执行 下 面 的 过 程 。 
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源 代码 ， 实例 文档 23.xlsm/Range 的 产生 和 转化 


1 Sub Testl]{() 

Dim Ig As Range 

3 Set Ig = ActiveSheet .UsedRange 
4. rg.Select 


5. End Sub 


代码 分 析 : 如 果 用 一 个 矩形 框 把 工作 表 中 所 有 有 数据 的 单元 格 框 起 来 ， 这 个 框 的 地 址 将 
会 是 A3:D11， 因 此 ， 上 述 过 程 执 行 后 会 目 动 选中 A3:D11。 

在 实际 编程 应 用 中 ， 经 常事 先 清 空 工 作 表 中 的 数据 ， 然 后 重新 写 人 人。 那么 清空 工作 表 所 
有 数据 ， 可 以 使 用 ActiveSheet.UsedRange.ClearContents 来 完成 。 


14.3.2 ”引用 当前 连续 区 域 


在 很 多 情况 下 Excel 工作 表 包 含 多 个 数据 区 域 ， 数 据 区 域 之 间 有 空白 行列 。VBA 使 用 
Range.CurrentRegion 来 获取 一 个 区 域 的 连续 区 域 。 

打开 源 文 件 Dataxlsm， 工 作 表 data 中 有 3 个 数据 区 域 ， 如 图 14-29 所 示 。 如 采用 鼠标 
选中 123 单元 格 ， 然 后 按 下 快捷 键 【 Ctrl+A ]， 会 看 到 全 选 这 个 数据 区 域 ， 而 不 是 全 选 整个 
工作 表 。 


由 
1 上 怪 吉 考 亏 3 = 
何 情 情 051111110146 3003w*06203 2 2 党 局 姓名 i 计 看 机 | 经 济 计 
3 | 帷 素 萍 051111110453 2001r11e12 3 2017001 | 起 名 , 39 
4 癌 超 "D5111111089 2002r09r12 32 5 : 3 : 2017002| 乒 洒 
5 牛 囊 萍 05114511058 2002m0PzD 昌 3 2017003 孙 三 
占 。 寻 屠 字 511 二 51 1 0 名 an0n03*1Lae19 at 2017004| 李 其 
7 | 王 黄 明 51144110206 2002r11r2d L 22 2017005 周二 


3 | 碟 科 晰 051111110138 200371L21B 2017006 下 可 
9 | 台 化 情 。 051LLLLLO00S 2002r08r04 E 2017007 郑 启 
区 0 玉芝 M51111110148 2002r0Bra 
51111110452 2001711710 
,0511d9110092 2003r04r29 5 20170d10| 王石 
3ll45110635 2002707209 
051145110815 2002w0LP1L3 
0511211104#19 2003705717 
M51145110431 2003r11708 
D51111110397 200307+26 
051111110458 2003r11r23 
"05112111063E 200302715 
M51145110829 2004r01r10 
051111110074 2002712#06 1 State Tam Feb 
D51121110764¢ 2001r11r04 D3 3 2 Californi 时 1,118.00 下 二 960, 00 
M51145110701 20020123 2 2 ; Vashingtd $ 1.247,00 | $ 1,238,00 
,251111110001 2002r05#15 2 Dregzom | $1, 460.00 1, 954#, 00 
051111110372 2003r04:29 5 32 2 ATizeana | 于 1 ,845,00 下 1 375,00 
051LLLLLOD02 200270970 
051121110637 20n3r1225 
D51145110669 2003r09r0d 
051111110456 30037n6 33 
051145110356 2002r12r29 





data 性) 


图 14-29 测试 用 数据 表 
过 程 演示 如 何 用 VBA 来 获得 区 域 的 连续 区 域 。 


源 代码 : 实例 文档 23.xlsm/Range 的 产生 和 转化 Nicrosoft Ecal MEN 


1 Sub Test2() 

a Dim wst As Worksheet $K$21:$N$25 
3 Set wst = Application.Workbooks ("Data .xlsm") .Worksheets (1) 

4. MsgBox wst.Range ("L23:M24") .CurrentRegion.Address 


5. End Sub 





运行 结果 如 图 14-30 所 示 。 图 14-30 ”运行 结果 13 
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14.3.3 引用 数组 公式 区 域 


Excel 工作 表 中 ， 对 于 输入 了 数组 公式 的 区 域 ， 用 户 不 可 以 更 改 该 区 域 的 一 部 分 ， 只 能 
整体 删除 数组 公式 ， 对 整体 区 域 进行 内 容 的 修改 。 

VBA 中 ， 通 过 Range.CurrentArray 可 以 获取 与 某 单 元 有 关 的 数据 区 域 。 

打开 源 文件 “实例 文档 23.xlsm”, 切换 到 工作 表 Sheet2 ， 该 工作 表 的 C、D 列 用 来 计算 
B 列 的 平方 和 立方 。 

事先 在 C3:C10 中 输入 数组 公式 “=B3:B10^2”， 按 下 快捷 键 【 Ctrl+ShiftrEnter 】 可 得 到 
结果 ， 如 图 14-31 所 示 。 

如 果 现 在 运行 Range("C4").ClearContents 试图 清空 单元 格 C4， 则 会 弹出 错误 对 话 框 ， 
如 图 14-32 所 示 。 


Microsoft Visual Basic 





运行 时 错误 “1004 : 
不 能 更 改 数 组 的 某 一 部 分 。 
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图 14-31 带 有 数组 公式 的 单元 格 区 域 图 14-32 ”错误 对 话 框 


以 下 过 程 利 用 Range 的 CurrentArray 获取 到 数组 公式 所 在 区 域 ， 然 后 删除 数组 公式 。 
源 代 码 : 实例 文档 23.xlsm/Range 的 产生 和 转化 


i 
| 


Sub Test31{() 
Dim TI As Range 
Set rg = Range ("C4:CI") .CurrentArray 


MsgBox " 下面 将 删除 数组 公式 ! "，vbInformation 
rg.ClearContents 


1 

- 

3 

4. rg.Select 
3 

6 

了 End Sub 


执行 上 述 过 程 后 ， 将 删除 整个 数组 公式 ， 也 就 是 把 C3:C10 区 域 的 公式 删除 。 
14.3.4 引用 整 行 与 整 询 


在 Excel VBA 中 ， 使 用 Range.EntireRow 以 及 EntireColumn 可 以 把 已 有 区 域 扩 
展 到 整 行 或 整 列 。 

打开 源 文件 Data.xlsm， 如 果 试 图 用 VBA 清除 B 列 ( 考 号 ) 内 容 ， 运 行 如 下 过 程 。 

源 代码 : 实例 文档 23.xlsm/Range 的 产生 和 转化 

1. Sub Test4() 

区 ActiveSheet.Range ("B1") .EntireColumn.Select 

， 


ActiveSheet.Range("Bl") .EntireColumn.ClearContents 
End Sub 
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14.3.5 单元 格 的 偏 移 


Range.Offset 可 以 获得 由 原 Range 对 象 俩 移 后 的 单元 格 区域 。 单 元 格 的 偏 移 可 以 分 为 如 
下 三 个 方向 。 

DD 上 下 王 和 下 偏 移 : Range.Offset(r)，r>0 表示 问 下 俩 移 ，r<0 表示 加 上 侦 移 。 

D 左右 水 平 俩 移 : Range.Offset(.c)，c>0 表示 回 右 偶 移 ，c<0 表示 问 左 偏 移 。 

口 竹器 偶 移 : Range.Offset(r,c), r 表示 上 下 偶 移 量 ，ec 表示 左右 偶 移 量 。 

源 代 码 : 实例 文档 23.xlsm/Range 的 产生 和 转化 


1 Sub Test5 () 

2 Dim Igl] As Range, Ig2 As Range 

& Set rgl = Worksheets ("Sheet2") .Range("B2:D10") 

4. Set rg2 = rgl .offset (3) 

2 rg2.Select 

6 MsgBox "rgl 向 下 偏 移 三 个 单位 是 ， ”下 Ig2.Address (False, False) 
* End Sub 


代码 分 析 : 第 4 行 代码 中 ，rg1.Offset(3) 括 


了 内 只 有 一 个 数字 3， 表示 往 下 俩 移 3 个 单位 。 
运行 结果 如 图 14-33 所 示 。 


如 条 数 据 区 域 回 右 俩 移 3 个 单位 ， 只 需要 
把 上 述 代码 中 的 Offset(3) 改 成 Offset(,3)， 将 选 
中 E2:G10 单元 格 区 域 。 

如 采 改 成 Offset(-1.3)， 其 含义 是 同上 平移 
1 个 单位 ， 然 后 回 右 平 移 3 个 单位 ， 将 会 得 到 
El1:G9 单元 格 区 域 。 

Offset 还 可 以 用 在 单元 格 的 遍历 过 程 中 。 

源 代码 : 实例 文档 23.xlsm/Range 的 产生 和 转化 


lL 
也 
3 
d 
5 
6 
E 
9 








1。 Sub Teste() 

四 Dim 1 As Integer 

E For 1 = 1 To 9 Step 2 

4. Range ("Al™") .offset (i, 1).Interior.Color = vbhBlue 
2 Next 1 

6. End Sub 


运行 上 述 过 程 ， 可 以 为 B2、D4 等 5 个 斜 向 单元 格 设置 填充 色 。 
通过 上 面 的 讲解 ， 可 以 看 出 Offset 的 特点 是 : 俩 移 后 的 区 域 与 源 区 域 尺 寸 相 等 ， 但 位 
置 不 同 。 


14.3.6 ”改变 时 元 人 属 区 域 大 小 


Range.Resize 9 以 基于 源 区 域 的 左上 角 ， 重 新 定义 区 域 代 寸 ， 而 得 到 一 个 新 的 区 域 。 
Resize 的 参数 也 分 三 种 情形 。 
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D 只 改变 区 域 高 度 : Resize(D ， 表 示 新 区 域 具有 T 行 ， 列 数 不 变 。 
D 只 改变 区 域 宽 度 : Resize(,c)， 表 示 新 区 域 具有 ec 列 ， 行 数 不 变 。 
口 重 定义 尺寸 : Resize(r,c)， 表 未 新 区 域 具有 Ir 行 c 列 。 

下 面 的 过 程 把 原 区 域 扩 展 为 4 列 。 

源 代 码 : 实例 文档 23.xlsm/Range 的 产生 和 转化 


1 Sub Testy 1() 

Dim Igl As Range, rg2 As Range 

3 Set rgl = Worksheets("Sheet2") .Range("B2:D10") 

4 Set rg2 = Igl.Resizel(, 4) 

中 rg2.Select 

6 MsgBox "rgl 扩展 为 4 列 的 地 址 : " & rgz2.Address (False, False) 
1 End Sub 


代码 分 析 : 第 3 行 代码 中 rgl 表示 的 是 工 
作 表 中 的 数据 区 域 。 第 4 行 代 但 在 rgl 的 基础 
上 改变 列 数 为 4， 因 此 运行 结果 为 B2:E10， 如 
图 14-34 所 示 。 

下 面 举 一 个 同时 改变 行列 数 的 例子 。 

源 代 码 : 实例 文档 23.xlsm/Range 的 产生 和 转化 


1 
3 
4 
加 | 
6 
站 
8 


1. Sub Test8 () rg1 扩 展 为 4 列 的 地 址 : B2:E10 
站 Dim Igl As Rande rg2 As Range 


二 Set rgl = Worksheets ("Sheet2"). 





/ WE | 
Range ("B2:D10") 
4. Set rg2 = Igl.Resize (2, 2) 


rgq2.Select 图 14-34 运行 结果 ] 
6. End Sub 


代码 执行 后 ， 选 中 的 区 域 是 2 行 2 列 。 

可 以 看 出 ，Resize 产生 的 区 域 还 是 基于 源 区 域 的 左上 角 ， 只 是 重新 定义 了 尺寸 。 同 样 ， 
Resize 也 可 以 用 于 单元 格 的 遍历 之 中 。 下 面 举 一 个 比较 有 趣 的 例子 。 

源 代 码 : 实例 文档 23.xlsm/Range 的 产生 和 转化 


1] Sub Test9() 

之 Dim 1 As Integer 

: For 1 = 9 To 1 Step 一 
4 Range ("Al") .Resizel(i, 1).Interior.ColorlIndex = 1 
二 Next 1 
6 End Sub 


代码 分 析 : 该 过 程 使 用 的 是 倒序 循环 ， 先 把 Al 扩展 
到 5 行 5 列 ， 填 充 色 设置 为 蓝 色 ; 然后 变形 为 4 行 4 列 ， 
再 换 一 个 颜色 。 最 后 形成 如 下 阶梯 状 ， 如 图 14-35 所 示 。 
如 采 采 用 正 序 循环 ， 将 导致 填 充 色 的 窗 益 。 





图 14-35 使 用 Resize 遍历 单元 格 


S10 
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14.3.7 ”获取 最 后 一 个 非 空 单元 格 


在 用 Excel VBA 处 理工 作 表 数据 时 ， 经 稼 需要 获取 到 数据 区 域 的 边界 。Range 对 象 中 的 


End 属性 可 以 快速 返回 边界 单元 格 。End 属性 的 括号 内 可 以 使 用 如 下 四 个 枚 举 常 量 。 


口 xIUp: 上 边界 。 

口 XIDown:， 下 边界 。 

口 XIToLeft:， 让 边界 。 

口 xlToRight: 右边 界 。 

打开 源 文件 Dataxlsm， 运 行 如 下 过 程 。 
源 代 码 : 实例 文档 23.xlsm/Range 的 产生 和 转化 


1 Sub Testl10 1() 

2 Dim Igl] As Range, IIJ2 As Range, rg3 AS Range, rg4 As Range 
3 Set ITIL = Range ("D13") .End (xlUp) 

4. Set rg2 = Range ("D113") .End (xlDown) 

2 Set rg3 = Range("Dl3") .End(xlToLeft) 

6 Set rg4 = Range ("D13") .End (xlToR1ight) 

1 

8 








Debug.Print rgl.Address, rg2.Address, rg3.Address, rg4.Address 
End Sub 


代码 分 析 : 代码 中 使 用 了 四 个 对 象 变量 ，rgl 用 来 获取 单元 格 D13 向 上 方向 的 最 后 一 个 


数据 单元 格 。 


运行 上 述 过 程 ， 立 即 窗口 的 打印 结果 为 : $SD$1 $D$30 $A$13 $H$13。 
下 面 的 例子 用 来 获取 成 绩 表 中 最 后 一 行 的 行 号 、 最 后 一 列 的 列 标 。 
源 代 码 : 实例 文档 23.xlsm/Range 的 产生 和 转化 


1] Sub Testl]111() 

2 Dim IT As Integer 

E T = Range ("Al0000™") .End (xlUp) .Row 

4 MsgBox "A 列 数据 区 域 最 后 一 行 的 行 号 是 : " & 工 
J End Sub 


代码 分 析 : Range("A10000") 是 一 个 非常 徘 下 的 空 日 单元 格 ， 由 这 个 单元 格 加 上 找 有 数 


据 的 单元 格 ， 会 找到 A30， 因 此 最 后 一 行 的 行 号 是 30。 


代码 分 析 : 从 Al 单元 格 向 右 找 最 后 一 个 数据 单元 格 ， 对 


Sub Testl1z2 () 
Dim rg As Range 
Set rg = Range("Al") .End (xlToR1ight) 
MsgBox "A 列 数据 区 域 最 右 一 列 的 列 标 字母 是 : " 
& Split(rg.Address, "$") (1) & vbhNewLine & | A 列 数据 区 域 最 右 一 列 的 列 标 字母 旦 : 
" 列 号 是 : " & rg.Column 本 

D3. End Sub 


话 框 中 返回 的 结果 如 图 14-36 所 示 。 图 14-36 ”运行 结果 16 
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[ End+ 1 ]， 也 会 快速 跳 转 到 最 上 面 一 个 边界 单元 格 。 其 他 三 个 方向 与 此 类 似 。 


14.3.8 区域 的 联合 
很 多 情况 下 ， 需 要 对 多 个 分 离 的 单元 格 区 域 进 行 相同 的 处 理 ， 此 时 可 以 使 用 Applica- 
tion.Union 方法 把 多 个 分 离 的 区 域 联合 成 一 个 区 域 。 其 语法 是 : 


Application.Union (Rangel,Range2,**, Rangen) 


源 代 码 : 实例 文档 23.xlsm/Range 的 产生 和 转化 


1. Sub Testl131) 


a Dim Total As Randge 

3. Set Total = Application.Union (Range({ “Al:B3” ), Range({ “D2:D5”), 
Range( “Fl1:F3” )) 

4 Debug.Print Total.Address (False, False) 

5 Debug.Print “包含 的 分 离 区 域 有 :”& Total .Areas.Count 区 “个 ” 

6. Total.Select 

1 End Sub 


代码 分 析 : Total 是 一 个 Range 类 型 的 对 象 变 量 ， 第 3 行 代码 把 多 个 分 离 的 区 域 联合 在 
一 起 ， 赋 给 Total。 第 5 行 代码 打印 总 体 区 域 中 的 分 离 区 域 个 数 。 第 6 行 代 人 码 目 动 选中 总 体 

运行 代 人 码 后 ， 立 即 窗口 的 打印 结果 如 图 14-37 所 示 。 

工作 表 中 的 效果 如 图 14-38 所 示 。 





图 14-37 运行 结果 17 图 14-38 ”工作 表 中 的 选 定 效 果 
如 果 把 三 个 以 上 分 离 区域 全 都 联合 在 一 起 ， 把 每 个 区 域 的 地 址 写 信 Union 显得 烦琐 ， 可 
以 使 用 循环 ， 每 循环 一 次 ， 就 联合 一 个 区 域 。 
源 代码 : 实例 文档 23.xlsm/Range 的 产生 和 转化 


1] Sub Testl141{) 

之 Dim Total As Range, 1 As Integer 

二 Set Total = Range ("Al:Bl1") 

4 For 1 = 3 To 19 step 2 

5 Set Total = Application.Union(Total, Rangel("A”" & 1 & ":B”" & 1)) 
6 


Next 1 
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Fi Debug.Print Total.Address (False, False) 
38. Total.Select 
9。 End Sub 


代码 分 析 : 从 3 循环 到 19， 步 长 为 2， 把 单元 格 区 域 逐 步 联合 ， 而 不 是 一 次 性 联合 。 
上 述 过 程 运行 后 ， 工 作 表 中 的 效果 如 图 14-39 所 示 。 












































14-39 ”隔行 选中 单元 格 


14.3.9 区 域 的 相交 包含 


Application.Intersect 方法 可 以 获取 多 个 区 域 的 重 登 部 分 区 域 ， 也 台 是 公共 区 域 。 
源 代码 : 实例 文档 23.xlsm/Range 的 产生 和 转化 


1。 Sub Testl1s1() 


a Dim Common As Range 

3 Set Common = Application.Intersect (Range ("A2:D6"), Range("B3:D11"), 
Range ("A4:C8"™)) 

二 。 Debug.Print Common.Address (False, False) 

Common.Select 


6. End Sub 

代码 分 析 : 上 述 代码 把 三 个 区 域 重 有 登 部 分 赋 给 变量 Common。 和 第 4 行 代码 的 打印 结 采 是 
B4:C6。 

如 采 多 个 区 域 不 存在 重 友 的 部 分 ， 则 可 以 用 如 下 方式 来 判断 是 否 有 公共 部 分 ， 或 者 区 域 
之 间 是 否 存 在 包 售 关系 。 

源 代 码 : 实例 文档 23.xlsm/Range 的 产生 和 转化 


1. Sub Testl16t() 
本 Dim rgl As Range, IOG2 As Range 
二 Set Igl] = Range ("A2:D6") 
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4 Set rg2 = Range ("A8:cC10") 

If Application.Intersect (rgl, rg2) Is Nothing Then 
6 MsgBox " 以 上 两 个 区 域 完 全 分 离 。" 

1. Else 

8 MsgBox " 以 上 两 个 区 域 有 公共 区 域 部 分 。" 

9 End If 

10. End Sub 





代码 分 析 由 于 上 述 两 个 区 域 没有 重 二 部 分 ， 所 以 下 条件 语句 | 
成 立 ， 运 行 上 述 过 程 ， 弹 出 如 图 14-40 所 示 的 对 话 框 。 14-40 ”运行 结果 18 


14.4 Range 对 象 的 党 用 廊 法 


14.4.1 单元 格 的 选中 和 激活 


如 采 不 使 用 代码 ， 手 工 编辑 单元 格 时 ， 必 须 事先 选中 单元 格 区 域 。 一 般 情 况 下， 鼠标 可 
以 一 次 性 选中 一 个 矩形 区 域 ， 该 矩形 区 域 最 左上 角 的 单元 格 背景 反 白 ， 称 作 活 动 单元 格 。 

也 就 是 说 ， 选 中 的 区 域 可 以 是 多 个 单元 格 ， 但 是 活动 单元 格 有 且 只 有 一 个 。 如 末 选 中 一 
个 区 域 后 ， 按 住 【 Ctrl 】 键 ， 可 以 继续 选择 其 他 区 域 。 

在 Excel VBA 中 ， 使 用 Range.Select 来 代 蔡 手工 日 动 选 中 区 域 ， 重新 选择 区 域 后 ， 对 和 象 
Application.Selection 所 指 代 的 区 域 就 发 生 相应 的 变化 。 

Range.Activate 方法 则 是 激活 单元 格 ， 如 有 果 单 元 格 原先 未 人 处 于 选中 状态 ， 则 使 用 该 方 
法 可 以 选中 并 激活 单元 格 。 激 活 单 元 格 后 ，Application.ActiveCell 这 个 对 象 也 会 指 问 新 的 
单元 格 。 

源 代码 实例 文档 25.xlsm/ 单元 格 的 选中 和 激活 


1]. Sub Testl 1() 

2 ActiveSsheet.Range ("A2:E9") .Select 

Ss Debug.Print " 当 前 所 选区 域 是 : " & Application.Selection.Address 
4. Debug.Print ™ 活动 单元 格 是 " & Application.ActijveCell.Address 
5. End Sub 


运行 上 述 过 程 后 ， 工 作 表 中 的 效果 如 图 14-41 所 示 。 








图 14-41 ”自动 选中 单元 格 区 域 
立即 窗口 打印 出 所 选区 域 地 址 和 活动 单元 格 地 址 ， 如 图 14-42 所 示 。 
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注意 : 如 果 一 个 工作 表 不 是 活动 工作 表 ， 那 么 不 能 直接 用 Select 方法 来 选中 非 活 动 
工作 表 的 区 域 。 


例如 ， 目 前 工作 表 Sheetl 是 活动 工作 表 ， 那 么 试图 日 动 选 中 Sheet2 中 的 单元 格 区 域 ， 
会 出 现 “ 运 行 时 错误 '1004'”， 如 图 14-43 所 示 。 


sub Test2 1) 
Worksheets{ Sheet2”). Range (BS:D8"). Select 
End Sub 
Microsoft Visual Basic 


当前 所 选区 域 是 : $A$2:$E$9 
活动 单元 格 古 $A$2 


图 14-42 ”运行 结果 19 图 14-43 ”运行 时 错误 


也 就 是 说 ，Select 方法 使 用 之 前 ， 需 要 确保 该 区 域 所 在 的 表 是 活动 工作 表 。 
在 Excel VBA 的 插件 制作 过 程 中 ,Selection 和 ActiveCell 这 两 个 对 象 的 使 用 频率 非常 高 ， 








分 别 用 来 处 理 所 选 区 域 以 及 活动 单元 格 。 
为 了 加 深 理解 ,再 看 一 个 实例 。 
源 代码 : 实例 文档 25.xlsm/ 单元 格 的 选中 和 激活 


1 sub Test31{) 

pa Dim ITIL As Range, IO2 As Range 

3 Range ("A2:DI") .Select 

4. Set rgl = Application.Selection 
Range("B3") .Activate 
Set rg2 = Application.ActiveCell 


rg2.1Interior.Color = vbhWhite 
rg2.Value = " 话 动 " 


6 
让 rgl.Interior.Color = vbhGreen 
8 
中 
10. End Sub 


代码 分 析 : 上 述 过 程 中 ，rgl 是 所 选区 域 ， 
rg2 是 活动 单元 格 ， 分 别 设 定 rgl 和 rg2 的 十 
充 色 ， 然 后 往 rg2 中 写 人 值 。 
运行 结果 如 图 14-44 所 示 。 可 以 看 出 ， 
选 定 一 个 单元 格 区 域 后 ， 活 动 单元 格 未 必 就 
是 选 定 区 域 最 左上 角 的 单元 格 。 图 14-44 ”Selection 与 ActiveCell 的 联系 和 区 别 





注意 : Selection 是 一 个 变 体 对 象 ， 当 用 鼠标 选择 了 一 个 单元 格 区 域 ， 那 么 Selection 
就 是 Range 对 象 ; 如 果 工 作 表 上 还 有 图 片 、 图 表 、 艺 术 字 等 对 象 ， 用 鼠标 选中 这 些 
非 单元 格 对 象 时 ， 此 时 Selection 不 是 Range。 
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14.4.2 ”复制 况 切 单元 格 


使 用 Range.Copy 复制 单元 格 ， 使 用 Range.Cnut 勇 切 单元 格 。 

Copy 和 Cnut 方法 后 面 均 可 以 加 一 个 Destination 参数 。 如 采 不 添加 该 参数 ， 单 元 格 内 容 
会 发 送 到 剪贴 板 ， 接 着 需要 使 用 Worksheet.Paste 来 粘贴 。 

在 一 个 空白 工作 表 的 B3:C4 区 域 中 输入 内 容 后 ， 将 其 设置 为 斜体 ， 然 后 运行 如 下 过 程 。 

源 代码 实例 文档 25.xlsm/ 复制 剪 切 单 元 格 


1] Sub Test 21{) 

2 Range ("B3:C4") .Copy 

3 Range ("E11") .Activate 
4. Activesheet.Paste 

5 Range ("B13") .Activate 
6 ActiveSsheet.Paste 

1 End Sub 


代码 分 析 : 第 2 行 代码 把 单元 格 内 容 发 送 到 藤 贴 板 ， 此 时 B3:C4 区 域 周围 出 现 虚线 框 ， 
然后 激活 单元 格 E11， 进 行 粘贴 ， 接 着 激活 单元 格 B13 ， 再 次 粘贴 。 
上 述 过 程 的 运行 结果 如 图 14-45 所 示 。 


有 可 看 
太志 ?了 站 


Delile 有 村 了 而 
Peilio Heiin 





图 14-45 ”上 有 目 动 复制 、 粘 贴 单元 格 
也 就 是 说 ， 如 果 Copy 方法 后 面 不 市 参数 ， 则 可 以 进行 无 数 次 粘贴 。 
单元 格 的 复制 、 粘 贴 功能 也 可 以 简写 成 一 行 代 码 ， 原 始 区 域 的 内 容 也 不 发 送 到 均 贴 板 。 
例如 ，Range("B3:C4").Copy Destination:=Range("C7") 表示 把 B3:C4 单元 格 区 域内 容 复 
制 到 C7 单元 格 ，Range("B3:C4").Cut Destination:=Range("C7") 表示 把 B3:C4 单元 格 区 域内 


14.4.3 ”粘贴 格式 


如 有 果 想 把 一 个 单元 格 区 域 的 格式 复制 到 男 一 个 单元 格 区 域 ， 在 Excel 的 手工 操作 中 可 以 
使 用 格式 刷 。 通 过 粘贴 格式 ， 可 以 把 原始 区 域 的 数字 格式 、 字 体 风 格 、 填 充 色 等 格式 应 用 于 
目标 单元 格 。 
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源 代 码 : 实例 文档 25.xlsm/ 复制 剪 切 单元 格 


1 Sub Test3() 

a Range ("Al") .Copy 
Application.CutCopyMode = 
2 End Sub 


Range ("D2:E3") .PasteSpecial xlPasteFormats 


False 


上 述 代 码 的 功能 是 把 Al 单元 格 的 格式 ， 复 制 到 D2:E3 单元 格 区 域 。 


14.4.4 ”插入 和 删除 单元 格 


在 Excel 工作 表 中 选中 一 个 单元 格 区 域 ， 右 击 ， 在 弹出 的 快捷 菜单 中 选 


会 弹出 


“插入 ”对 话 框 ， 如 图 14-46 所 示 。 


bd 
La 


姓名 
何 情 情 051111110146 
洋 051111110453 


051111110369 


D51145110529 


1 
加 
3 
4 
5 
B 
了 
8 


D51121110764 


D51145110701 
051111110001 
D051111110372 
D051111110002 
051121110637 


如 采 选 择 “ 活 动 单元 格 右 移 ” 


傈 后: 


该 区 域内 容 会 


D311t5110529 


四 
出 生日 其 


20D027D6B7 2 
20017/11/12 
2002/09/12 
2002ADT /D9 
2003A12/19 
2002711/24 
2002711719 


20017/11/04 
2002A01 A23 
2002705 六 5 
2003/04/29 
2002rn9rn4 
2003/12/25 





先 择 “插入 ”命令 ， 


14-46“ 插 入 ”对 话 框 


蛙 选 按钮 ， 则 选中 的 区 域 原本 位 于 B 列 ， 
移动 到 C 列 中 ， 而 B 列 原 先 位 置 出 现 空 
如 采 选 择 “ 活 动 单元 格 下 移 ” 单 选 按钮 ， 


“插入 ”命令 执 


则 选中 的 区 域 原本 位 于 第 6 ~ 10 行 ，" 插 人" 


命令 执行 后 ， 该 区 域内 容 会 同 下 移动 5 行 ， 原先 位 置 出 现 空 
Excel VBA 使 用 Range.Insert 方法 来 实现 插入 操作 。 
源 代码 ， 实例 文档 25.xlsm/ 插入 和 删除 单元 格 


Ls 
-a 
人 


代码 分 析 :， Excel.XlInsertShiftDirection.xlShiftDown 是 内 置 枚 举 常 


Sub Testl{() 


Range ("B66:B10"™) .Insert Shift:=Excel .XlInsertShiftDirection.xlSshiftDown 


End Sub 


量 ， 表示 活动 单元 格 


下 移 。Testl 过 程 运 行 后 I 14-47 所 示 。 


如 


末 插 入 整 行 或 整 列 ， 


需要 把 选中 区 域 扩展 到 整 行 整 列 。 


源 代 码 : 实例 文档 25.xlsm/ 插入 和 删除 单元 格 


1 
2 


Sub Test2 () 
Ramnde(-B6:B1L0 ") .EntireRow.TInsert 


End Sub 


代码 执行 后 的 结果 如 图 14-48 所 示 。 


齐 晓 滨 


图 14-47 


者 号 

O51111110146 
051111110453 
051111110369 
D51145110587 


D51 了 二 551 1D52=9 
O51144110200 
ODS1L11]11N0133 
O51111110003 
US LLNLd 引 


让 


0511451]052d 


昌 
出 生日 期 


20027067D2 
2001711L 0 
20027097 
2002707/DS 
2003r12/19 
2002/11/24 
2002r11/19 
200270B/ D4 
2002r0B 28 
2001711A10 
200370 呈 2B 
2002r7077DB 
2002101 7 
200370521? 


自动 插入 单元 格 
上 述 Test2 过 程 中 的 EntireRow 更 换 为 EntireColumn 将 实现 插入 列 的 效果 。 
在 Excel VBA 实际 编程 应 用 中 ， 经 营 在 密 密 膝 麻 的 数据 条 中 间 插 入 空 日 行 ， 


| 姓名 
何 情 情 
瞧 素 天 
冯 超 
牛 露 薄 


1 
e 
二 
加 
BB 
轴 
吕 


姚 某 于 
王 欧 明 
陈 科 帘 
白化 睛 
王 梦 洁 


济 志 捕 


用 循环 反复 调用 Insert 方法 插入 整 行 即 可 。 


重新 打开 源 文件 Data.xlsm， 然 ) 


a 


日 未 


源 代 码 : 实例 文档 25.xlsm/ 插入 和 删除 单元 格 


1 
+ 
ee 
4 
可 
名 


sub Test31{) 


Dim 1 As Integer 


FOTr 1 


Next 1 


End Sub 


10 To 1 Step 一 | 


ActiveSsheet.Rows (1 & ™": 


者 与 

O51111110146 
51111110459 
D51111110269 
mm5l1d511Dm587 


0511d45110529 
0511d4d4110200 
D5l1l1l110139 
051111l10003 
051111110149 
DO51111110453 


行 如 下 过 程 。 
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. 
出 生日 期 


O02 O62 
2001711712 
2002709712 
ND2F DT Da 


2003712719 
2002711724 
2002711;19 
20027 D0804 
20027 D6 28 
2001 /i1710 


14-48 


& 1).Insert 


自动 插入 整 行 





代码 分 析 : 该 过 程 使 用 了 倒序 循环 ， 如 果 使 用 正 序 ， 则 每 插 和 一行， 都 会 导致 后 续 的 单 
元 格 的 行 号 发 生 改 变 ， 造 成 罕 乱 。 倒 序 循环 的 思路 是 从 下 面 的 单元 格 开始 插入 行 ， 不 会 影 啊 
后 的 结果 如 图 14-49 所 示 。 


到 上 面 的 行 号 。 


Co 一 Ga OG 


入 一 和 二 一 


运行 


姓名 
何 情 情 


考 号 


0D5ll111110146 
051111110453 
051111110369 


0D5lld45110587 


051145110529 


051144110200 
051111110138 
051111110003 


051111110148 





出 生日 期 


2002706702 
2001711712 
2002/09/12 
2002707708 
2003/12/19 
2002/11/24 
2002/11/18 
2002/08/04 


2002/06/28 


图 14-49 
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删除 单元 格 的 操作 与 插入 单元 格 非常 类 似 ，Range.Delete 方法 也 有 一 个 Shift 参数 ， 用 
来 确定 删除 时 活动 单元 格 的 移动 方向 。 
源 代码 : 实例 文档 25.xlsm/ 插入 和 删除 单元 格 


1. Sub Test4() 
二 Range ("B99:C10") .Delete Shift:=Excel.XlDeleteShiftDirection.xlSshiftToLeft 
3. End Sub 


上 述 代 人 码 表示 删除 B9:C10 单 元 格 内 容 ， 然 后 其 右 侧 的 单元 格 往 左 边 移 。Excel. 
XlDeleteShiftDirection.xlShiftToLeft 是 一 个 内 置 枚 举 常量 ， 意 思 是 删除 后 向 左 移动 。 

下 面 再 举 一 个 删除 整 列 的 实例 。 重 新 打开 源 文件 Data.xlsm， 本 例 删 除 B、D、F 列 (也 
就 是 把 “ 考 号 “语文 “英语 ” 列 删除 )。 

源 代 码 : 实例 文档 25.xlsm/ 插入 和 删除 单元 格 


1] Sub Testo() 

2 ActiveSheet.Columns("F:F") .Delete 

Ss ActiveSsheet.Columns ("D:D") .Delete 2002706102 
| 和 = fn nm 2001711712 
4 ActiveSheet.Columns("B:B") .Delete oD 
J End Sub 2002/07/08 


2003712719 
200271172d 
2002711718 


代码 分 析 : 注意 删除 的 顺序 是 从 右 向 左 倒序 删 2002/a1118 
除 。 与 Insert 方 法 一 样 ， 如 果 先 删除 B 列 ， 后 面 数 i 


1 
= 
加 
4 
加 
6b 
7 
8 
9 





| 中 汪 | 2003/04/28 

据 的 列 标 全 都 发 生变 化 ， 继 续 删除 将 会 导致 不 期 望 有 本 
刘晓波 2003/05/17 

的 结果 0 深 娜 So 11708 


上 述 过 程 运行 后 ， 结 果 如 图 14-50 所 示 。 图 14-50 ”自动 删除 整 列 


14.4.5” 目 动 调 整 行 高 询 宽 


在 Excel 中 选择 “开始 ”一 “单元 格 ” 一 “格式 ”命令 ， 单元 格 大 小 
, 和 人 一 一 = j= 此 | 一 一 sL 了 高 (HH)... 
会 看 到 用 于 调整 单元 格 行 高 、 列 宽 的 菜单 ， 如 图 14-51 所 示 。 自动 调整 行 高 (A) 
其 中 ， 自 动 调整 行 高 、 列 宽 ， 可 以 使 用 Range.AutoFit 方 ea 
居 来 实 现 。 默认 列 寅 (D)... 
- I 站 . ] We 是 入 | 和 可 网 性 
打开 源 文件 “实例 文档 25.xlsm”"， 可 以 发 现 工 作 表 隐 蕊 和 取 湛 隆 芒 (U) 
Sheetl 中 的 数据 表 行 高 、 列 宽 设置 不 一 致 。 可 以 运行 如 下 过 Te 
程 ， 根 据 单元 格 内 容 多 少 自动 调整 行 高 和 列 宽 。 TO)- 
工作 甫 标签 闫 色 站 ) kt 
源 代码 : 实例 文档 25.xlsm/ 自动 调整 行 高 列 宽 保护 
鳃 ”保护 工作 雪 ( 叫 .… 
1. Sub Testl1() | 局 | 钢 定 单元 格 册 
让 ActijveSheet.Columns ("A:F") .AutoFit 设置 单元 格格 式 人 E)... 
3 ActiveSsheet.Rows("1:8") .AutoF1it ee 
4. End Sub 图 14-51 单元 格格 式 菜单 


14.4.6 ” 目 动 填充 
在 Excel 工作 表 的 操作 中 ， 可 以 使 用 填充 柄 根据 已 有 的 数据 快速 十 充 。 
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打开 源 文 件 “ 实 例文 档 2$.xlsm” ， 切 换 到 工作 表 Sheet2 ， 会 看 到 如 下 不 完整 的 数据 区 
域 。 现 在 使 用 代码 日 动 填充 红色 框 内 的 空 日 单元 格 ， 如 图 14-52 所 示 。 


1 on 2 300 
3 加 了 


区 人 平均 分 
75 [31. 33333 


1 
2 
了 
4 
加 
6b 
了 
8 
9 
10 
11 
12 
| 
14 
15 
16 
17 
18 
19 





图 14-52 ”尚未 自动 填充 的 数据 表 
Excel VBA 中 自动 填充 的 语法 是 : 
Rangel .AutoF1ill Destination:=Range2 


语法 中 Rangel 是 指 前 几 个 有 数据 的 区 域 ， 而 Range2 则 是 计划 要 填充 的 目标 区 域 。 
源 代 码 : 实例 文档 25.xlsm/ 自动 填充 


1 Sub Testl1() 

之 Dim Ww As Worksheet 

Ss Set w = Worksheets ("Sheet2") 

4 WwW.Range ("B2:B3") .AutoF1ill] Destination:=w.Range("B2:B10") 
5 End Sub 


运行 上 述 过 程 后 ，B2:B10 中 自动 填 人 了 天 干 序 列 。 
注意 工作 表 中 D5:F6 这 个 区 域 是 水 平方 向 的 ， 是 水 平 同 右 填 充 ， 所 以 可 以 写 出 如 下 代码 。 
源 代 码 : 实例 文档 25.xlsm/ 自动 填充 


1 Sub Test2{() 

过 Dim w As Worksheet 

Sr Set w = Worksheets ("Sheet2") 

44 WwW.Range ("DI:F6") .AutoFill Destination:=w.Range("Do:K6e") 
可 Ww.Range ("Fl13") .AUtoE1ILL Destination:=w.Range ("F113:F19") 
6 End Sub 


单元 格 F13 所 示 原 先 就 是 用 Average 公式 算出 的 平均 分 ， 所 以 使 用 AutoFill 方法 目 动 回 
下 都 填 人 了 公式 。 

运行 以 上 几 个 过 程 后 ， 最 终结 果 如 图 14-53 所 示 。 

值得 注意 的 是 ， 填 充 的 目标 区 域 必 须 包 含 原始 区 域 ， 否 则 会 出 错 。 

例如 ，Range("A1").AutoFill Destination:=Range("A2:A10") 是 不 对 的 ， 因 为 单元 格 Al 
不 在 A2:A10 区 域 。 
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要 “由 书页 看 寺 村 滞 牛 击 
0 | | | 























于 区 分 
91. 33%33 
3 
Ba 72, 66667 
33. BBBET 
a 838 30. 333533 
99 a4[32. 33333| 


图 14-53 ”填充 完毕 的 数据 表 
男 外 ， 和 常见 的 填充 方 品 是 从 上 往 下 、 从 左 往 右 。 其 实 ， 从 下 往 上 、 从 右 往 左 填 充 也 是 可 
以 的 ， 正 确 设 定 好 初始 区 域 和 目标 区 域 即 可 。 






































14.4.7 ”单元 格 排序 


排序 是 指 工作 表 中 的 数据 区 域 以 某 一 列 为 基准 , 行 与 行 之 间 位 置 的 调整 。 排 序 与 筛选 不 
同 ， 排 序 后 可 以 看 到 数据 条 目 总 数 不 变 ， 而 且 排 序 并 保存 文件 后 不 可 恢复 到 初始 状态 。 
下 面 先 看 一 下 Excel 的 “排序 选项 ”对 话 框 ， 如 图 14-54 所 示 。 


“到 添加 条 件 内 || 六 贡 除 条 件 [D) | | 丝 复制 条 件 (C 


Dr 


wa Ib3 | 二 | 十 | 二 | 十 





图 14-54“ 排 序 选 项 ”对 话 框 
Excel VBA 通过 Range.Sort 方法 实现 排序 ， 排 序 的 主要 参数 如 下 。 
口 Key: 关键 字 。 

DD Order: 升序 、 降 序 。 

D Header: 数据 区 域 是 否 包含 标题 。 
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口 SortMethod: 汉语 排序 方式 (拼音 、 笔 画 )。 
打开 源 文件 Dataxlsm， 运 行 如 下 过 程 。 
源 代 码 : 实例 文档 25.xlsm/ 自动 填充 


1. Sub Testl1() 

pa Range ("Al") .CurrentRegion.Sort Keyl:=" 语文 ", Orderl:=xlDescending, 
Key2:=" 数学 "， Order? :=~xXl]Ascending, Header:=xlYes, SortMethod:=xl PinYin 

3. End Sub 


该 过 程 的 功能 是 : 按照 语文 降序 ， 当 语文 相同 时 按 数学 升序 排序 ， 数 据 区 域 有 标题 行 ， 
汉语 排序 方式 为 拼音 。 

排序 后 效果 图 略 。 

Sort 方法 中 的 Keyl1、Orderl 的 数字 1 表示 是 第 一 关键 学 ， 如 果 上 青 增 加 一 个 “ 瑞 语 ” 作 
为 第 二 关键 字 ， 就 是 Key3 、Order3 ， 以 此 类 推 。 


14.4.8 ”查找 和 蔡 换 


Excel 的 查找 功能 很 强大 ， 选 项 很 丰 宣 。 在 工 
作 表 中 按 下 快捷 键 【 CtrltF 】， 弹 出 “查找 和 替换 ” 


音 技 内 容 Iy): | [| | 二 圭 闪 式 EM -| 


| 阁 国 :| 工作 志 加 加 区 分 大 


对 话 框 各 如 图 14-55 所 示 已 Ps 5 上 和 
VBA 使 用 Range.Find 方法 来 实现 目 动 查找 ， Ja 





Find 方法 拥有 众多 参数 ( 见 表 14-2)， 这 些 参数 其 | 要- 
实 就 是 查找 选项 。 图 14-55“ 查 找 和 替换 ”对 话 框 
表 14-2 Find 方法 参数 列表 


ww | | 


/ ee 在 哪个 单元 格 之 后 开始 查找 ， 如 果 不 指定 ， 则 从 原始 


LookIn x]Walues 、XlFormulas 或 者 XIComments | 查找 范围 ( 值 、 公 式 、 批 注 ) 
LookAt xlWhole 或 xlPart 单元 格 整体 匹配 还 是 部 分 匹配 
SearchOrder XIlBYRows 或 XIByColumnms 查找 顺序 ( 按 行 、 按 列 ) 


SearchDirection | xlPrevious 或 xINext 查找 方 回 〈 回 前 还 是 回 后 ) 
MatchCase True 或 False 是 否 区 分 大 小 写 
MatchByte True 或 False 是 否 区 分 人 全角、 半角 


ed 是 天 按 格 式 搜索 ， 与 Application FindForal 对 象 有 关 


每 运行 一 次 Find 方 法 ， 可 以 找到 一 个 单元 格 ， 再 执行 一 次 ， 找 到 下 一 个 单元 格 ， 如 果 
整个 区 域 都 找 完 ， 则 返回 到 区 域 头 部 再 执行 查找 。 也 就 是 说 ，Find 方法 本 身 不 带 有 终止 查找 
的 方法 。 

打开 源 文件 Dataxlsm， 本 例 试图 从 A1:A30 的 “姓名 ” 列 中 ， 找 到 姓 “ 王 ”的 学 生 的 
姓名 和 地 址 。 数 据 表 如 图 14-56 所 示 。 
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源 代 码 : 实例 文档 25.xlsm/ 查找 和 替换 


1 

1. Sub Test]1() 2 051111110146 

， 3 051111110453 

E 二 Set First = Range ("Al:A30") .Find (What:=" 王 ", After:= 3 D21145110587 

z z 6 051145110529 

Randge ("Al10™) ,LookAt :=xlPart) 了 051144110200 

§ - - 生生 i 8 051111110138 

4 。 Debug.Print First.Address, F1irst.Value TE 

5. End Sub ; 051111110148 
051111110452 

本 2 下 051149110092 

代码 分 析 : 本 过 程 没 有 使 用 循环 ， 只 查找 一 次 。 注 意 Find 方法 张 夏 晓 。 '051145110635 

茵 051145110615 

的 参数 设 定 ， 这 里 是 在 Range("A10") 之 后 进行 查找 ， 而 且 不 是 单元 思量 本 
a _ 二 Ce | 后: 051111110397 

格 匹 配 ， 而 是 部 分 匹配 。 也 就 是 说 ， 上 5 只 要 单元 格 内 包含 就 符 东 东 “051111110458 
会 条 件 051121110636 
全 人 条件 去 051145110629 
I 1 "051111110074 
. 一 当 051121110764 

上 述 过 程 运 和 J 后 9 立即 窗 口 的 打印 结果 是 : ‘D051145110701 

贸 共 051111110001 

a | 王 恒 051111110372 
5A514 于 瘟 灵 民 "D51111110002 


内 文 陪 。 051121110637 
如 条 查找 到 区 域 中 所 有 符合 条 件 的 单元 格 ， 则 需要 在 Do 循环 051111110456 
. 051145110350 

体内 使 用 FindNext 方法 。 
源 代码 实例 文档 25.xlsm/ 查找 和 替换 





图 14-56 ”原始 数据 表 


1] Sub Testl]() 

ea Dim First As Range, temp As String, Total As Range 

Set First = Range ("Al:A30") .Find (What:=" 王 ", LookAt:=xlPart) 
4. Set Total = First 

3 temp = First.Address 

6 Do 

了 了。 Set First = Range("Al:A30") .FindNext (After:=F1irst) 

8 Ift First.Address = temp Then 

9 Exit Do 

10. Else 

上 上。 Set Total = Application.Union (Total, First) 

12. End If 

LL Loop 

14. Debug.Print "所 有 姓 王 的 地 址 有 : "， Total.Address (False,False) 


15. End Sub 


代码 分 析 : 第 3 行 代码 在 循环 体外 部 ， 首 先 获得 到 第 一 个 符合 条 件 的 单元 格 ， 然 后 用 
Total 变量 来 存储 所 有 找到 的 单元 格 ， 循 环 过 程 中 用 Union 把 每 次 查找 到 的 单元 格 联合 在 一 
起 。 当 查找 过 程 中 找到 的 单元 格 地 址 与 第 一 个 符合 条 件 的 单元 格 的 地 址 相同 时 ， 跳 出 循环 ， 
终止 查找 。 

运行 上 述 过 程 ， 立 即 窗口 的 打印 结果 是 ; 

所 有 姓 王 的 地 址 有 : A7,A10,A14,A18,A24:A25 


从 本 例 可 以 看 出 ， 在 一 个 区 域内 找到 全 部 符合 条 件 的 单元 格 ，Find 方法 也 需要 循环 才 
如 采 碍 找 条 件 更 加 可 刻 、 复 杀 ， 则 可 以 使 用 纯粹 的 单元 格 过 爵 方式 来 达到 同样 的 目的 。 
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源 代 码 : 实例 文档 25.xlsm/ 查找 和 替换 


1] 
2 
| 
4 . 
6 
1 
8 
3 


Le 
1]3. 


Sub Test2{) 
Dim Ig As Range, Total As Range 
For Each rg In Range ("Al:A30") 
If rg.Value Like ” 王 *nm Then 
Ift Total Is Nothing Then 
Set Total = rg 
Else 
Set Total = Application.Union(Total, rg) 
End I 
End I 
Next rg 
MsgBox " 所 有 姓 王 的 地 址 有 : " & Total.Address (False, False) 
End Sub 


代码 分 析 : 遍历 A1:A30 的 每 个 单元 格 ， 如 果 单 元 格 内 容 以 “ 王 ” 开 头 ， 则 把 该 单元 格 
联合 到 Total 中 ， 以 后 找到 的 每 个 单元 格 都 与 Total 联合 。 

运行 该 过 程 后 ， 对 话 框 如 图 14-57 所 示 ， 与 Testl 过 程 运 行 结 果 相 同 。 

Range 对 象 的 Replace 方法 可 以 实现 单元 格 区 域 的 蔡 换 。Replace 方法 的 参数 与 Find 的 
参数 非常 类 似 ， 但 是 Replace 有 一 个 Replacement 参数 ， 用 于 设 定 蔡 换 为 什么 样 的 字符 。 

下 面 的 代码 实现 把 E 列 的 成 绩 中 的 数字 1 蔡 换 为 One。 

源 代码 : 实例 文档 25.xlsm/ 查找 和 替换 


Le 
pa 
: 


Sub Test31{) 
Range ("E2:E30") .Replace What:="]", Replacement:="One", LookAt:=xlPart 
End Sub 


由 于 LookAt 指定 为 部 分 匹配 ， 也 就 是 说 ， 只 要 单元 格 内 容 中 包含 1 即 可 替换 ， 而 不 需 
要 整个 单元 格 等 于 1。 蔡 换 后 的 结果 如 图 14-58 所 示 。 


117 了 IDOneEzDmeE 上 


11B OUDESE 


1 2 0neny 
121 once3rT 
91 Onesn 
1 UB Onesa 
117 One2p 
11B Unetu 
1 22 OE2Y 
1]14 0nc3t 
1 UD Onesa 
109 One20ne 
10U2 DODDeE3 
ll OnEz 
lS QUDESZ 
la20 0ncione 
li oneDnes 
1130nes3s 
112 Uneae 
117 One2s 
1d3 0nc35 


所 有 姓 于 的 地 址 有 ; A7 .10,A14,A18,A24:A25 


图 14-57 运行 结果 19 图 14-58 ”替换 部 分 字符 
可 以 看 出 ，Replace 使 用 起 来 比 Find 人 简单 得 多 ， 只 有 一 行 代码 就 实现 了 全 部 替换 。 





14.4.9 ”文本 分 列 


Excel 的 “数据 ”选项 卡 中 有 一 个 分 列 的 按钮 ， 其 作用 是 根据 指定 的 分 隔 待 号， 把 一 个 
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单元 格 的 内 容 分 配 到 多 个 单元 格 中 ， 如 图 14-59 所 示 。 


四 咒 项 人 


让 [i FE 


自 Acces s 自 交 站 御 X 本 自 其 他 末 耻 现 夺 这 榜 全 部 出 新 9 护 





获取 中 


图 14-$9 “分 列 按钮 


打开 源 文 件 “ 实 例文 档 25.xlsm”， 切 换 到 工作 表 
Sheet3 ， 可 以 看 到 只 有 A 列 有 数据 ， 每 个 单元 格 同时 


请 设 辣 分 列 数 据 所 包 合 的 分 隔 符 号。 在 现 蜗 桥 口 内 可 春 利 分 列 的 效果 。 


























存储 了 省 份 、 省 会 和 区 号 Do 
在 Excel 中 选择 “数据 ”一 “数据 工具 ”一 “ 
列 ” 人 命令， 出现 文本 分 列 回 导 。 
由 于 A 列 使 用 的 分 隔 符 是 /， 所 以 在 对 话 杠 中 设 a 


置 其 他 字符 为 /， 如 图 14-60 所 示 。 ee 
对 于 以 上 分 列 操 作 ，Excel VBA 用 Range 的 
TextToColumns 方法 来 实现 。 
源 代 码 : 实例 文档 25.xlsm/ 自动 填充 





图 14-60 ”文本 分 列 向 导 


1。 Sub Testl() 
Range ("Al:A4™") .TextToColumns Destination:=Range ("D1"), DataType:= 
xlDelimited, Other:=True, QtherChar:="/" 

3. End Sub 


代码 分 析 : TextToColumns 方法 的 参数 中 ，Destination 表示 分 列 后 的 数据 放 在 何 处 ， 
OtherChar 表示 其 他 分 隔 符号 。 
运行 Testl 过 程 后 ， 在 D1:F4 区 域 产 生 了 分 列 后 的 数据 ， 如 图 14-61 所 示 。 





14.4.10 ”自动 朗读 单元 格 内 容 


Range.Speak 方法 可 以 朋 读 单元 格 内 容 。 该 方法 允许 设置 两 个 参数 ， 具 体 如 下 。 
D SpeakDirection: 榴 举 型 第 量 ， 用 于 设置 明 读 顺序 ， 可 以 按 行 ， 也 可 以 按 列 表 读 。 
ODSpeakFormulas : 布尔 值 ， 当 姑 读 到 含有 公式 的 单元 格 时 ， 如 有 果 该 参数 为 True， 则 明 
眉 公 式 本 里 ， 而 不 是 于 读音 元 格 内 容 。 该 参数 默认 为 False。 
打开 “实例 文档 17.xlsm”， 切 换 到 工作 表 Sheetl ， 用 忌 标 选中 成 绩 表 区 域 ， 如 网 14-62 
所 示 。 





源 代 码 : 实例 文档 17.xlsm/ 朗读 单元 格 








1. Sub Testl 1() 

pa Selection.speak SpeakDirection:=Excel. 
XlSpeakDirection.xlSpeakByRows, 
SpeakFormulas:=False 


3. End Sub 


代码 执行 后 ， 会 听 到 标准 的 中 文 发 音 ， 逐 个 单元 格 依 
次 关 谈 。 由 于 SpeakDirection 参数 设置 为 按 行 朋 谈 ， 所 以 会 
按照 图 所 示 的 顺序 ， 读 完 第 一 行 后 ， 再 去 读 下 一 行 。 

如 果 参 数 改 成 xlSpeakByColumns， 则 是 按 列 朋 读 ， 庄 
完 A 列 后 ， 再 去 谈 B 列 。 

需要 注意 的 是 ， 在 朗读 过 程 中 , Excel 会 处 于 阻塞 状态 ， 





i Sheet2 | Sheet3 | 
不 能 进行 任何 操作 ， 必 须 等 到 明 该 结束 才 行 ， 同 时 ， 也 不 EESDDESSSSEE 
能 设置 每 个 单元 格 之 间 的 朗读 间隔 时 间 。 图 14-62 ”用 于 朗读 的 数据 区 域 
如 果 要 模仿 日 动 点 名 ， 或 者 目 动 明 读 学 生成 绩 ， 则 知 


要 用 For 循环 遍历 单元 格 ， 然 后 加 入 适当 延 时 才能 实现 。 
源 代 码 : 实例 文档 17.xlsm/ 朗读 单元 格 


Sub Test2() 
Dim TI As Range 


For Each rg In Selection 


' 此 处 加 入 适当 延 时 代码 


1 

2 

3 

4. Ig.Speak 
3 

6 Next 工 可 
1 


。 End Sub 


14.5 Range 成 员 对 祭 


Range 对 象 拥 有 一 部 分 很 常用 的 成 员 对 象 ， 和 Excel 的 日 常 操 作 紧 密 相 关 ， 丁 解 这 些 成 
员 对 象 的 VBA 用 法 ， 具 有 重要 意义 。 


14.5.1 设置 单元 格 边 框 


单元 格 的 边框 线 是 单元 格 区 域 的 属性 ， 它 与 工作 表 网 格 线 不 同 。 网 格 线 是 工作 表 的 一 种 
属性 设 定 。 

对 于 一 个 单元 格 区 域 ， 它 的 边框 由 以 下 8 个 部 分 组 成 。 

D 区 域 最 外 侧 : 上 、 下 、 左 、 左 四 条 边框 线 。 

口 区 域内 部 : 内 部 水 平 线 、 内 部 垂直 线 、 内 部 和 糙 回 上 对 角 线 、 内 部 和 糙 问 下 对 角 线 。 

可 以 在 Excel 的 “设置 单元 格格 式 ” 对 话 框 中 为 单元 格 设置 边框 线 ， 如 图 14-63 所 示 。 

图 14-64 所 示 是 设置 了 边框 线 的 效果 图 。 
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可 以 看 出 ， 单 元 格 区 域 B3:F11 的 外 侧 四 条 边框 采用 了 粗 实 线 ， 内 部 水 平 线 、 内 部 垂直 


线 采 用 了 虚线 ， 而 水 平和 斜 癌 上 采用 了 双 线 。 


pr | 
二 


无 局 。 斗 边 耸 加 | 





单 击 预 由 选项 、 预 点 草图 总 上 面 的 共和 铂 可 局 乔 3 区 框 样 二 





图 14-63“ 设 置 单元 格格 式 ” 对 话 框 图 14-64 手工 设置 边框 线 
Excel VBA 中 ， 单 元 格 区 域 的 边框 是 一 个 集合 对 象 ， 用 Borders 来 表示 ， 它 表示 区 域 


的 8 条 边框 线 。 如 果 引 用 任意 一 条 边框 线 ， 则 需要 使 用 Borders.Item(x) 来 表示 ， 并 返回 一 个 
Border 对 象 。 其 中 x 用 枚 举 常 量 来 表示 ， 具 体 如 下 。 


局 


口 xlEdgeTop: 外 侧 上 边框 。 

D xlEdgeBottom: 外 侧 下 边框 。 

口 xlEdgeLeft: 外侧 左 边框 。 

D xlEdgeRight: 外 侧 右 边框 。 

口 xlInsideHorizonal: 内 部 水 平 线 。 

口 xlInsideVertical: 内 部 垂直 线 。 

DD xlDiagonalUp: 和 斜 回 上 的 对 角 线 。 

口 xlDiagonalDown: 和 斜 回 下 的 对 角 线 。 

以 上 英文 单词 中 ，Edge 表示 边缘 ，Inside 表示 内 部 ，Diagonal 表示 对 角 线 。 

如 果 用 VBA 自动 设 定 边框 线 ， 则 需要 了 解 Border 对 象 的 相关 属性 。 一 条 线 的 主要 属性 如 下 。 
D 线 型 : 决定 线 的 样 陈 风格 ， 例 如 点 画 线 、 虚 线 、 破 折线 等 。 

DQ 粗细 : 粗 线 、 瘦 线 、 中 等 线 、 头 发 线 等 。 

D 颜色 。 

线 型 、 粗 细 、 颜 色 的 取信 都 可 以 使 用 内 置 枚 举 值 ， 编 辑 代码 时 ， 枚 人 举 信 会 日 动 列 出 成 


， 无 须 记 忆 。 


源 代 码 : 实例 文档 26.xlsm/ 设置 单元 格 边 框 


1 Sub Testl]{() 

汪汪 Dim bl(1L To 8) As Excel .Border 

- Set b(l1) = Range("B3:D6") .Borders.Iteml(Excel .XlBordersIndex.xlEdgeTop) 
= With br(l) 
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.Lijnestyle = Excel.XlLinestyle.xlDouble 
.Weight = Excel .XlBorderWeight.xlMedium 
-Color = vbhRed 

End With 


Set b(2) = Range("B3:D6") .Borders.Iteml(Excel .XlBordersIndex.xlEdgeBottom) 
With b (2) 

.Lijnestyle = Excel .XlLinestyle.xlDot 

-Weight = Excel .XlBorderWeight.xlThick 

.ColorIindex = 6 
End With 


16. End Sub 


代码 分 析 : 单元 格 区 域 的 边框 线 需要 一 条 一 条 地 单独 设置 。 上 述 代码 中 使 用 对 象 数 组 来 
分 别 代表 单元 格 区 域 的 8 条 边框 线 ，b(1) 表示 外 侧 上 边框 ，b(2) 表示 外 侧 下 边框 。 

第 4 ~ 7 行 代码 设置 上 边框 的 线 型 、 粗 细 和 颜色 。 其 他 6 条 边框 线 未 设置 。 
运行 上 述 过 程 后 的 结果 如 图 14-65 所 示 。 可 以 看 到 ,单元 格 区 域 的 上 边框 为 红色 中 等 


下 边框 为 黄色 粗 线 。 


下 面 的 过 程 用 于 设 定 内 部 水 平 线 和 对 角 线 边框 。 
源 代码 : 实例 文档 26.xlsm/ 设置 单元 格 边框 


1] 
过 
3 
4. 
Is 
6 
了 
8 
9 


Sub Test2{) 


Dim b(l1 To 8) As Excel .Border 
Set b(l) = Range ("B3:D6") .Borders.TItem (Excel .XlBordersIndex.xlInsideHorizontal) 
With b(1) 
.Linestyle = Excel .XlLineSstyle.xlContinuous 
.Weight = Excel .XlBorderWeight.xlMedium 
.Color = vbhBlue 
End With 


Set b(2) = Range ("B3:D6") .Borders.1lteml(Excel .XlBordersIndex.xlDiagonalDown) 
With b (2) 

.Linestyle = Excel .XlLinestyle.xlDash 

Weight = Excel .XlBorderWeight.xlThick 

.ColorIndex = 3 
End With 


16. End sub 


代码 分 析 : 代码 中 第 3 行 和 第 10 行 分 别 设置 单元 格 区 域 的 内 部 水 平 线 和 斜 问 下 对 角 线 。 
运行 上 述 过 程 后 ,结果 如 图 14-66 所 示 。 



































图 14-65 ”自动 设置 单元 格 的 上 边框 、 下 边框 ” 图 14-66 自动 设置 内 部 水 平 线 、 斜 问 下 对 角 线 
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如 采 要 对 已 设置 了 的 边框 线 进 行 取消 ， 


即 可 ,也 了 束 是 无 边框 。 


源 代码 : 实例 文档 26.xlsm/ 设置 单元 格 边框 


1。 Sub Test31() 


Dim bl(1L To 8) As Excel .Border 
本 Set bl(1) = Range("B3:D6") .Borders. 


Iteml(Excel .XlBordersIndex. 


xl]InsideHorizontal) 


-LineSstyle = Excel .XlLinestyle. 


4. With bl(1l) 
XlLineSstyleNone 
五 。 End With 


1. End Sub 


代码 分 析 : 代码 中 的 b(1) 代表 内 部 水 平 线 ， 本 
过 程 把 水 平 内 部 线 设置 为 “无 "。 运 行 该 过 程 后 ， 结 


果 如 图 14-67 所 示 。 


14.5.2 ”设置 单元 格 填充 色 


Excel 的 单元 格 可 以 设置 填充 色 (这 


一 个 局 性 品 
口 Color/ColorIndex: 十 充 颜色 。 
口 Pattern: 图 案 样 式 。 


则 只 需要 设置 边框 的 LineStyle 为 xlLineStyleNone 





图 14-67 取消 内 部 水 平 线 


里 指 单元 格 的 背景 色 ， 而 不 是 工作 表 的 背景 )， 还 可 
以 设置 图 案 的 样式 和 图 案 的 颜色 ,如 图 14-68 所 未 。 
Excel VBA 中 ，Range.Interior 对 象 表 示 单 元 格 区 域 的 内 部 填充 效果 ， 该 对 象 主要 有 如 下 


口 PatternColor/PatternColorIndex: 图 案 商 色 。 


其 中 ， 图 案 样式 可 以 从 内 置 枚 举 党 


量 中 选取 。 





图 14-68 


设置 单元 格 的 填充 色 
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下 面 的 过 程 日 劲 设置 单元 格 的 十 充 色 、 图 和 案 。 
源 代 码 : 实例 文档 26.xlsm/ 设置 单元 格 填充 色 


可 
6. 
Js 
8 
9 


1] 
a 
3 
4 


Sub Test2{) 


Dim I As Interior 


Set I 
With I 


.Color 


Pattern 


End With 


End Sub 


代码 分 析 : 


件 市 有 聚光灯 的 效果 ， 

行 和 整 列 变色 ， 可 以 通过 更 改 背 景色 来 实现 。 
打开 源 文件 “实例 文档 26.xlsm” ， 切 换 到 工 

作 表 Sheet2， 用 单 击 任意 


运行 上 述 过 程 后 ， 


现 一 个 绿色 十 字 。 
源 代码 实例 文档 26.xlsm/Sheet2 


1] 
pa 
3 


4. 


Range ("B2:C9") 


一 个 Interior 类 型 的 对 象 变量 ， 
AAA WIN 了 
结果 如 图 14-69 所 示 。 

在 Excel VBA 编程 应 用 中 ， 图 案 的 应 用 很 少 ， 
主要 记 住 Range.InteriorColor 即 可 。 例如， 有 些 插 
也 就 是 鼠标 了 所 选区 域 的 整 


是 在 该 工作 表 的 事件 模块 中 ， 


Jnterior 


vbhCyan 


= Excel.XlPattern.xXlPatternCrissCross 
.PatternColor = VbRed 


图 14-69 日 
有 如 下 代码 。 


单元 格 ， 都 可 以 出 


用 它 来 表示 B2:C5 的 填充 效果 。 第 
图 案 颜色 为 红色 。 





动 设置 单元 格 填充 色 和 图 案 


Private Sub Worksheet SelectionChange (ByVal Target As Range) 


Target .EntireRow.1Interior.Ccolor = vbhGreen 
Target .EntireColumn.TInterior.Color = vbhbGreen 
End Sub 


代码 分 析 : 当 用 户 单 击 任 意 单 元 格 后 ， 触 发 SelectionChange 事件 ， 把 选中 单元 格 的 整 
行 、 整 列 都 设置 填充 色 ， 如 图 14-70 所 示 。 


& 
2 


1 
2 
3 
生 
3 
6 
7 
8 
9 
10 
11 
12 
13 
14 
1 
16 


图 14-70 ”借助 工作 表 事 件 过 程 改 变 填 充 色 
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此 外 ， 还 可 以 根据 背景 色 的 变化 设计 Excel 俄罗斯 方块 游戏 ， 相 关内 容 可 以 从 本 书 配 套 
资源 下 载 ， 文 件 名 为 Excel 俄罗斯 方块 rar。 


14.5.3 ”设置 单元 格 字体 


通过 使 用 Excel VBA 的 Font 对 象 ， 可 以 方便 地 获取 和 设置 单元 格 的 字体 。Font 对 象 的 
主要 属性 如 下 。 

D Name: 字体 名 称 。 

DBold: 加 粗 ， 为 布尔 值 。 

D Italic: 倾斜 ， 为 布尔 值 。 

D Size: 字号 ， 为 整数 。 

口 Color/ColorIndex: 字体 颜色 。 

D Underline: 下 画 线 ， 为 布尔 值 。 

D StrikeThrough: 删除 线 ， 为 布尔 值 。 

口 SuperScript: 上 标 ， 为 布尔 值 。 

口 SubScript: 下 标 ， 为 布尔 值 。 

以 上 属性 对 应 于 “设置 单元 格格 式 ” 对 话 框 “字体 ”选项 卡 中 各 选项 ， 如 图 14-71 所 示 。 


本 本 国 国 园 面 男 


| 
标准 色 


国 国 间 国 回国 国 国 
稿 ” 其 他 闫 色 [M).. 


司 下 标 上 B) 


这 是 TrueType 字体 。 屏 几 和 打针 机 上 都 将 使 用 该 字体 。 





图 14-71“ 设 置 单元 格格 式 ” 对 话 框 的 “字体 ”选项 卡 
以 下 代码 目 动 设置 单元 格 的 字体 。 
源 代 码 : 实例 文档 26.xlsm/ 设置 单元 格 字 体 


1 Sub Testl]() 

2。 Dim ff As Excel.Font 

3. Set I = Range("B2:Bl10") .Font 
4. With 工 

< .Name = 了 华文 楷体 


6. - Bold = True 
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1. -Jtalic = True 

8. .Slze = 16 

< .Color = VvbBlue 

10. .Underline = True 

i -Strikethrough = True 
12. End With 


13. End Sub 

代码 分 析 : 代码 中 的 f 是 一 个 Font 类 型 的 对 象 变量 ， 用 来 表示 单元 格 区 域 的 字体 属性 。 
~ 11 行 代 码 依 次 设置 字体 名 称 、 粗 体 、 斜 体 、 字 号 、 颜 色 、 下 男 线 和 删除 线 。 

下 面 线 是 指 文字 最 下 面 的 横 线 ， 删 除 线 是 指 贯 穿 于 文字 中 部 的 横 线 。 

上 述 过 程 运 行 结 果 如 图 14-72 所 示 。 

还 可 以 设置 单元 格 内 容 为 上 标 或 下 标 。 

源 代 码 : 实例 文档 26.xlsm/ 设置 单元 格 字体 


1 sub Test2{() 

2 Range ("B11:B1I") .Font.Superscript = True 
3 Range ("Cll:C1l") .Font.Subscript = True 
4 End Sub 


代码 分 析 : 第 2 行 代码 设置 单元 格 内 容 为 上 标 ， 第 3 行 代码 设置 单元 格 内 容 为 下 标 。 
运行 结果 如 图 14-73 所 示 。 


人 金 弛 几 
10 | 秦 梓 航 
11 | 尖 痢 利 

12 | 秦 志 起 

国王 宝 泽 

各 地 区 商品 房 销 售 面积 皮 藤 

社会 消费 品 零售 总 估 二 二 性 有 

区 猴 二 企业 商 呈 全 类 信 15 | 魏 帅 行 
价格 分 类 指 呈 骨 

商品 零售 价格 分 类 指数 上 语 小 


图 14-72 自动 设置 单元 格 字体 格式 图 14-73 日 动 设置 单元 格 的 上 下 标 
本 小 蔬 介绍 的 是 单元 格 整体 内 容 的 字体 设 定 ， 如 和 采 对 单元 格 内 容 的 一 部 分 文字 进行 个 别 


设 定 ， 就 需要 操作 Range 对 象 之 下 的 Characters 对 象 。 


14.5.4 ”单元 格 的 对 齐 万 式 


可 以 对 Excel 单元 格 的 内 容 设置 对 齐 方式 ,一 般 情况 下 同音 元 格 输入 数值 型 的 数据 时 ， 


默认 菲 右 对 章 ; 输入 的 文本 数据 徘 左 对 齐 ; 输入 的 布尔 值 数据 大 中 对 章 。 以 上 说 的 是 水 平 对 
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14.5.4.1 设置 水 平 对 齐 方式 

Range 的 HorizonalAlignment 属性 可 以 设置 水 平 对 齐 方式 ， 可 以 取 值 的 枚 举 常 量 如 下 。 
口 xlCenter: 居中 对 齐 。 

口 xlDistributed : 分 散 对 齐 。 

口 xlJustify: 两 端 对 齐 。 

口 xlLeft: 左 对 齐 。 

D xlRight， 右 对 章 。 

运行 以 下 代码 ， 把 单元 格 内 容 设 置 为 水 平 徘 右 对 齐 。 

源 代码 : 实例 文档 41.xlsm/ 单元 格 对 齐 方式 


1。 Sub Testl() 
pe Range ("B22") .HorizontalAlignment = Excel.Constants.xlRight 
3. End Sub 


运行 结果 如 图 14-74 所 示 。 


14.5.4.2 ”设置 垂直 对 齐 方式 

Range 的 VerticalAlignment 属性 可 以 设置 垂直 对 齐 方式 ， 可 以 取 值 的 枚 举 凋 量 如 下 。 
口 xlBottom : 底 关 对齐。 

口 xlCenter: 居中 对 齐 。 

口 xlDistributed: 分 散 对 齐 。 

D xlJustify: 两 端 对 齐 。 

口 xlTop: 顶 问 对 齐 。 

下 面 的 代 公 上 自动 往 单元 格 中 输入 4 行文 池 ， 然 后 设置 王 直 对 齐 方式 为 底 问 对 齐 。 

源 代码 : 实例 文档 41.xlsm/ 单元 格 对 齐 方式 


1。 Sub Testz () 
2 Range ("B2") .Value = "春天 " & vbNewLine & " 夏天" & vbNewLine & "秋天 "& 
vbNewLine & "人 简 天 " 


Range ("B2") .HorizontalAlignment = Excel.Constants.xlCenter 


HS 【LU 


Fe Range ("B2") .VerticalAlignment = Excel.Constants.xlBottom 
3. End Sub 


运行 结果 如 图 14-75 所 示 。 





图 14-74 设置 单元 格 的 水 平 对 齐 方式 图 14-75 ”设置 单元 格 的 垂直 对 齐 方式 
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14.5.5 ”处 理 单元 格 中 的 字符 


有 时 候 需要 对 Excel 单元 格 中 的 个 别 字符 进行 格式 设置 ， 而 不 是 全 部 字符 。 如 采用 上 市 
学 过 的 Range.Font 来 设置 字体 ， 针 对 的 是 单元 格 的 全 部 内 容 。 
下 面 讲 解 的 Range.Characters 对 象 可 以 把 单元 格 里 的 内 容 细 化 为 每 一 个 字符 ， 以 便 个 别 


Range.Characters 对 象 具有 Start 和 Length 两 个 参数 ， 分 别 代 表 起 始 字 符 位 置 和 长 度 。 
假如 单元 格 Al 中 写 人 和 单词“ People”， 那么 Range("A1").Characters(2,3) 就 代表 单词 中 的 
eop 这 三 个 字符 。 提 取出 字符 以 后 ， 可 以 对 字符 进行 字符 格式 设 定 、 字 符 删除 以 及 字符 替换 
等 操作 品 


注意 : Range.Characters 对 象 只 能 用 在 文本 类 型 的 单元 格 中 ， 如 果 单 元 格 内 容 是 数值 
型 的 ， 则 不 存在 Characters 对 象 。 


14.5.5.1 字符 格式 设置 
下 面 的 代码 把 单元 格 中 从 第 3 个 位 置 起 ， 连 续 3 个 字符 设置 字体 格式 。 
源 代码 : 实例 文档 26.xlsm/ 单元 格 中 的 字符 


1 Sub Testl 1() 

之 Debug.Print Range("B2") .Characters (3, 3) .Text 
3 With Range("B2") .Characters (3, 3) .Font 

4. .Name = "隶书 " 

2 .Size = 1 

6 .Italic = True 

1 End With 

8 End Sub 


上 述 过 程 运行 后 立即 窗口 打印 出 “明月 汉 ”3 个 字 ， / i 
工作 表 中 的 结果 如 图 14-76 所 示 。 

如 条 单元 格 中 书写 了 化 学 方程 式 ， 则 可 以 设置 个 这 时 99 他 引 时 关 ， 
别 字 符 的 下 标 来 美化 方程 式 ， 例 如 要 书写 硫酸 的 分 子 必 坎 衣 总 雪人 上 
式 ，H2SO4 中 的 数字 需要 改 为 下 标 看 起 来 才 正 第。 

实例 文档 26.xlsm 工作 表 Sheet4 的 单元 格 C6、C7 
手工 写 人 同样 的 化 学 方程 式 ， 运行 如 下 过 程 可 以 把 C7 中 的 方程 式 数 字 自 动 转换 为 下 标 。 

源 代码 : 实例 文档 26.xlsm/ 单元 格 中 的 字符 





图 14-76 设置 单元 格 字 符 格 式 


1] Sub Test2() 

过 Dim 1 As Integer 

3 For 1 = 1 To Rangel(t Cr ) .Characters.Count 

4. If Range{("Ci/i") .Characters (i, 1)}).Text Like [0-93]" Then 
5 Range ("C/I") .Ccharacters(i, 1) .Font.Subscript = True 
6 End If 

1 Next 1 
8 End Sub 
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代码 分 析 : 第 3 行 代码 ， 循 环 变 量 i 从 1 到 字符 总 数 进行 遍历 ， 如 果 C7 中 的 第 i 个 字 
符 是 数字 ， 那 么 把 第 i 个 字符 设置 为 下 标 。 
该 过 程 运行 后 ， 结 果 如 图 14-77 所 示 。 可 以 看 出 单元 格 C6 夭 





C7 的 差别 。 


素 时 留 . 司 这 时 于 

号 里 长 征 涉 未 还 

但 使 花城 飞 将 在 

趟 教 胡 号 度 阴 山 
ENnOd4 +FeSOd +H2SOd4=Fe2tS04)3+Rnsdd + E20 + H2O 
ENrnds +Fesd, + HS0s=Fes (0 s+ Nnso, + ESD + HD 





轩 


图 14-77 自动 设置 数字 下 标 


14.5.5.2 ”字符 删除 

使 用 Characters.Delete 方法 ， 可 以 把 字符 从 单元 格 中 删除 。 

B11:B14 单元 格 中 原先 是 一 首 完整 的 七 言 律诗 ， 运 行 如 下 过 程 后 ， 可 以 把 每 一 行 的 中 间 
3 个 汉字 删除 。 

源 代码 : 实例 文档 26.xlsm/ 单元 格 中 的 字符 








1 Sub Test31{) 

之 Dim Ig As Range 

SE For Each rg In Range ("B11l:B14") 

4 rg.Characters (3, 3) .Delete 

3 Next rg 

6 End Sub 

该 过 程 运 行 后 ， 结 采 如 图 14-78 所 示 。 图 14-78 ”删除 单元 格 中 部 分 字符 


14.5.5.3 ”字符 插入 和 蔡 换 

Charaters 对 象 的 Insert 方法 可 以 修改 单元 格 中 的 字符 。 

如 果 保 留 单 元 格 中 原 有 内 容 ， 只 是 回 某 位 置 插 和 人 新 的 字符 串 ， 则 需要 设置 Length 参数 
为 0， 如 果 不 是 0， 会 导致 字符 被 蔡 换 。 

B11:B14 单元 格 中 原先 是 一 首 完整 的 七 言 律 许 ， 运 行 如 下 过 程 后 ， 可 以 把 每 一 行 第 3 个 
位 置 插入 XY。 

源 代 码 : 实例 文档 26.xlsm/ 单元 格 中 的 字符 。 

















1 Sub Test4() 
之 Dim Ig As Range 
了 For Each rg In Range ("B11l:B14") 
和 4 rg.Characters (3, 0}) .Insert XY"™ 
2 Next Irg E 
6 End Sub | 
. 4— Fi | 和 XY 长 征 未 填 
代码 分 析 : 第 4 行 代码 表示 单元 格 的 第 3 个 位 置 放 入 新 旧居 拓 和 在 
的 字符 串 "XY"。 


该 过 程 运行 后 ， 绪 采 如 图 14-79 所 示 。 图 14-79 ”向 单元 格 搬 人 字符 
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下 面 这 个 例子 使 用 大 来 蔡 换 单元 格 中 从 第 3 个 字符 起 连续 的 3 个 字符 。 
源 代码 : 实例 文档 26.xlsm/ 单元 格 中 的 字符 


1 Sub Testo5 () 

之 Dim rg As Range 

和 For Each rg In Range ("B11l1:B14") | 泰 时 ## 时 关 
4 。 rg.Characters(3, 3) .Insert "##" 站 主 料 未 还 
6 End Sub 





该 过 程 运行 后 ， 结 有 果 如 图 14-80 所 示 。 图 14-80 ”部 分 替换 单元 格 中 的 字符 
14.5.6 ”处 理 单元 格 中 的 批注 


批注 一 般 是 指 单元 格 的 说 明 性 文字 ， 一 个 单元 格 最 多 只 能 有 一 个 批注 ， 除 了 可 以 输入 文 
字 作 为 批注 ， 还 可 以 把 电脑 中 的 图 片 作为 批注 。 

在 工作 表 中 选中 任 一 单元 格 ， 然后 右 击 ， 在 弹出 的 快捷 并 单 中 选择 “插入 批注 ”命令 ， 
编辑 文字 后 ， 结 有 末 如 图 14-81 所 示 。 

从 单元 格 B3 的 批注 可 以 看 出 ， 一 个 批注 由 指示 
能 (单元 格 右上 角 的 小 红 点 ， 英 文 为 Indicator) 以 及 
批注 文本 (文本 杠 中 的 内 容 ， 英 文 Comment) 构成 。 

Excel 中 ， 还 可 以 设置 整个 应 用 程序 中 批注 的 显 
示 方 式 ， 如 图 14-82 所 示 。 图 14-81 在 单元 格 中 插入 批注 


Co = OH 





中 
EE A I NE | [7 
nua BE 


标 扩 单位 上 | 默认 单位 | ; | 


各 但 显 趟 标识 行 ,时 仿 时 加 蚂 批 ;注册 
辐 | 批注 和 标 碍 社 [MT) 
默认 方向 ; 
加 从 右 姑 左 [R) 
夯 从 左 到 右 册 ) 


此 工作 和 的 号 示 选 责 (B:。 | 图 实例 六 村 27xlsm [| 





显示 水 平 访 动 芋 癌 ) 
显示 工作 表 标 签 {B) 
侍 用 "自动 第 选 " 荣 单 分 姐 日 期 侣 ) 
对 于 对 龟 ， 旺 直 

重生 部 辐 

局 无 向 容 ( 贮 区 对 傅 ) 中 | 


who 


属 示 行 和 列 标题 出 ) 
图 在 单元 格 中 显示 公式 而 非 呈 计算 结果 ( 辐 





图 14-82 设置 批注 显示 方式 
批注 的 显示 方式 分 为 以 下 三 种 。 
口 无 批注 和 标识 符 。 
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D 仅 显 示 标 识 待 ， 巧 停 时 显示 批注 。 

口 标识 符 和 批注 两 者 都 显示 。 

批注 的 显示 方式 也 可 以 通过 VBA 来 完成 。 

源 代码 : 实例 文档 27.xlsm/ 处 理 单元 格 中 的 批注 
Sub Test2() 


Application.DisplayCommentIindicator = xlNoIndicator 1 两 者 都 不 显示 


Le 

2 

Se Application.DisplayCommentIindicator = xXlCommentAndIindicator 仅 显 示 标 识 符 
4 Application.DisplayCommentIndicator = xlCommentAndIndicator ' 两 者 都 显示 
呆 


End Sub 
以 上 代码 中 的 第 2 ~ 4 行 ， 请 注释 挥 两 行 ， 你 留 一 行 运行 。 


14.5.6.1 自动 插入 批注 

如 采 为 单元 格 目 动 插入 批注， 需要 先 判断 单元 格 是 否 已 经 有 批注 ， 如 条 有 有， 首先 删除 ， 
然后 增加 批注 。 

增加 批注 的 语法 是 : Range.AddComment " 批注 内 容 "。 

源 代 码 : 实例 文档 27.xlsm/ 处 理 单 元 格 中 的 批注 


1 Sub Test4{) 

之 Dim cc As Excel .Comment 

3 Set c = Range("B3") .Comment 

4. It C Is Nothing = False Then 

| c.Delete 

6 End 工 工 

了 Set C = Range("B3") .AddComment (Text:=" 今天 干 了 件 夯 事 nm & VvhNewLine & 
"该 怎么 收场 呢 ? ") 


8. End Sub 

代码 分 析 : 第 4 行 用 于 判断 该 单元 格 是 否 已 经 有 批注 ， 如 有 果 有 就 删除 。 

第 7 行为 单元 格 增加 批注 ， 并 指定 批注 内 容 。 

如 有 果 要 为 多 个 单元 格 增 加 批注 ， 需 要 用 For Each 循环 。 

下 面 的 代码 为 单元 格 区 域 的 每 一 个 单元 格 增加 批注 ， 并 把 单元 格 地 址 写 入 批注 中 。 
源 代码 : 实例 文档 27.xlsm/ 处 理 单元 格 中 的 批注 


1 Sub Testo{() 

之 Dim C As Excel.Comment 

3 Dim Ig As Excel .Range 

4. Range("B3:D6") .ClearComments 

2 For Each rg In Range("B3:D6") 

6 Set c = rg.AddComment (Text:=rg.Address) 
1 Next rg 

8 End Sub 


代码 分 析 : 第 4 行 代码 的 作用 是 清除 该 区 域 所 有 批注 ， 如 果 不 清除 则 不 能 增加 批注 。 
运行 后 的 结果 如 图 14-83 所 示 。 
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此 
4 
9 
6 
? 
8 
9 


图 14-83 ”批量 插入 批注 


14.5.6.2 ” 读 取 批注 信息 





Comment 是 Range 的 一 个 成 员 对 象 。 一 个 单元 格 只 有 一 个 Comment。 以 下 以 实例 验 


证 一 个 单元 格 是 否 设 置 了 批注 ， 如 果 有 批注 ， 就 获取 批注 文字 ， 
单元 格 。 
源 代码 实例 文档 27.xlsm/ 处 理 单元 格 中 的 批注 


Sub Testl]{() 
Dim cc As Excel.Comment 


Set c = Range("B3") .Comment 


MsgBox " 该 单元 格 未 设置 批注 ! "， vbExclamation 
Else 


最 后 获取 一 个 批注 所 属 的 


Debug.Print "单元 格 的 批注 文字 是 : " & c.Shape.TextFrame.Characters.Text 
Debug .Print "批注 的 所 属 单元 格 是 : " & c.Parent.Address 


1 
2 
汪 
4. It c Is Nothing Then 
2 
6 
1 
8 


End I 
10. End Sub 


代码 分 析 : 第 7 行 代码 中 Shape.TextFrame.Characters 表示 的 是 批注 的 文字 对 象 ， 通 过 


该 对 象 可 以 获取 和 修改 批注 文字 、 设 置 批注 文字 的 格式 等 。 


第 8 行 代码 使 用 Comment.Parent 返回 一 个 Range 对 象 ， 作 用 是 获得 批注 所 处 单元 格 。 


14.5.6.3 ”修改 批注 文字 


对 于 有 批注 的 单元 格 ， 可 以 在 后 期 使 用 VBA 更 改 批 注 文字 及 格式 。 对 于 没有 批注 的 单 


元 格 ' 必须 先 插 入 批注 。 
源 代码 : 实例 文档 27.xlsm/ 处 理 单元 格 中 的 批注 


Sub Test3() 
Dim Cc As Excel .Comment 


Set c = Range("B3") .Comment 


c.Shape.TextFrame.Characters.Text = "原来 VBA 可 以 自动 修改 批注 ! " 


1 
之 
3 
4 
i With c.Sshape.TextFrame.Characters(3, 2) .Font 
6 .Color = VvbBlue 

J .Name = " 华文 新 魏 于 

8 .Italic = True 

End With 


10. End Sub 


代码 分 析 : 第 4 行 代 码 修改 批注 文字 内 容 ; 第 3 ~ 8 行 代码 修改 批注 中 部 分 字符 的 字体 


格式 。 
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上 述 过 程 运 行 后 ， 结 果 如 图 14-84 所 示 。 


原来 VBA 妆 太 上 自 


动 修改 批注 ! 





图 14-84 ”自动 修改 批注 


14.5.6.4 ”批注 中 插入 图 片 

下 面 的 实例 介绍 插入 批注 后 ,设置 批注 框 的 背景 图 为 电脑 中 的 图 片 ， 然 后 调整 批注 框 的 
大 小 和 位 置 。 

源 代码 实例 文档 27.xlsm/ 处 理 单元 格 中 的 批注 


和 


= 


1 
3. 
4. 
6 
1 
8 


Sub Test6() 


Dim Cc As Excel .Comment 


Range("B3") .CclearComments 


全 LE 忆 一 


nN nn 


c.Shape 


10. End Sub 


代码 分 析 : 第 5 行 代码 设 置 了 批注 的 图 片 ; 第 6 ~ 9 行 代码 设置 批注 框 的 宽度 是 单元 格 


的 两 倍 ， 高 度 是 单元 格 的 5 倍 ， 批 注 


上 述 过 程 运 行 后 ， 结 果 如 图 14-85 所 示 。 


-Shape - 
-Shape - 
. Shape. 
. Shape. 


Range ("B3") .AddComment (Text :=" 动画 人 物 ") 
Fill.UserPicture PictureFile:="C:\temp\picture\6.jpg" 
Width = Range ("B3") .Width * 2 

Height = Range("B3") .HelIght * 3» 

Top = Range ("DS") .Top 


.Left = Range ("D3") .Left 





1 | 
2 
3 | 
4 
9 | 
6 | 
Li 
8 | 
9 


+ 
= 





图 14-85 设置 批注 中 的 图 片 


14.5.6.5 ”删除 批注 

Range 对 和 象 用 于 删除 批注 的 方法 有 Range.Comment.Delete 和 Range.ClearComments 两 个 。 

前 者 要 求 Range 只 有 一 个 单元 格 ， 也 就 是 只 删除 一 个 单元 格 的 批注 ， 而 后 一 个 方法 则 
是 清除 单元 格 区 域 所 有 批注 。 

例 如 ，Range("B3").Comment.Delete 的 意思 是 删除 B3 的 批注，Range("B3:E5"). 
ClearComments 的 意思 是 删除 B3:E5 的 每 一 个 批注 。 
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14.5.6.6 ”遍历 批注 

遍历 批注 有 以 下 两 种 方式 。 

1. 通过 遍历 单元 格 

因为 一 个 单元 格 只 能 有 一 个 批注 ， 所 以 遍历 每 一 个 单元 格 ， 可 以 间接 地 获取 它 的 批注 对 
象 。 这 种 方式 只 能 获取 遍历 区 域内 的 批注 ， 而 不 能 获取 工作 表 其 他 位 置 的 批注 。 

2. 遍历 工作 表 中 的 所 有 批注 

工作 表 有 一 个 Comments 对 象 ， 表 示 这 个 工作 表 上 的 所 有 批注 。 

源 代码 : 实例 文档 27.xlsm/ 处 理 单元 格 中 的 批注 


1 Sub Test/() 
pa Dim C As Excel .Comment 
For Each CC In ActiveSheet.Comments 
a Debug.Print c.Parent.Address (False, False), c.Sshape.TextFrame. 
Characters. Text 
Next cc 
6. End Sub 


代码 分 析 : 第 3 ~ 5 行 代码 过 历 工 作 表 上 的 所 有 批注 ， 在 立即 窗口 打印 每 个 批注 的 所 在 
单元 格 地 址 、 批 注 的 文字 内 容 。 


14.5.7 “处 理 条 件 格式 


使 用 条 件 格 式 功能 ， 可 以 让 不 同 大 小 的 数值 日 动 显示 为 不 同 的 格式 。 在 讲述 用 VBA 日 
动 处 理 条 件 格式 之 前 ， 先 回顾 一 下 如 何 手 工 设置 条 件 格式 。 

在 Excel 2013 中， 选择“ 开始” 一 “样式 ”一 “条 件 格式 ”一 “新 建 规则 ”命令 ， 如 
图 14-86 所 示 ， 将 出 现 条 件 格式 的 设置 对 话 框 。 


Data 划 smm - Excel 


mJ 学 


.0 1 机 i 麻生 入 呈 套用 单 亏 悟 样 世 


凑 字 EF 四 
| 庄 出 星 示 单元 格 规则 (H) ， 


可 项 ; 项 目 选取 规划 (0m 


T51111110146 2002706/02 里: 数 暴 条 [DI 
‘D5111111D0453 2001 141112 
D5111111D36S 2Z002/09 12 
D51145110587 2Z002/07 /09 
051145110529 2003/12/19 
D5114411020n 2002x11x24 eH 图标 和 朱 团 
D51111110138 2002/11/19 
051111110003 2002/09/04 国 新 建 规 则 心 ). 
D5111111D149 2002/06/29 6” 洁 给 规 M(D 
D51111110452 2001 11710 
051149110D092 2003/04/29 
051145110835 20027D7709 
王 苗 ‘D51145110815 2002p201713 
刘晓波 "D51121110#19 2003/05#17 


- 台阶 ( 呈 ) 














国 管理 规 中 上 B)-， 





图 14-86 条 件 格 式 
例如 ， 要 把 数学 成 绩 高 于 120 分 的 单元 格 设 置 为 字体 加 粗 、 单 元 格 加 边框 、 扑 纹 闫 色 为 
绿色 。 
注意 ， 选 中 的 E 列 中 ,活动 单 元 格 是 E2， 在 条 件 格式 对 话 框 中 ,输入 活动 单元 格 地 址 
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“=E2>120” 即 可 ， 


i | 狐 何 恒 
王 梦 洁 
刘 去 类 

3 | 郭 实 斌 
光复 虹 
王 苦 
刘晓波 
Zh 


然后 单 击 条 件 格 式 对 话 框 右 下 角 的 “格式 ” 
按钮 ， 设 置 字体 、 边 框 和 底 纹 颜色 。 设 置 完毕 
后 关闭 对 话 框 ， 工 作 表 中 效果 如 图 14-88 所 示 。 
条 件 格 式 的 好 处 在 于 ， 
后 ,格式 会 自动 改变 。 


一 般 情 况 下 ， 


置 3 个 条 件 格式 。 针 对 已 经 
可 以 进行 管理 (修改) 和 删除 。 


如 图 14-87 所 示 。 


者 与 

PS111111014E 
"D51111110453 
D51111110369 
0511451105987 
‘051145110529 


m5114d110200 
D51111110158 
D51111110003 
O51111110148 
D51111110452 


"051149110092 
051145110635 
D51145110815 
051121110419 


D51145110431 
aol1l1l1i1llosedr 
051111110458 
D51121110636 
D51145110629 
051111110074 
D51121110764 
D51145110701 


出 生日 其 


20027 DB D2 
2001 TI 
2002/ D0912 
2002A TB 
2003/12719 
20D27117 2 
2002711r18 
2002/ D904 
2002/ DB 28 
20017A1110 
3DD37 D4 28 
2002/07/09 
aNn2A 二 号 
20037057 17 
2003/11/08 
30037077 26 
20037 7 
20n37 na2715 
20047 01710 
2002/12/06 
2001711r 0 
2002r 01 23 


bpy 基于 各 自信 设置 所 有 单元 想 的 相 式 

了 内 为 包 言 以 下 内 容 的 单元 恪 设置 怡 式 
be- 但 对 排 名 千 前 成 千 后 的 数值 设置 格式 
# 疏 对 高 于 或 低 于 平均 值 的 数值 设 半 格式 
kb 避 对 唯一 值 或 重复 值 设置 杞 二 

b> 使 用 公式 确定 要 语 置 格式 的 单元 格 


为 符合 此 公式 的 值 设 音 枯 式 (OQ): 


:20 ”入 


图 14-87 ”使 用 2 ee s 件 格式 


后 期 修改 了 数据 
例如 ， 现 在 把 121 分 修 
改 成 105 分 ,单元 格格 式 立 即 变 成 日 色 填充 色 。 
一 个 单元 格 最 多 可 以 同时 设 
设置 好 的 条 件 格 式 ， 


"D51111110146 
051111110453 
m5LTLTLTLILD369 
D61145110587 


051145110529 
0511ttL10200 
D51111110138 
951111110008 
‘D51111110148 


D51111110452 
D51149110092 
D0511451106%5 
D51145110615 
D1121110419 
D51145110431 
051111110387 
‘051111ll0d58 
‘D51121110636 
D51145110628 
D51111110074 
051121110764 
‘D51145110701 





cC 
出 生日 期 


2002/06/02 
2001 /1 人 
2002/0912 
2002/ D078 
2003/12r19 
2002/11r724 
2002/11718 
2002/09r od 
20027 D623 
2001/11710 
20037 D0423 
2002/07 09 
200210113 
2003/05717 
200371L1708 
A003 OF 
2008/11723 
2003/D02715 
2004/01710 
2002 112/06 
2001 111 D4 
2002/ D01723 





Excel VBA 中 ,单元 格 的 条 件 格式 
FormatConditions 是 一 My 集合 对 和 象 ， 表 示 单 元 
格 的 所 有 条 件 格式 各 式 可 以 用 索引 值 引 用 ， 并 且 返 回 一 个 条 件 格式 对 象 
FormatCondition。 例 如 Range("A1").FomatConditons(2)， 就 表示 单元 格 Al 的 第 2 个 条 件 
格式 。 


14.5.7.1 新 建 规则 
使 用 FormatConditions.Add 方法 可 以 为 单元 格 新 建 一 个 条 件 格 式 ， 语 法 格式 为 : 


图 14-88 条件 格式 效果 





Range. FormatConditions.Add (Type, Operator,Formulal,rFormula2) 


各 个 参数 的 含义 如 下 。 

D Type: 条 件 格式 的 类 型 ， 是 基于 单元 格 值 还 是 基于 表达 式 ， 榴 举 值 。 

UD Operator : 操作 符 ， 如 时 Type 为 xlExpression, 则 忽略 Operator 参数 ， Operator 一 般 
是 比较 运算 得 ,例如 大 于 、 小 于 、 介 于 、 不 等 于 之 类 ， 枚 举 值 。 

D Formulal : 公式 表达 式 或 数值 ， 字 符 串 类 型 。 


口 Formula2 : 公式 表达 式 或 数值 ， 


数 有 效 。 


提示 : Type 的 所 有 枚 举 名 量 ， 
数 点 看 到 所 有 成 员 ; 


字符 串 类 型 。 


Operator 的 所 有 枚 举 溃 量 
Operator， 然 后 输入 小 数 点 看 到 所 有 成 员 。 


打开 源 文件 Data.xlsm， 为 成 绩 表 中 的 EE 列 (数学 ) 新 建 一 


于 120 的 单元 格 ， 字 体 设 置 为 糙 体 并 加 粗 。 
源 代码 : 实例 文档 35.xlsm/ 条 件 格式 


Sub Testl]{() 


Range ("E22:E30™") .FormatConditions.Delete 
Set FC = Range("E2:E30") .FormatConditions.Add (Type:=Excel. 


1 
站 Dim FC As Excel.FormatCondition 
3 
4 


XlFormatConditionType.xlCellValue., 


XlFormatConditionOperator.xlGreaterEqual, 


习 With EC 

6 .Font.Italic = True 
ds .Font .Bold = True 

8 End With 

好 End Sub 


代码 分 析 : 对 象 变 量 FC 表示 一 个 条 件 
格式 ， 第 3 行 代码 首先 清空 单元 格 区 域 的 所 
有 条 件 格式 。 

第 4 行 代码 为 单元 格 区 域 新 增 一 个 条 
件 格式 ， 类 型 是 单元 格 住 ， 操 作 符 是 大 于 等 
于 (xlGreaterEqual) 。 这 个 语句 由 于 使 用 了 
Operator 参数 ， 所 以 Formulal 只 需要 设置 
一 个 数值 即 可 。 

第 5 ~ 8 行 设置 符合 该 条 件 时 的 格式 为 
倾斜 、 

过 程 运行 工作 表 中 的 结果 如 


-0 


Ei 
051111110146 


"051111110453 
nS511111103E9 
‘D51145110587 
‘D51145110529 
D51144110200 
0511111101 38 
051111110003 


‘0511111101 48 
05111111045 到 
O51149110092 
‘D51145110635 


"D51145110615 
"D51121110419 
‘D51145110431 
‘051111110397 
051111110458 
051121110636 
n5lld5110629 
‘D51111110074 
D511211107E4 
"D51145110701 
D51111110001 


当 Operator 为 介 于 或 不 介 于 时 ， 


Operator:=Excel. 
Formulal:="120"™") 


CS 
出 生日 基 


2002706402 
2001/11/12 
20027/0912 
2002/07. D8 
2003712/19 
2002711 2d 
2002A11/18 
2002708,0d 
2002/06.28 
2001711/16 
2003/04,28 
2002r07.09 
20D2701 1 
2003705417T 
ZUU3711108 
2003A07/ 2 
2003711/23 
2003/02/15 
20Dd47n01 
2002712/086 
2001711 /04 
2002r01 .23 
2002r05/15 
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该 参 


可 以 输入 Excel.XIFormatConditionType， 然 后 输入 小 
可 以 输入 Excel.XlFormatCondition- 


个 规则 ， 将 数学 成 绩 大 于 等 





本 图 14-89 ” 目 动 设置 条 件 格式 


提示 : 使 用 Range.ClearFormat 方法 也 可 以 清空 条 件 格式 。 


下 面 创建 一 个 基于 么 
绩 拭 纹 颜色 设置 为 绿色 。 


\ 式 表达 式 的 条 件 格 式 ， 还 是 以 EE 列 为 例 ， 将 大 于 等 于 120 分 的 成 
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源 代码 实例 文档 35.xlsm/ 条 件 格式 


1。 Sub Testz () 

远志 Dim FC As Excel.FormatCondition 

3. Range ("E2:E30™) .FormatConditions.Delete 

4. Set FC = Range("E2:E30") .FormatConditions.Add (Type:=Excel. 
XlFormatConditionType.xXlExpression, Formulal:="=E2>=1]120") 

i With FC 

6. .Interior.Color = vbhGreen 

fe End With 

8. End Sub 


代码 分 析 : 注意 第 3 行 代 码 ， 在 新 增 规则 之 前 ,已 经 清空 以 前 所 有 的 条 件 格式 。 

第 4 行 代码 中 ， 条 件 格式 的 类 型 改 为 XIExpression， 此 时 不 使 用 Operator 参数 ， 下 接 在 
Formulal 中 输入 公式 即 可 。 

运行 后 的 结果 如 图 14-90 所 示 。 

下 面 一 个 实例 是 使 用 另 一 个 参数 Fonmmnula2 的 情形 。 当 单元 格 中 数学 成 绩 为 120 ~ 130 时 ， 
设置 单元 格 中 数字 格式 为 两 位 小 数 ， 并 且 加 粗 。 

源 代码 : 实例 文档 35.xlsm/ 条 件 格式 

Sub Test3 1() 


Range ("E2:E30") .FormatConditions.Delete 


] 。 
之 Dim FC As 下 XCel .FEormatConodlLt1LODn 
4 Set FC = Range("E2:E30") .FormatConditions.Add (Type:=Excel. 


XlFormatConditionType.xlCellValue, Operator:=Excel. 
XlFormatConditionOperator.xlBetween, Formulal:="]20", Formula2:="1]130") 
es EC.NumberFormat = "0.00" 
6. FEC.FonNnt.Bold = True 
1. End Sub 


代 但 分 析 : 第 4 行 代 人 码 中 ，Operator 参数 为 XIBetween， 表 示 介 于 两 个 值 之 间 ， 所 以 需 
要 用 到 Formula2 。 
运行 上 述 过 程 后 ， 结 果 如 图 14-91 所 示 。 


EB E 
| 姓 各 [ 出 生日 期 1 时 英语 
O51111110146 2003706702 117| 121.001 


‘D51111110453 2001711712 1 32 
‘D51111110389 20027 O912 109 
D51145110567 2002r07 08 137 
‘D51145110529 2Z0037127/19 130. O00 


EE ; - O511441 10200 200271172d 139 
严 ee 所 权 Vol11ill01se 2002/11/183 126. O00 
i TA D51111110003 2002 7 08/0d 140 
51111110453 20D1/11r12 FE 
FF i O511iliilidl#s 2002706 728 129. 00 
v51111110369 2002J0912 F 
051145110587 20D2y077DB 站 L511l1llld4o. 2001711 #10 134 
m1 1dd1 1 0am 2002 11 7 2d ; D51145110635 2002707709 121. 00 
D51111110003 F002 /108/704 , me: D51121110419 2003*05/17 124. 00 
O51111110148 2002/06/ 2B ll 1 O48l I 1 32 
0511111i10452 2001/1171i0 ool1111110397 20037D7 26 1 1 
511d3110092 200320 员 rz2B 东 051 111110458 2009711 23 115 
书 
051145110635 2002707zD9 W51121110636 2003702 由 与 138 
"051145110615 2002,01713 0 | 租 去 于 .051145110629 20047 bl171 122. 00 
D51121110419 2003,05717 051111110074 2002/12706 128. 00 
051145110431 2003.1170B ?| 会 0D5l121110764 20D017117D 135 
0n51111110397 2003407726 ‘D51145110701 2002701723 127. 00 





图 14-90 ”运行 结果 21 图 14-91 运行 结果 22 
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14.5.7.2 ”修改 规则 
对 于 已 经 创建 好 的 条 件 格 式 ， 还 可 以 使 用 Modify 方法 来 重新 定义 规则 的 各 个 参数 ， 参 


数 名 称 与 Add 方法 的 参数 相同 。 
源 代 码 : 实例 文档 35.xlsm/ 条 件 格式 


1] 
-A 
3 
4 
2 


代码 分 析 : 由 于 上 一 
ed 因此 这 次 使 用 对 象 变量 FC 来 调 出 上 
的 条 件 格式 ， 
(xlLess 表示 小 于 )。 

运行 代码 后 的 结果 如 图 14-92 所 示 。 


14.5.7.3 ”遍历 规则 

对 于 已 有 的 条 件 格式 ， 如 何 用 VBA 去 
狭 取 每 个 条 件 格 式 的 设 定 情况 呢 ? 可 以 用 For 
Each 循环 遍历 每 一 个 条 件 格 式 ， 然 后 打印 条 件 
格式 的 重要 属性 。 
下 面 的 实例 为 单元 格 区 域 增加 两 个 So 

一 个 是 当 数 学 成 绩 大 于 130 分 时 ,设置 

体 加 粗 、 


hr oH 


大 设 定 


式 : 


设置 数字 


Sub Test41{) 
Dim FC As Excel.FormatCondition 
Set FC = Range("E2:E30") .FormatConditions.1Item(]1) 
EFC.Modify xlCellValue, xlLess, "1]20" 


End Sub 
个 实例 创建 了 一 个 条 


tl 
[3 


‘051111110146 
‘051111110453 
051111110369 
‘051145110587 
051145110529 
‘051144110200 
051111110138 
051111110003 
‘051111110148 
051111110452 
051149110092 
051145110635 
‘051145110615 
‘051121110419 
051145110431 
051111110397 
051111110458 
051121110636 
051145110629 
‘051111110074 
051121110764 
‘051145110701 
051111110001 
051111110372 
051111110002 


修改 它 的 规则 为 小 于 120 


ED 一] 3 Do 


倾斜 ; 男 一 个 是 当成 绩 低 于 120 po 
-格式 为 一 位 小 数 。 


源 代码 : 实例 文档 35.xlsm/ 条 件 格式 


1 Sub Testo() 

之 。 Dim EC As Excel.FormatCondition, FC2 As Excel.FormatCondition 

3 Range ("E2:E30") .FormatConditions.Delete 

4 Set FCl1 = Range ("E22:E30") .FormatConditions.Add (Type:=Excel. 
XlFormatConditionType.xlCellValue, Operator:=Excel. 
XlFormatConditionOperator.xlGreater, Formulal:="130") 

ss With FCl 

6b. .Font.Italic = True 

Fa .Font.Bold = True 

8. End With 

与。 Set FC2 = Range("E2:E30") .FEFormatConaditLons -Add (Type:=Excel. 
XlFormatConditionType.xlCellValue, Operator:=Excel. 
XlFormatConditionoperator.xlLess, Formulal:="120") 

10. With FC2 

11. .NumberFormat = "0.0" 

pe End With 

13。 Dim fc As FormatCondition 

1 4. For Each fc In Range("E2:E30") .FormatConditions 


2002/06/ D2 
2001711/12 
2002709712 
20027077D8 
200312719 
2002711724 
200211718 
20027D087Dd 
2002706728 
200121171D 
200370d4728 
20022077D9 
2002201713 
20032D05717 
2003117D8 
200320772B 
200311723 
2003D02715 
2004D171D 
20027127DB 
20017117D0d 
2002/01/23 
2002/:05/15 
2003;:04/29 
20027 097Dd 





图 14-92 ”修改 条 件 格 式 的 规则 
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ds Debug.Print fc.Type, fc.Operator, fc.NumberFormat, fc.Formulal 
16. Next fc 
li. End Sub 


代码 分 析 : 程序 中 FC1 和 FC2 表示 两 个 条 件 格式 。 

第 14 ~ 16 行 代码 遍历 每 一 个 创建 好 的 条 件 格 式 ， 在 立即 窗口 打印 条 件 格 式 的 类 型 、 操 
作 符 、 数 字 格 式 、 公 式 表 达 式 。 

运行 上 述 过 程 后 ， 工 作 表 中 的 结果 如 图 14-93 所 示 。 

立即 窗口 的 打印 结果 如 图 14-94 所 示 。 


在 二 2 


[可 
[3 


客 
: 出 生日 期 

O51111110146 2002/06 02 
D51111110455 2001 11/12 
D51111110369 2002708 02 
D5114511058T7 2002707/08 
51145110529 2008712719 
D51144110200 2002711/2d 
051111110138 2002711/198 
D51111110003 20027 D8 04 
O51111110148 2002/06128 
O51111110452 2001711/10 
D51149110092 2003/0¢4/ 28 
O51145110635 200270T/09 
D51145110619 2002/01/,13 
O51121110¢19 2003705/17 
‘O51145110431 2003711/ v8 
D51111110897 2008/0T /26 
D51111110458 2003/11/23 
D51121110636 200370215 
D51145110629 2004/01110 
D51111110074 2002712/06 
D51121110764 2001711/04 
D51145110701 2002701723 
051111110001 200270515 
D511111103793 D003 Od 2 


图 14-93 设置 多 个 条 件 格 式 图 14-94 ”运行 结果 23 
如 果 要 删除 其 中 一 个 条 件 格 式 ， 可 以 调用 FormatCondition.Delete 方法 : 如 果 要 删除 单 
元 格 区 域 的 所 有 条 件 格 式 ， 可 以 调用 Range.FormatConditions.Delete 方法 。 


于 





14.5.8 ”处 理 数据 有 效 性 


Excel 的 单元 格 可 以 设置 有 效 性 验证 ， 如 果 输 入 不 ge Es 
符合 验证 规则 的 数据 时 ， 会 被 拒绝 输入 。 但 是 ， 使 用 
VBA 语句 修改 单元 格 内 容 ， 即 使 设置 了 有 效 性 验证 ， 
也 不 会 被 拒绝 。 

会 弹出 数据 有 效 性 验证 对 话 框 ， 如 图 14-95 所 示 。 

Excel VBA 也 可 以 为 单元 格 区 域 目 动 设置 数据 有 效 
性 验证 ，Range 对 象 下 面 有 一 个 Validation 对 象 ， 这 个 
对 象 表示 单元 格 区 域 的 有 效 性 验证 。 图 14-95 ”数据 有 效 性 验证 对 话 杠 

一 个 单元 格 或 区 域 最 多 只 能 有 一 个 有 效 性 规则 ， 如 
采 要 设置 新 的 验证 ， 必 须 删 除 原 有 验证 规则 。 
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14.5.8.1 新 建 有 效 性 验证 
使 用 Range.Validation.Add 方法 可 以 为 单元 格 区 域 创建 有 效 性 验证 。 其 语法 格式 为 : 


Range .Validation.Add (Type,Alertstyle,oOperator,Formulal,Formula2) 


参数 含义 如 下 。 

D Type: 有 效 性 验证 类 型 ， 取 值 为 XIDVType 中 的 枚 举 稼 量 之 一 ， 如 表 14-3 所 示 。 

口 AlertStyle: 出 错 警 告 样式 ， 取 值 为 XIDVAlertStyle 中 的 枚 举 常 量 之 一 。 

a) xlValidAlertInformation: 信息 框 。 
b) xlValidAlertStop: 停止 框 。 
c) xlValidAlertWarning: 志 告 框 。 

DOperator : 比较 运算 和 人生， 取 值 为 xlFormatConditionOperator 中 的 枚 举 稼 量 之 一 。 有 具体 
有 xlBetween, xlEqual、 、xlGreater 、xlGreaterEqual 、xlLess 、xXlLessEqual 、xlNotBetween 
和 xlNotEqual。 

D Formulal 、Formula2: 规定 数据 的 范围 《最 小 值 和 最 大 值 )。 


表 14-3 XIDVType 枚 举 常量 表 


天 型 描述 说 明 
XlValldateCustom 使 用 自 定义 公式 
xlValidateDate 日 期 
XlVallidateDeclmal 数值 
xlValidateDateInputOnly 提示 输入 
xlValidateDateL ist 限制 在 列表 式 单元 格 区 域 
xlValidateDateTextLength 指定 长 度 的 文本 
XlValidateDateTime 日 期 、 时 间 
xlValidateDateWholeNumber 整数 


14.5.8.2 ”使 用 有 效 性 验证 实现 输入 提示 

Excel 单元 格 除 了 使 用 插 人 批注 提示 信息 外 ， 还 可 以 使 用 有 效 性 验证 的 方式 ， 当 用 户 选 
中 一 个 单元 格 区 域 时 ， 在 鼠标 附近 出 现 提示 语 。 

运行 下 面 的 过 程 ， 在 成 绩 区 域 被 选中 后 ， 附 近 会 出 现 一 个 矩形 的 提示 框 。 

源 代码 : 实例 文档 36.xlsm/ 有 效 性 验证 


1. Sub Testl() 
Range ("B2:C10"™) .Validation.Delete 
Range("B2:C10"™) .Validation.Add Type:=Excel .XlDVType.xlValidateInputonly, 


ne 


Alertstyle:=Excel .XlDVAlertstyle.xlValidAlertIinformation 
二 With Range("B2:C10"™) .Validation 
a -ShowInput = True 
6. .InputTitle = ”友情 提示 = 
了 。 .InputMessage = "这 里 是 学 生成 绩 输 入 区 域 ， 请 认真 输入 ! " 
8 End With 
9 End Sub 
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代码 分 析 : 第 2 行 代码 用 于 删除 原 有 的 有 效 性 验证 ， 如 末 不 删除 就 添加 数据 会 出 错 。 

第 3 行 代 人 码 中 ，Type:=Excel.XIDVType.xlValidateInputOnly 表示 输入 提示 类 型 的 验证 ， 
第 6 行 和 第 7 行 代码 指定 了 提示 框 的 标题 及 内 容 。 

上 述 过 程 运行 后 ， 结 采 如 图 14-96 所 示 。 


Le Ga Bo 十 


恒 | 选 定 半 元 属 时 显示 杭 六 信息 [ 多 
选 定单 元 格 时 显示 下 列 输 人 信息 ， 





图 14-96 ”自动 设置 数据 有 效 性 


14.5.8.3 ”只 能 输入 指定 范围 的 整数 

很 多 情况 下 ， 需 要 限定 数据 输入 的 范围 ， 第 见 的 有 范围 限定 的 类 型 包括 : 整数、 小数、 
日 期 时 间 等 类 型 。 

下 面 的 实例 规定 单元 格 区 域 只 能 输入 1 ~ 100 的 整数 ， 和 否则 弹出 警告 对 话 框 。 

源 代 码 : 实例 文档 36.xlsm/ 有 效 性 验证 


1。 Sub Testz () 
Range ("B2:C10"™) .Validation.Delete 

i Range ("B2:C10"™") .Validation.Add Type:=Excel .XlDVType.xlValidateWholeNumber., 
Alertstyle:=Excel .XlDVAlertstyle.xlValidAlertstop, Operator:=Excel. 


XlFormatConditionOperator.xlBetween, Formulal:="1", Formula2:="]00" 


和 4 With Range ("B22:C10"™") .Validation 

ei .ShowError = True 

6 . -ErrorTitle =“" 出 错 jJ!1 " 

7 .ErrorMessage = "只 能 输入 1 ~ 100 的 整数 ,请 重 试 ! " 
8 End With 

号 End Sub 


代 但 分 析 : 第 3 行 代码 中 规定 了 类 型 为 
整数 、 出 错 样 式 为 敬告、 操作 符 为 介 于 、 数 
据 为 1 ~ 100。 

运行 上 述 代 码 ， 在 单元 格 区 域 输 入 任意 
字符 ， 会 被 拒绝 ， 如 图 14-97 所 示 。 @ =e ss 


\ | | z RXR | | MW | 
14.5.8.4 ”输入 某 日 期 之 后 的 日 期 
如 采 操 作 符 大 于 或 小 于 某 个 值 时 ， 只 需 图 14-97 输入 不 合法 提示 框 
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指定 一 个 边界 范围 值 ， 就 不 需要 Formula2 人 参数。 
以 下 实例 演示 了 设置 单元 格 只 能 输入 2000 年 1 月 1 日 以 后 的 日 期 。 
源 代 码 : 实例 文档 36.xlsm/ 有 效 性 验证 


1。 Sub Test31() 

-a Range ("B22:C10") .Valijdation.Delete 

i Range("B2:C10") .Validation.Add Type:=Excel .XlDVTIype.xlValidateDate, 
Alertstyle:=Excel.X1lDVAlertSstyle.xlValidAlertstop, Operator:=Excel. 
XlFormatConditionOperator.xlGreaterEqual, Formulal:="2000/1/1" 


4. With Range("B2:C10"™") .Validation 

2 .ShowError = True 

6 . .ErrorTitle = "出 各 J!1 = 

7. .ErrorMessage = "只 能 输入 2000 年 1 月 1 日 以 后 的 日 期 ! " 
8 End With 

9 End Sub 


运行 上 述 过 程 后 ， 在 单元 格 中 输入 2000 年 以 前 的 日 期 会 弹出 警告 对 话 框 。 调 出 “数据 
验证 ”对 话 框 后 ， 可 以 看 到 使 用 代码 自动 设置 数据 有 效 性 ， 如 图 14-98 所 示 。 





图 14-98 ”运行 结果 24 


14.5.8.5 ”只 能 输入 规定 的 条 目 

工作 表 中 的 某 些 特定 区 域 ， 只 能 输入 性 别 或 者 学 历 等 ， 条 目 比 较 固定 的 情况 。 这 种 有 效 
性 验证 就 属于 序列 。 

下 面 的 实例 演示 了 “学 历 ” 单 元 格 区 域 只 能 输入 学 历 名 称 。 

源 代 码 : 实例 文档 36.xlsm/ 有 效 性 验证 


1] Sub Test4{() 

之 Dim V As 正 XCel .Valijdation 

3 Set V = Range ("D2:D10") .Validation 

4. Range ("D2:D10") .Validation.Delete 

5 V.Add Type:=Excel.XlDVType.xlValidateList,，，Formulal:=" 本 科 ， 硕士 ,博士 " 
6 V.InCellDropdown = False 
1 End Sub 


代码 分 析 : 变量 V 是 一 个 数据 有 效 性 验证 对 象 ， 第 5 行 代码 规定 新 增 的 数据 有 效 性 是 
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一 个 序列 ， 序 列 的 内 容 是 一 个 用 半角 逗号 陋 开 的 字符 串 。 第 6 行 代码 规定 不 提供 下 拉 列 表 。 

运行 上 述 过 程 后 ， 单 元 格 区 域 D2:D10 只 能 输入 本 科 、 硕 士 、 博 士 三 者 之 一 ， 其 余 文 字 
不 得 输入 。 

如 果 把 第 6 行 代 码 改 为 VInCellDropdown =True， 再 次 运行 上 述 过 程 ， 当 鼠标 单 击 单元 
格 区 域 时 ， 自 动弹 出 下 拉 列 表 ， 如 图 14-99 所 示 。 

Formulal 参数 除了 接收 逗号 卫 开 的 字符 串 条 目 以 外 ， 还 可 以 接收 工作 表 中 的 已 有 数据 
区 域 。 

源 代 码 : 实例 文档 36.xlsm/ 有 效 性 验证 


1] Sub Teste () 

本 Dim V As Excel .Validation 

3 Set V = Range("E2:E]10") .Validation 

4. Range ("E22:E10") .Validation.Delete 

三 V.Add Type:=Excel .XlDVType.xlValidateList, Formulal:="=$G$3:$G5$4" 
6 V.InCcellDropdown = True 

了 





End Sub 
代码 分 析 ， 本 例 和 上 例 所 有 参数 几乎 完全 相同 ， 不同 的 是 此 次 Formulal 参数 使 用 的 是 
单元 格 区 域 的 地 址 G3:G4。 
运行 该 过 程 后 ， 单 击 EE 列 中 的 单元 格 时 ， 上 自动 弹出 性 别 选择 菜单 ， 如 图 14-100 所 示 。 











1 

2 

3 

-到 

5 

6b 

7 

8 

由 
10 
11 





图 14-99 ”上 自动 弹出 下 拉 列 表 图 14-100 单元 格 区 域 数据 作为 下 拉 列 表 的 数据 源 


14.5.8.6 ”有 效 性 验证 的 复制 粘贴 

如 有 果 一 个 区 域 已 经 设置 好 数据 有 效 性 ， 想 把 这 种 规则 ); 
可 以 使 用 选择 性 粘贴 。 

下 面 的 实例 把 D2:D10 的 有 效 性 验证 粘贴 到 C2:C10 中 。 

源 代 码 : 实例 文档 36.xlsm/ 有 效 性 验证 





告 贴 到 其 他 单元 格 区 域 中 ， 这 时 候 


1 Sub Testo() 

本 二 Range (D2:D10™) .Copy 

| Range ("C2:C10") .PasteSpecial Paste:=xlPasteValijdation 
4. Application.CcutCopyMode = False 


5. End Sub 


14.5.9 ”使 用 单元 格 样式 
单元 格 样式 几乎 包含 了 单元 格 的 所 有 格式 内 容 ， 通 过 使 用 样式 ， 可 以 把 单元 格 区 域 的 单 
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元 格格 式 按 照样 式 内 容 快速 格式 化 ， 这 一 点 和 格式 刷 的 功能 很 像 。 
Excel 本 身 带 有 很 多 内 置 单 元 格 样式 ， 和 选择“ 开始 ”一 “样式 ”一 “单元 格 样式 ”命令 ， 
会 看 到 所 有 内 置 样式 ， 如 图 14-101 所 示 。 




















数字 





























加 妆 人 站 。 警 告 文 本 返 接 单元 格 
EE 


标题 

怀 赴 标题 1 二 
主题 单元 格 样式 

| 20% - 着 ... 20% - 着 ... 
J —— 




















员 巾 [oj 十 位 分 隔 十 位 分 隅 [LD] 





合并 样式 (MD 


图 14-101 单元 格 样式 
单 击 “新 建 单 元 格 样式 ”按钮 ， 弹 出 创建 用 户 自 定义 样式 的 对 话 框 。 
再 单 击 “ 格 式 ” 按 钮 ， 会 弹出 Excel 单元 格格 式 对 话 框 ( 见 图 14-102 ) 。 


辆 字体 [日 ”未 体 ( 正 六 ] 11, 文字 1 
| 

| 癌 迪 框 [8} 无 边框 

中 圆 地 充 四 ”无 遍 蚁 


| 国 EPI 镶 话 


r 
图 
单 击 科 十 议 大 。 掀 性 意 加 入 上 向 的 按 袜 可 lj 三 料 式 .， 








图 14-102 ”新 建 样式 
创建 好 目 定 义 样 式 后 ， 这 个 样式 和 内 置 样式 都 可 以 应 用 于 单元 格 区 域 ， 快 速 设置 单元 格 
格式 。 
Excel VBA 中 ， 工 作 短 的 所 有 样式 用 Workbook.Styles 表示 ， 其 中 每 一 个 样式 就 是 一 个 
Style 对 和 象 。 


一 个 Style 对 象 可 以 包含 如 下 方面 的 内 容 属性 。 
D IncludeNumber: 数字 格式 。 
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口 IncludeAlignment: 单元 格 对 齐 方 式 。 

D IncludeFont: 字体 (字体 名 称 、 字 号 等 )。 

口 IncludeBorder: 边框 。 

口 IncludePatterns: 填充 色 。 

口 IncludeProtection: 单元 格 保护 。 

以 上 6 个 属性 均 为 布尔 值 ， 如 果 为 True， 就 表示 包含 这 个 方面 ， 等 价 于 新 建 样式 对 话 
框 中 各 项 前 面 的 复 选 框 。 

可 以 使 用 VBA 进行 创建 单元 格 样式 、 为 单元 格 区 域 应 用 样式 、 删 除 和 修改 样式 、 读 取 
样式 属性 设 定 等 操作 。 


14.5.9.1 创建 单元 格 样式 

新 建 单元 格 样 式 的 语法 非常 简单 ， 使 用 Styles.Add(Name) 就 可 以 创建 ， 难 点 在 于 对 样 
式 的 各 项 设 定 。 

下 面 的 代码 为 活动 工作 禾 新 建 一 个 名 称 为 NewS1 的 日 定义 单元 格 样式 。 

源 代码 : 实例 文档 43.xlsm/ 使 用 单元 格 样式 


1] Sub Testl{() 

2 Dim SS As Excel .style 

3. Set 3 = ActiveWorkbook.styles.Add (Name:="New3Sl1") 

4. With 8 

本 .IncludeNumber = True ' 样式 内 容 包 括 数 字 格 式 
6 .IncludeFont = True 样式 内 容 包 括 字 体格 式 
1 .IncludeAlignment = True gE 样式 内 容 包 括 单 元 格 对 齐 方式 
8. .IncludeBorder = True ' 样式 内 容 包 括 边 框 格式 
9. .IncludePatterns = True ' 样式 内 容 包 括 填 充 、 图 案 设 定 
10 。 -IncludeProtection = True : 样式 内 容 包 括 单 元 格 保护 
11. End With 

12. Ss.NumberFormat = "0.00" ' 该 样式 的 数字 格式 为 两 位 小 数 
和 With S.Font ' 规定 该 样式 字体 属性 

1 4. .Name = " 华文 新 魏 村 

有 .Size = 14 

1 6. .Bold = False 

1]11. .lItalic = False 

18. .Underline = xlUnderlinestyleNone 

Ls .Strikethrough = False 

20. .ColorIndex = ) 

i End With 

ee With 8 ' 规定 该 样式 对 齐 属性 
区 .HorizontalAlignment = xlLeft 

24. .VerticalAlignment = xlCenter 

ph .ReadingOrder = xlContext 

-a .WrapText = True 

4. .Orientation = 0 

28. .AddIndent = False 

pa .ShrinkToFit = False 

30. End With 

“有 ' 以 下 规定 该 样式 各 条 边框 线 属性 

32. With SsS.Borders (xlLeft) 

人 -TIneStyle = xlContinuous 


34. .Weight = xlThin 
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Se .ColorIindex = 45 

36. End With 

31. With S.Borders (xlR1ight) 

38. .Linestyle = xlContinuous 

二 全。 .Weight = xlThin 

40. .ColorIindex = 43 

41. End With 

42. With SsS.Borders (xlTop) 

43. -Linestyle = xlContinuous 

44. .Weight = xlThin 

495. .ColorIindex = 45 

46. End With 

417. With SS.Borders (xlBottom) 

48. .Linestyle = xlContinuous 

49. -Weight = xlThin 

20. .ColorIindex = 45 

la End With 

a With SS.Interior ; 规定 该 样式 填充 色 属性 
D3. .ColorIindex = 0 

D4. .PatternColorIndex = XxlAutomatic 
“= -Pattern = xlGrayle6 

56. End With 

57. With S ' 规定 该 样式 单元 格 是 否 锁定 ， 公 式 是 否 隐藏 
J8. .LOoCcked = False 

3 .FormulaHidden = False 

60. End With 


6l1l. End Sub 

代码 分 析 : 该 过 程 代 但 较 长 ， 请 留意 每 行 后 面 的 注释 部 分 。 

执行 该 过 程 ， 在 Excel 的 单元 格 样式 列表 中 可 以 看 到 新 增 的 样式 。 接 下 来 在 单元 格 区 域 
中 应 用 该 样式 。 

源 代码 : 实例 文档 43.xlsm/ 使 用 单元 格 样式 


1。 Sub Test2() 
Range ("Al:F14") .Style = "NewS1l" 
3. End sub 


运行 过 程 Test2 后 ， 单 元 格 区 域 迅速 被 格式 化 ， 如 图 14-103 所 示 。 











352 Office VBA 开发 经 典 一 一 基础 入 门 卷 


可 以 看 出 ， 样 式 的 应 用 非常 简单 ， 只 需要 运行 Range.Style= 样式 名 即 可 。 


14.5.9.2 ”管理 单元 格 样式 

使 用 VBA 可 以 对 Excel 的 单元 格 样式 进行 属性 修改 。 下 面 的 例子 把 刚刚 创建 的 NewS1 
样式 进行 修改 。 

源 代码 : 实例 文档 43.xlsm/ 使 用 单元 格 样式 


1 sub Test31{) 

之 Dim 号 As 卫生 Ce .style 

Set 3 = 有 ctILVeWorKbook Styles( "New3Sl1L…) 

J S.Font.Italic = True 

3 Debug.Print SsS.Name, S.BuiltIn, 3.Font.Name 
6 End Sub 


代码 分 析 : 第 4 行 代码 把 该 样式 的 字体 改 为 倾斜 。 第 $ 行 代码 打印 该 样式 的 名 称 、 是 否 

内 置 、 ne 
述 过 程 执行 后 ， 可 以 在 工作 表 中 立即 看 到 应 用 该 样式 的 单元 格 区 域 的 内 容 全 变 成 了 
网 

立即 窗口 的 输出 结 采 如 图 14-104 所 示 。 

对 于 不 需要 的 日 定义 单元 格 样 式 ， 可 以 用 Style. 
Delete 方法 将 其 删除 。 只 需要 运行 ActiveWorkbook. 
Styles("NewS1").Delete 即 可 将 其 删除 。 图 14-104 ”查看 样式 的 属性 

14.5.9.3 ”遍历 单元 格 样式 

下 面 的 过 程 滔 历 上 所 有 单元 格 样 式 ， 并 在 立即 窗口 输出 每 个 样式 的 名 称 、 是 否 属于 内 置 
样式 。 

源 代 码 : 实例 文档 43.xlsm/ 使 用 单元 格 样式 





] Sub Test4() 

2 Dim SS As Excel .style 

ER For Each Ss In ActijveWorkbook.Sstyles 
4 Debug.Print S.Name, S.BuiltIin 

| Next 3 

6 End Sub 


运行 代码 后 ， 立 即 窗口 的 结果 如 图 14-105 所 示 。 
可 以 看 到 用 户 目 定 义 单元 格 样式 NewSl1，Bnuiltin 属性 
是 False。 图 14-105 ”遍历 所 有 单元 格 样式 





14.6 ”Range 对 象 专题 讲解 





14.6.1 早 元 格 的 合并 与 取消 合并 
Excel 的 单元 格 可 以 合并 ， 多 个 单元 格 可 以 合并 成 一 个 。Word 表格 中 的 一 个 单元 格 可 以 
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拆 分 为 多 个 ， 但 是 Excel 单元 格 没有 拆 分 功能 ， 只 有 合并 与 取消 合并 。 

合并 和 取消 合并 单元 格 在 日 常 办 公 的 报表 处 理 中 使 用 频率 非常 高 ， 因 此 使 用 VBA 自动 
合并 与 取消 合并 单元 格 意义 重大 。 

VBA 中 的 合并 用 Range.Merge 方法 ， 取 消 合 并 用 Range.UnMerge 方法 。 





打开 源 文 件 “ 实 例文 档 37.xlsm”， 切 换 到 工作 表 Sheetl1，A 列 数 据 未 合并 ，C 列 “ 值 日 
内 容 ” 已 经 手工 合并 完成 ， 如 图 14-106 所 示 。 

如 果 在 VBA 中 试图 为 单元 格 C3 赋值 ，Range("C3").Value=" 拖 地 "， 运 行 后 发 现 没 有 任 
何 变 化 。 如 果 运 行 Range("C2").Value=" 拖 地 "， 则 可 以 修改 单元 格 内 容 。 这 说 明 单 元 格 被 合 
并 以 后 只 有 左上 角 单 元 格 可 用 。 

接 下 来 讲解 用 VBA 自动 合并 单元 格 ， 以 及 如 何 取消 合并 单元 格 。 

源 代 码 : 实例 文档 37.xlsm/ 合并 单元 格 


1 Sub Testl]{() 

-a Range ("A2:A4") .Merge 
3 Range ("C2") .UnMerge 
4 End Sub 


代码 分 析 : 该 过 程 的 作用 是 把 A2:A4 进行 合并 ，C2:C4 进行 取消 合并 。 
由 于 C2:C4 在 代码 执行 前 已 经 合并 ， 所 以 在 代码 中 只 需要 写 上 左上 角 的 地 址 即 可 。 
上 述 过 程 运行 后 的 结果 如 图 14-107 所 示 。 


| 清扫 教 字 楼 | 


洲 社 儿 


,hh 
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捍 座 档 


近 一 





图 14-106 “基础 数据 表 图 14-107 ”自动 合并 和 取消 合并 单元 格 
如 果 一 次 性 把 星期 一 到 星期 五 都 进行 相应 的 合并 操作 ， 则 需要 用 到 单元 格 的 遍历 。 
源 代 码 : 实例 文档 37.xlsm/ 合并 单元 格 


1] Sub Test2() 

Wa Dim 1 As Integer 

33s For 1 = 2 To 14 step 3 

4 Range ("A & 1 & ":A & 1 + 2) .Merge 
号 Next 1 

6 End Sub 


代码 分 析 : 循环 变量 1 从 2 到 14， 步 长 为 3。 因 为 第 一 个 需要 合并 的 单元 格 地 址 是 
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A2:A4， 所 以 在 循环 体内 需要 写成 Range("A" 及 i 及 "A" 及 i+2)， 这 也 是 单元 格 的 一 个 循环 
技巧 。 

上 述 过 程 运行 后 ， 结 来 如 图 14-108 所 示 。 

接 下 来 讲解 如 何 判断 一 个 单元 格 区 域 是 否 被 合并 ， 以 及 如 果 是 合并 的 单元 格 ， 那 么 合并 
区 域 是 多 少 。 

Excel VBA 的 Range 对 象 有 一 个 MergeCells 属性 ， 用 来 判断 是 否 合 并 ， 返 回 布尔 值 。 
同时 ， 还 有 一 个 MergeArea 对 象 ， 可 以 返回 合并 单元 格 区 域 日 返回 一 个 Range 对 和 象 。 

源 代 码 : 实例 文档 37.xlsm/ 合并 单元 格 


1] Sub Test3{) 

之 Ift Range ("A2") .MergeCells = True Then 

Ss MsgBox "A2 合并 单元 格 的 地 址 是 : ” & Range("A2") .MergeArea.Address 
4. Else 

5 MsgBox "A2 不 是 合并 的 单元 格 。" 

6 End If 

1 End Sub 


代码 分 析 : 代码 的 功能 是 ， 如 果 发 现 A2 是 合并 单元 格 ， 那 么 获取 合并 后 单元 格 区 域 地 
址 ， 从 而 知道 合并 区 域 的 大 小 。 
运行 上 述 过 程 ， 结 果 如 图 14-109 所 示 。 


1 
2 
号 
4 
9 
BD 
下 
9 


Microsoft Excel 


A2 合 并 单元 格 的 地 址 旺 : $$2:$A$4 





图 14-108 ”循环 合并 单元 格 图 14-109 ”运行 结果 25 








14.6.2 ”Range 与 名 称 的 使 用 


Excel 允许 定义 名 称 (Name)， 和 名 称 好 比 是 一 个 代号 ， 可 以 指 代 负数、 公式 字符 串 、 单 
元 格 区 域 等 。 名 称 可 以 用 在 公式 、 条 件 格 式 或 有 效 性 验证 ， 甚 至 是 图 表 中 。 

名 称 主要 分 为 两 个 部 分 : 一 部 分 是 名 称 标识 待 ; 为 一 部 分 是 该 名 称 引 用 的 内 容 。 名 称 
标识 符 一 般 要 与 单元 格 地 址 区 别 开 ， 也 就 是 说 ， 定义 名 称 时 ， 尽 量 不 要 使 用 像 B6 这 样 的 。 
还 有 一 个 概念 就 是 名 称 的 作用 范围 。 名 称 可 以 定义 为 工作 簿 范围 的 ， 也 可 以 定义 为 工作 表 
范围 的 。 

在 Excel 中 ,选择 “公式 ”一 “定义 的 名 称 ”一 “名称 管 理 器 ”命令 ， 弹 出 “名称 管 理 器 
对 话 框 ， 如 图 14-110 所 示 。 
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| 


引用 位 时 (Ri): 
KV 





图 14-110“ 名 称 管理 顺 ” 对 话 框 
alain 的 构成 主要 包括 : 





对 话 框 左上 角 还 有 “新 建 ”编辑 ”“ 删 除 ” 三 个 按钮 ， 用 于 管理 名 称 。 
下 面 的 实例 用 VBA 代 人 码 上 日 动 新 建 名 称 ， 该 名 称 指 代 一 个 常数 圆周 率 +。 
源 代码 : 实例 文档 38.xlsm/ 使 用 名 称 


1 Sub Testl]{() 

pa Dim N As Excel .Name 

Ss Set N = ActiveWorkbook.Names.Add (Name:="T", RefersTo:="=3.14159") 
44. N.Comment = " 刘 永 富 定 义 的 圆周 率 。" 

-| Debug.Print N.Name, N.RefersTo, N.Parent.Name, N.Comment 

6 End Sub 


代码 分 析 : 第 3 行 代码 为 工作 沽 增加 一 个 名 称 ， 名 称 的 标识 符 是 站 ， 指 代 3.14159， 注 
意 RefersTo 的 参数 中 是 "=3.141$9"， 等 号 不 能 省 略 。 
第 5 行 代 但 依次 打印 标识 待 、 名 称 的 数值 、 名 称 的 父 级 对 象 、 名 称 的 备注 。 
结果 如 图 14-111 所 示 。 





可 以 看 出 名 称 的 父 级 对 象 是 “实例 文档 38.xlsm ”， 
这 个 名 称 是 一 个 工作 秒 级 的 。 
定义 好 名 称 后 ， 在 工作 表 的 任 一 单元 格 中 输入 公 


[=cos Co) ] 
式 “=COS(T)”， 如 图 14-112 所 示 ， 按 【 Enter ] 键 后 | | COs(number) | 


结果 为 一 ] 0 





图 14-112 输入 全 
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如 果 为 工作 表 创 建 名 称 ， 需 要 使 用 WorkSheet.Names.Add 方法 。 
下 面 的 实例 为 工作 表 Sheetl 创建 一 个 名 称 ， 该 名 称 指 回 单 元 格 区 域 中 的 数学 成 绩 列 。 
源 代 码 : 实例 文档 38.xlsm/ 使 用 名 称 


1。 Sub Test2() 

wa Dim N As Excel .Name 

3. Set N = Sheetl.Names.Add (Name:="Maths", RefersTo:="=$C$2:$C59") 

本. Debug.Print N.Name, N.RefersTo, N.Parent.Name, N.RefersToRange. 
Address(False, False) 

eo Sheetl.Range ("Maths") .Select 


6. End Sub 


代码 分 析 : 第 3 行 代码 的 RefersTo 参数 是 一 个 单元 格 区 域 的 绝对 地 址 。 

第 4 行 代码 打印 名 称 的 标识 符 、 引 用 位 置 、 名 称 的 父 级 对 象 、 名 称 指 代 的 Range 地 址 。 
第 5 行 代码 自动 选中 名 称 指 代 的 区 域 。 

运行 代码 后 ， 立 即 窗 口 的 输出 结果 如 图 14-113 所 示 。 





图 14-113 ”工作 表 范 围 的 目 定义 名 称 
打开 “名 称 管理 右 ” 对 话 框 也 可 以 看 到 刚刚 用 代码 添加 的 名 称 ， 如 图 14-114 所 示 。 











引用 位 置 备注 
=3. 14159 浏 永 语 定 交 ， 





| 犁 化 全 








14-114 查看 名 称 


在 任 一 单元 格 中 输入 公式 “ =Average(Maths)”， 可 以 计算 数学 成 绩 的 平均 分 。 因 此 ， 和 名 
称 也 可 以 用 作 Excel 公式 的 参数 。 

接 下 来 讲解 名 称 的 遍历 。 

工作 表 范 围 的 名 称 也 属于 工作 竹中 名 称 的 成 员 。 下 面 的 过 程 遍 历 活动 工作 竹中 的 所 有 名 称 。 


Sub Test3() 
2 Dim N As Excel .Name 
a FoOr Each N In ActiveWorkbook.Names 
es Debug.Print N.Name 


1 
3 Debug.Print ActiveWorkbook.Names.Count 
= 
日 Next N 
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1. End Sub 
以 下 过 程 遍 历 工 作 表 范围 的 所 有 名称。 


1] Sub Test4{() 

之 Dim N As Excel .Name 

了 Debug.Print Sheetl .Names -Count 
4. For Each N In Sheetl.Names 
Debug.Print N.Name 

6 Next N 
1 End Sub 


代码 分 析 : 本 过 程 第 3 行 代码 获取 工作 表 中 名 称 个 数 。 运 行 结 采 略 。 


14.6.3 ”如 何 遍 历 单元 格 


Excel VBA 的 强大 之 人 处， 一 是 对 和 象 模型 丰富 ， 二 是 能 够 在 各 种 对 象 中 循环 裔 历 。 尤 其 
是 单元 格 区 域 的 循环 ， 灵 活 多 变 ， 这 需要 编程 人 员 能 够 根据 数据 区 域 特征 采用 恰当 的 循环 方 
式 ， 提 高 程序 开发 的 效率 和 速度 。 

14.6.3.1 列 向 遍历 

单元 格 从 上 往 下 凯 历 时 ， 列 标 字 母 不 变化 ， 只 有 行 号 在 改变 ， 所 以 用 整 型 变量 去 代替 行 
号 即 可 。 

源 代 码 : 实例 文档 40.xlsm/ 遍历 单元 格 


和 Sub Testl() 

2 Dim i As Integer 

3 For 1 = 1 To 10 

4. Debug.Print Range(t A &t IE& ":B"” & 1).Address (False, False) 
3 Next 1 

6 End Sub 


代码 分 析 : 这 种 遍历 方式 中 ， 字 符 串 连接 是 技巧 。 
代码 运行 的 部 分 结果 为 : 

Al:Bl1 

A272:B2 

A3:B3 

A4:B4 

AI:BI 


如 有 果 只 遍历 奇数 行 ， 就 在 For 语句 后 面 加 上 Step 2 ; 如 有 果 从 下 往 上 倒序 遇 历 ， 改 成 Fori= 
10 To 1 Step -1 即 可 。 

14.6.3.2 行 向 遍历 

水 平 衣 历时 ， 由 于 列 标 是 字母 ， 不 便于 循环 ， 因 此 使 用 Cells 来 代 符 Range。 

源 代码 实例 文档 40.xlsm/ 遍历 单元 格 


1]. sub Test2() 
pa Dim 1 As Integer 
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3 
4. 
= 
6 


For 1 = 1 To 10 
Debug.Print Cells(3, i) .Address (False, False) 
Next 1 
End Sub 


代 但 分 析 : Cells(3, D 表示 第 3 行 第 i1 列 。 
运行 代码 后 的 部 分 打印 结果 为 : 


A3 
B3 
C3 
D3 
E3 


如 末 行 回忆 历 的 每 个 单元 不 是 一 个 单元 格 ， 可 以 倩 助 Resize 方法 变更 尺寸 。 
源 代 码 : 实例 文档 40.xlsm/ 遍历 单元 格 


1 
pa 
: 
4 
| 
6 


Sub Test3 1() 


Dim 1 As Integer 
For 1 = 1 To 10 
Debug.Print Cells(3, 1).Resize(2) .Addres3 (False, False) 


EX 七 工 


End Sub 


代码 分 析 : 第 4 行 代码 的 Resize(2) 可 以 把 源 区 域 变 成 2 行 。 因此， 打印 结果 为 : 


A3 
B3 
C3 


E3 


:了 4 
:BA4 
:C4 
D3: 
:E44 
F3: 


DA 


FA 


14.6.3.3 ”和 矩形 遍历 

如 果 遍 历 和 矩形 区 域内 的 每 一 个 单元 格 ， 可 以 用 For Each 循环 或 者 两 层 For 循环 。 
下 面 的 实例 使 用 两 层 For 循环 遍历 单元 格 ， 外 层 裔 历 行 号 ， 内 层 壳 历 列 号 。 

源 代码 : 实例 文档 40.xlsm/ 遍历 单元 格 


1 
2 
E 
4. 
| 
6 
了 
8 


Sub Test4() 


Dim 工 As Integer, cc As Integer 
For I= 1 To 3 
For c= 1 To 4 
Debug.Print ActiveSheet.Cellsl(r, c) .Address (Ffalse, False) 
Next cc 


Nexxt I 


End Sub 


运行 代码 后 的 部 分 结 末 为 : 


Al 
Bl 
CL 
D1 
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A2 
B2 
C2 
D2 
A3 


下 面 用 For Each 循环 来 达到 同样 的 目的 。 
源 代 码 : 实例 文档 40.xlsm/ 遍历 单元 格 


1 Sub Testo5 ()】 

2 Dim TI As Range 

3 For Each rg In Range( 员 1:D3”) 

二 Debug.Print rg.Address (False, False) 
2 Next rg 

6 End Sub 


与 上 例 比 起 来 ， 本 例 代码 简短 了 很 多 。 
14.6.4 ”单元 格 与 数组 之 间 的 数据 传递 


单元 格 的 数值 读 写 ， 既 可 以 使 用 For 循环 一 个 一 个 地 依次 读 写 ， 也 可 以 使 用 数组 的 方式 
本 廊 讲 述 各 种 形状 的 Range 对 象 与 数组 的 数据 传递 。 

单元 格 区 域 从 形状 上 可 以 分 为 一 行 、 一 列 、 和 矩形 局 域 (多 行 多 列 )。 

数组 可 以 分 为 一 维 数组 和 二 维 数 组 。 


14.6.4.1 单行 区 域 接收 一 维 数 组 
下 面 的 实例 把 一 维 数组 的 值 传递 给 单行 区 域 ， 语 法 很 简单 ， 用 Range.Value=arr 即 可 。 
源 代 码 : 实例 文档 42.xlsm/ 单元 格 与 数组 


1 Sub Testl]{() 

之 Dim Igl As Range 

3 Dim arr(l To 4) As JInteger 
4 Set rgl = Range ("Bl1:El1") 

“pe arrt(l) 
6 

1 

8 

9 

1 


arr (2) 


5 3 电 


arr (3) 

arr(4) = 
. rgl.Value = arr 
0. End Sub 


代 但 分 析 : 对 和 象 变 量 rgl1 为 1 行 4 列 的 单行 区 域 ， 因 此 可 以 直接 把 一 维 数组 刚 
码 运 行 后 ， 单 元 格 区 域 恰好 接收 数组 的 值 。 

一 维 数组 通常 可 以 用 Array 畏 数 生成 ,这样 省 去 了 为 数组 赋值 的 过 程 。 

源 代码 : 实例 文档 42.xlsm/ 单元 格 与 数组 





给 它 。 代 


1 Sub Test2() 

二 Dim rg As Range 

3 Set rg = Range ("Al:D1") 

4 rg-Value = Array(" 姓名 m "学 号 "=" “性别 "， "年 上身 ") 
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5. End Sub 
以 上 代码 把 数组 的 各 元 系 恰 好 放 入 单元 格 区 域 的 每 个 单元 格 中 。 


14.6.4.2 ”单列 区 域 接收 一 维 数组 
对 于 纵 回 区 域 ， 需 要 把 一 维 数组 转 置 后 再 传递 给 单元 格 区 域 。 
源 代码 : 实例 文档 42.xlsm/ 单元 格 与 数组 


1 Sub Test31{) 

二 Dim rgl] As Range 

3 Dim arr(l To 4) As String 

4. Set rgl = Range ("Al:A4") 

本 re 二 和 

6 站 了 2) 三 "是 " 

7 arr(3) = " 秋 " 

8 arr (4) = " 冬 " 

rgl.Value = Application.WorksheetFunction.Transpose (arr) 
10. End Sub 


代码 分 析 : 第 9 行 代码 使 用 Excel 的 工作 表 困 数 Transpose， 因 此 这 个 技巧 仅 适 用 于 
Excel VBA ， 如 果 是 其 他 组 件 的 VBA，Application 对 象 下 面 没有 WorksheetFunction 。 


14.6.4.3 ”和 矩形 区 域 接 收 二 维 数 组 

一 个 矩形 区 域 可 以 接收 与 区 域 尺 寸 等 大 的 二 维 数 组 ， 要 求 这 个 数组 的 第 一 维 长 度 与 区 域 
的 行 数 相同 ， 第 二 维 长 度 与 区 域 的 列 数 相同 。 

下 面 的 代码 用 于 把 二 维 数 组 放 人 单元 格 区 域 A1:B3 中 。 

源 代 码 : 实例 文档 42.xlsm/ 单元 格 与 数组 


1 Sub Test4{) 

2 Dim Ig As Range 

3 Dim arr(l To 3, 1 To 2) As String 

4. Set rg = Range ("Al:B3") 

Ss arr(l, 1) = "Name™": arr(l, 2) = "Age™" 
6 arr(2, 1) = "Pitter™": arr{2, 2) = "26" 
1 arr(3, 1) = "Gray”: arr(3, 2) = "32" 

8 rg.Value = arr 

9 End Sub 


代码 分 析 : 为 了 看 起 来 直观 ,第 5 ~ 7 行 通过 冒号 把 两 行 代码 连接 成 了 一 行 。 

上 述 过 程 运行 后 结果 如 图 14-115 所 示 。 

值得 注意 的 是 ， 如 采 把 一 个 第 量 赋 给 单元 格 区 域 ， 那 么 单 
元 格 区 域 的 每 一 个 单元 格 的 内 容 都 等 于 这 文 个 常量 。 例 如 ， 运行 | 
Range("Al1:B3").Value="VBA" 这 个 语句 ， 使 得 每 一 个 单元 格 的 内 容 都 和 4-115 ”单元 格 
相同 。 区 域 接收 二 维 数组 

14.6.4.4 ”单元 格 区 域 传递 给 数组 

本 广 讲 的 是 单元 格 区 域 的 已 有 数据 如 何 赋 给 数组 的 问题 。 

如 有 果 单 元 格 区 域 上 只 有 一 个 单元 格 ， 那 么 只 需要 把 这 个 单元 格 的 值 赋 给 一 个 普通 变量 即 可 。 
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如 果 单 元 格 区 域 包含 多 个 单元 格 ， 只 能 用 Variant 类 型 的 变量 去 接收 ， 数 组 不 能 接收 单 
元 格 区 域 的 值 。 

不 管 单元 格 区 域 是 何 形 状 ， 接 收 后 的 数据 类 型 虱 是 二 维 数 组 。 

对 于 单行 区 域 ， 赋值 后 的 数组 是 一 行 多 列 ; 单列 区 域 赋 值 后 的 数组 是 多 行 一 列 。 

下 面 的 实例 分 别 把 不 同形 状 的 单元 格 区 域 赋 值 给 变 体型 变量 。 

源 代码 : 实例 文档 42.xlsm/ 单元 格 与 数组 


1 
2 
3。 
4. 
二 
6 
i 


Sub Test5() 


Dim a As Variant, b As Variant, c¢ As Variant 
a = Range ("Al:Bl1") .Value 

b = Range("Al:A2") .Value 

c= Range ("Al:B2") .Value 

Stop 


End Sub 


代码 分 析 : 第 3 ~ 5 行 代码 用 变 体型 变量 a 去 接收 行 向 区 域 ; 用 变 体 型 变量 b 去 接收 列 
加 区域 ; 用 变 体型 变量 c 去 接收 矩形 区 域 。 

第 6 行 的 Stop 语句 是 为 了 运行 到 此 处 暂 集 ， 然 后 打开 VBA 编辑 融 的 本 地 窗口 ， 可 以 看 
到 变量 a、b、c 的 值 和 结构 ， 如 图 14-116 所 示 。 


Sub Test5() 
Dim a Ms Variant, b As Variant, ¢ As Variant 
a = Rangel( Al1:B1 ) .Value 
b = Range(’Al:A2”).Value 
c = Rangel( Al:B2”).Value 
stop 
End Sub 


Voriorti strirne 
Variant ll to 1 
Variart/Striny 
Var arti Vari emt [1 + 2, ] 4 党 
Variartil to 


Eq 
VariartrStrine 





图 14-116 在 本 地 窗口 中 查看 数组 的 值 


14.6.5 ”单元 格 的 带 格式 查找 


Excel 用 于 查找 单元 格 的 方法 是 Range 对 象 的 Find 方法 ，Find 方法 除了 可 以 根据 单元 格 
内 容 查找 区 域外 ， 还 可 以 根据 设 定 的 单元 格格 式 进 行 查找 。 

根据 单元 格格 式 查找 的 技巧 是 ， 首 先 设 定 Application 的 FindFormat 对 象 ， 设 置 这 个 
对 和 象 的 格式 为 查找 目标 格式 ， 然 后 在 Find 方法 的 参数 中 ， 只 需要 设置 参数 SearchFormat 为 


True 即 可 。 


打开 源 文 件 “ 实 例文 档 39.xlsm” ， 切 换 到 工作 表 Sheetl1， 如 图 14-117 所 示 。 
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; 出 生日 期 

O5111111( 20027062702 125 
O5111111( 2001/11712 a7 
D5111111C 2002709/192| 132|] 
05lld5ll0 2002707208 107 
D5114511¢ -20037/12/15 计 | 
‘05114411c 2002/11/24 106 
051111115 2002/11/18 117 
‘05111111c 2002/08/04 116 
051111110 2002/06/28 
O5111111c 2001 /11/10 114 


D5114911C 2003/04/28 105 





图 14-117 基础 数据 


下 面 的 实例 ， 查 找 成 绩 区 域 的 分 数 中 包含 数字 7， 并 且 该 单元 格 字体 加 粗 的 第 一 个 单元 格 。 
源 代码 : 实例 文档 39.xlsm/ 带 格式 查找 


1 Sub Testl 1() 

2 Dim CF As Excel .CellFormat 

3 Dim Ig As Range 

4. Set CF = Application.FindFormat 

5 With CF 

6 .Font.Bold = True 

1 End With 

8 Set rg = Sheetl.Range ("D2:G12") .Find (What:="/", LookAt:=xlPart, 


SearchOorder:=xlByColumns, SearchFormat:=True) 
9. MsgBox rg.Address (False, False) 
10. End Sub 


代码 分 析 : 对 象 变 量 CF 代表 Application.FindFormat， 也 就 是 查找 格式 。 

第 6 行 代码 设 定 查 找 格式 为 字体 加 粗 。 

第 8 行 代码 ，Find 的 参数 设置 为 部 分 查找 7， 查找 方向 为 先 列 后 行 ， 并且 查找 格式 。 

运行 上 述 过 程 ， 结 采 如 图 14-118 所 示 。 

D8 单元 格 的 内 容 是 117， 并 且 字 体 加 粗 。 尽 管 D3 单元 格 [Me 
中 也 包含 7, 但 是 字体 不 是 加 粗 ， 不 符合 查找 条 件 ， 由 此 可 见 ， 
FindFormat 对 象 的 作用 。 

除了 字体 的 属性 以 处 ，CellFormat 对 象 下 所 有 支持 的 属性 均 
可 作为 查找 格式 。 例 如 ， 数 字 格 式 、 边 框 线 、 填 充 色 、 图 案 样 式 
等 都 可 以 作为 区 别 单元 格 的 特征 。 图 14-118 运行 结果 26 


14.6.6 ”公式 审核 
Excel 的 公式 审核 工具 可 以 用 来 检查 工作 表 中 公式 计算 的 过 程 和 绪 果 ， 可 以 用 第 头 的 形 
式 表 示 出 公式 中 引用 了 哪些 单元 格 ， 或 者 单元 格 被 哪些 公式 所 | 得 ES 用 单列 洛 图 公式 el 


s 举 追踪 从 屋 单元 格 “全 错误 检 ~ 








监视 窗口 
| 用 。 入 夫 第 于 (及 公式 求 值 

2 ee 本 了 > 穆 译 第 头 (A) 

在 Excel 2013 中 ,选择 “公式 ”一 “公式 审核 ”命令 , 显 | goaReeeseao 





示 与 公式 审核 相关 的 命令 ， 如 图 14-119 所 示 。 Be 
该 功能 组 中 各 个 命令 几乎 都 有 对 应 的 VBA 代码 。 图 14-119 ”公式 审核 工具 
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14.6.6.1 追踪 引用 单元 格 

在 工作 表 的 C4 单元 格 中 输入 的 公式 “=SUM(B2,E2,E6,B6)”， 用 来 计算 4 个 数字 的 总 
和 ; 在 G4 单元 格 中 输入 的 公式 “=AVERAGE(B2,E2,B6,E6)”， 用 来 计算 4 个 数字 的 平均 值 。 

以 C4 单元 格 为 例 ， 它 有 4 个 引用 单元 格 ， 分 别 是 B2、E2、E6、B6。 选 中 C4 后 单 击 “和 追 
踪 引 用 单元 格 ” 按 钮 ，C4 单元 格 出 现 4 个 来 日 被 引用 单元 格 的 第 涉 ， 如 图 14-120 所 示 。 





图 14-120 ”追踪 引用 单元 格 


可 以 看 出 ， 只 要 是 公式 中 包含 的 单元 格 地 址 ， 都 属于 引用 单元 格 。 在 Excel VBA 中 ， 
Range.ShowPrecedents 方法 显示 追踪 引用 单元 格 的 箭头 ， 如 果 加 上 Remove 参数 则 移 除 壬 头 。 
源 代码 : 实例 文档 115.xlsm/ 公式 审核 


1 Sub Testl]{() 

pa Sheetl.Range ("G4") .ShowPrecedents 

3 Sheetl.Range ("G4") .ShowPrecedents Remove:=TIrue 
4 End Sub 


代码 分 析 : 第 2 行 代码 显示 单元 格 G4 的 引用 单元 格 箭头 ， 运 行 到 此 行 时 ， 绪 果 如 
图 14-121 所 示 。 
第 3 行 代码 与 第 2 行 代 三 的 功能 相反 ， 为 移 除 箭头 。 





图 14-121 月 动 显示 引用 单元 格 箭头 
此 外 , 在 VBA 中 还 可 以 使 用 Range.Precedents 集合 对 象 ， 过 有 历 一 个 公式 中 引用 的 单 
元 格 。 
源 代 码 : 实例 文档 115.xlsm/ 公式 审核 


1 Sub Test2{() 

2 Dim Ig As Excel .Range 

3 For Each rg In Sheetl.Range ("G4") .Precedents 
4. Debug.Print rg.Address 

入 rg.Interior.Color = vbYellow 

6 Next rg 

1 End Sub 
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代码 分 析 : Range("G4").Precedents 这 个 对 象 就 表示 G4 单元 格 公 式 中 引用 的 所 有 单 
元 格 。 

第 4 行 代码 打印 每 个 引用 单元 格 地 址 ， 第 5 行 代 公设 置 每 个 引用 单元 格 的 填充 色 ， 如 
图 14-122 所 示 。 


fk | =AVERAGE (B2, E2,B6, E6) 





















































图 14-122 遍历 引用 单元 格 


14.6.6.2 ”追踪 从 属 单元 格 

追踪 从 属 单元 格 与 追 踊 引 用 单元 格 恰恰 相反 ， 由 于 工作 表 C4、G4 中 的 公式 都 用 到 了 单 
元 格 B2， 因 此 可 以 把 C4 和 G4 称 作 B2 的 从 属 单 元 格 。Excel VBA 中 ，Range.ShowDepen- 
dents 表示 显示 从 属 单元 格 的 箭头 。 

源 代 码 : 实例 文档 115.xlsm/ 公式 审核 


1] Sub Test31{) 

pap Sheetl.Range("B2") .ShowDependents 

3 Sheetl.Range("B2") .ShowDependents Remove:=TIrue 
4. End sub 


代码 分 析 : 第 2 行 代码 显示 B2 的 从 属 单元 格 祷 头 ， 如 图 14-123 所 示 。 
第 3 行 代码 的 功能 是 移 除 前 头 。 



































图 14-123 ”上 和 目 动 显示 从 属 单元 格 箭头 
同样 ， 可 以 使 用 Range.Dependents 集合 对 象 ， 通 有 历 一 个 单元 格 被 其 他 哪些 单元 格 用 到 。 
下 面 的 过 程 届 历 单元 格 B2 的 从 属 单元 格 。 
源 代码 : 实例 文档 115.xlsm/ 公式 审核 


1 Sub Test4() 

Dim rg As Excel .Range 
3 For Each rg In Sheetl.Range("B2") .Dependents 
4. Debug.Print rg.Address 

ha rg.Interior.Color = vbhGreen 
6 Next rg 

1 


End Sub 
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代码 分 析 : 第 4 行 代码 打印 所 有 用 到 B2 单元 格 的 单元 格 地 址 。 
第 $ 行 代码 设置 这 些 从 属 单元 格 的 填充 色 为 绿色 ， 如 图 14-124 所 示 。 








图 14-124 遍历 所 有 从 属 单元 格 


如 果 要 移 去 工作 表 中 所 有 的 引用 、 从 属 和 家 头 ， 运 和 
Sheetl 上 的 所 有 和 清 头 移 除 。 


习题 


1. UsedRange 和 CurrentRegion 如 何 使 用 ? 两 者 有 哪些 差异 ? 


2. 原始 数据 表 如 图 14-125 所 示 。 











行 Sheetl.ClearArrows 即 可 把 工作 表 
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图 14-125 


请 利用 VBA 实现 批量 插入 标题 行 ， 制 作 工 资 条 ， 

















LD 
职称 工资 
¥ 495 
职称 工资 

| ¥ 321 
职称 工资 
平阳 
职称 工资 
二 54 
职称 工资 
和 226 
职称 工资 
千 5 
职称 工资 
和 233 
职称 工资 
¥ Sep 
职称 工资 


保险 


[2 


[me] 


4 


EE EE 


原始 数据 表 
完成 结果 如 图 14-126 所 示 。 
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医 14-126 
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4 和 =16 

4*5=20 

4 本 日 = 2 

4 7=28 村 1=49 

4 站 8=3< 1?*8=56 |8+8=64 
3*9=2Z7 “46=36 1*9=63 8+*9=72 





图 14-127 九 九 乘法 表 
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15.1 ”处 理工 作 表 中 的 图 片 


Excel 的 工作 表 中 除了 用 于 存储 数据 外 ， 还 可 以 插入 外 部 图 片 、 形 状 、 组 织 结 构图 、 艺 
术 字 等 浮动 图 形 对 象 ，15.2 节 要 讲 的 表单 控件 (FormControl) 也 属于 图 形 (Shape) 对 象 。 图 
15-1 所 示 为 工作 表 中 插入 了 一 个 六 边 形 和 一 个 组 织 结构 图 。 





图 15-1 工作 表 中 的 图 片 
在 Excel VBA 中 ， 工 作 表 上 的 所 有 图 形 用 Worksheet.Shapes 集合 对 象 来 表达 ， 其 中 任何 
一 个 图 形 都 是 一 个 Shape 对 和 象 。 
但 是 ， 由 于 图 形 的 产生 方法 不 同 ，Shape 对 象 的 类 型 也 有 所 不 同 ， 例 如 外 部 图 片 和 表单 
控件 就 不 是 同一 种 类 型 的 图 形 。 


15.1.1 插入 外 部 图 片 
在 工作 表 中 插入 图 片 时 ,需要 事先 选中 一 个 单元 格 ， 因 为 插入 的 图 片 左 上 角 要 与 活动 单 
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元 格 对 齐 。 


源 代码 : 实例 文档 28.xlsm/ 工作 表 中 的 图 片 


1 
之 - 
3 
4. 


车 


6 - 
1 
8 
9 


Sub InsertAPicture({) 工作 表 中 播 入 图 片 


Dim wst As Worksheet, p As Picture 

Set wst = ActiveSheet 

wa3t .Range ("B22") .Select 

Debug.Print TypeName (Application.Selection) 

Set p = wst.Pictures.Insert("C:\temp\picture\46.jpg") 
Pp:Select 

Debug.Print TypeName (Application.Selection) 


End Sub 


代码 分 析 : 第 4 行 代码 事先 选中 B2 单元 格 ， 并 且 打 印 Selection 的 类 型 名 称 。 第 6 行 代 
插入 图 片 。 第 7 行 代码 自动 选中 图 片 ， 第 8 行 代码 再 次 打印 Selection 的 类 型 名 称 。 

运行 代码 后 ， 窗 口 的 输出 结果 立即 如 图 15-2 所 示 。 

第 5 行 和 第 8 行 代码 打印 的 结果 不 一 样 ， 这 说 明 Application. Selection 的 类 型 取决 于 当前 所 

运行 上 述 过 程 ， 工 作 表 中 的 效果 如 图 15-3 所 示 。 





Range 


Picture 





1 | 
2 | 
3 
| 
| 
B 
7 
8 | 
:加 





图 15-2 ”打印 Selection 的 类 型 图 15-3 自动 插入 外 部 图 片 
可 以 看 出 该 图 片 左 上 和 角 恰 好 与 单元 格 B2 对 齐 ， 这 说 明 图 片 的 插入 位 置 与 活动 单元 格 


如 果 要 批量 插入 外 部 图 片 ， 可 以 在 循环 中 反复 调用 Pictures.Insert。 磁盘 中 有 52 张 bmp 


格式 的 扑 殉 牌 图 片 ， 下 面 的 代码 把 这 些 扑 元 牌 月 动 括 





人 工作 表 中 ， 排 成 4 行 13 列 。 


庆 代 码 ， 实例 文档 28.xlsm/ 工作 表 中 的 图 片 


1 
3 
4 
os 
6 


Sub Test2{() 


Dim Ig As Excel .Range 

Dim 1 As Integer 

Sheet2.Activate 

Sheet2.Range ("Al:M4") .ColumnWidth = 8.25 
Sheet2.Range ("Al:M4") .RowHeight = 12 
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a For Each rg In Sheet2.Range ("Al:M4") 

8. rg.Activate 

-PP i = 二 二 十 1 

10. Sheet2.Pictures.Insert (ThisWorkbook.Path & ™\bmp\" & 1 & ".bmp") 
Ds Next rg 


12. End Sub 

代码 分 析 : 根据 需求 ， 这 些 扑克 牌 要 恰好 占据 52 个 单元 格 ， 每 张 图 片 的 尺寸 是 71 像素 x 
96 像素 ， 因 此 需要 调整 单元 格 区 域 Al:M4 的 列 宽 为 8.25 (等 于 71 像素 )、 行 高 为 72 (等 于 
96 像 系 ) 。 

第 7 行 代码 使 用 For Each 馆 历 这 些 单元 格 ， 志 历 到 每 一 个 单元 格 都 用 Activate 激活 ， 
这 是 为 了 让 每 张 图 片 插 和 不同 的 单元 格 中 ， 否 则 会 造成 图 片 重 登 。 

代码 中 的 变量 i 是 一 个 伴随 变量 ,遍历 单元 格 的 时 候 i 自 加 1， 这 样 就 插入 了 不 同文 件 
名 的 图 片 。 上 述 过 程 运行 效果 如 图 15-4 所 示 。 

















Ff 全 二 | 和 | 市 | 市 让 ?人 9 市 | 和 二 
| 
名 名 让 志 二 让 二 和 引证 二 人 证 二 


击 
者 


大 兴 


二 


oy | 。 
大 的 和 四 页 s| 页 页 轴 


PP > 基 铺 电 过 | 小 


4 | ha | 人 
虽 P| | | 军 


者 当 人 | 


| | 二 





图 15-4 批量 插入 图 片 并 对 齐 


15.1.2 ”插入 形状 


Excel 工作 表 中 ， 可 以 插入 和 矩形、 椭圆、 三 角形 。 用 一 吉 交 | 二 二 去 二 二 


> a 本 问 加 ba LW 了 
等 形状 ， 如 图 15-5 所 示 。Excel VBA 使 用 Worksheet. 人 是 me 办 交 :二 Re 
1 mi 有 | -EI - 索 已 i 
Shapes.AddShape 方法 实现 形状 的 插入 。 既 典 菜单 _ 立 即 窗 口 ee AlLLD 
权证 而 | 到 十 到 中 是 守 | 辣 名 一 , 改 1 


Excel VBA 用 于 插入 形状 的 语法 是 Worksheet. [a 





Shapes.AddShape(Type,Left,Top,Width,Height)， 述 | 

同一 个 shape 对 象 。 : 二 下 于 人 于 
其 中 , Type 规定 形状 的 类 型 是 矩形 还 是 箭头 等 。 上 RT 

取 值 为 Office 对 象 库 中 的 枚 举 常 量 。 其 他 四 个 位 置 | 9 vAOSD DS 

参数 的 单位 均 为 磅 ， 规 定 了 形状 的 位 置 和 宽 高 。 / a 





中 一 倪 守 于 串 


下 面 的 计 程 牛 :专权 和 人 一 个 姑 形 
下 面 的 过 程 向 工作 表 插 入 一 个 和 矩形 。 图 15-5 可 以 插入 到 工作 表 的 形状 


源 代 码 : 实例 文档 28.xlsm/ 工作 表 中 的 图 片 
1. Sub Addshape() ' 工作 表 上 ， 插入 图 形 
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End 


号 已 七 


n sp As Shape 
nn Ig As Range 


rg = Range("B2:DI") 
sp = ActiveSheet.Shapes.AddShape (Office .MsoAutoShapeType. 


msoShapeRectangle, rg.Left, rg.Top, Ig.Width, rg.Height) 
With sp 
-FIill.ForeColor.RGB = RGB{(0, 255, 0) 
End With 


sub 


代码 分 析 : 第 5 行 代码 中 的 位 置 参 数 使 用 了 [Ep 70- 


Range 对 象 的 4 个 位 置 参 数 ， 以 便 插 入 的 矩形 和 


单元 格 区 域 恰好 对 齐 。 


第 7 行 代码 设置 了 定形 的 填充 色 为 绿色 。 
上 上述 过 程 运行 后 ， 工 作 表 中 的 效 采 如 图 15-6 


所 示 。 








图 15-6 自动 插入 形状 


15.1.3 Shape 对 象 的 引用 和 遍历 





Shape 对 和 象 的 学 习 ， 可 以 类 比 Worksheet 对 象 。 图 形 也 是 一 种 对 象 ， 整 像 工 作 表 的 名 
称 一 样 ， 每 个 图 形 有 和 名称 和 类 型 属性 ， 名 称 是 形状 插入 时 自动 设 定 的 ， 类 型 与 图 形 的 类 型 


有 关 。 


如 果 工 作 表 上 有 多 个 图 形 ， 引 用 一 个 图 形 的 方法 是 Worksheet.Shapes(i) 或 者 Worksheet. 
Shapes(" 图 片 名 称 ")， 既 可 以 用 索引 3 引 用 ， 也 可 以 用 名 称 引 用 。 
打开 源 文件 “实例 文档 24.xlsm”， 会 看 到 工作 表 Sheetl 中 有 杂乱 无 草 的 12 个 图 形 。 
源 代 码 : 实例 文档 24.xlsm/Shape 对 象 的 属性 


1 
2 
S 
4 
可 
6 


End 


Sub Testl () 
Dim sp As Shape 


For Each sp In Sheetl.Shapes 


Debug.Print sp.Name, sp.Type, sp.TopLeftCell.Address (False, 


Next sp 


SUb 


False) 


代码 分 析 : 由 于 工作 表 上 的 12 个 图 形 都 是 外 部 图 片 ， 所 以 它们 的 类 型 都 是 13 (等 价 于 
内 置 枚 举 稼 量 Office.MsoShapeType.msoPicture )，TopLeftCell 是 由 Shape 返回 的 一 个 Range 
对 象 ， 是 指 这 个 图 形 左 上 角 所 处 单元 格 。 

运行 代 人 码 后 ， 立 即 徐 口 的 打印 结果 为 (部 分 结 末 ): 


Picture 


Picture 


Picture 
Picture 


Picture 


1 
2 
3 
4 
3 


1]3 
1]3 
1 3 
13 
13 


DI 
DI 
D8 
D9 
D10 
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15.1.4 ”Shape 对 象 的 属性 获取 与 设 定 


图 形 对 象 最 基本 的 属性 是 大 小 与 位 置 ， 工 作 表 中 的 图 形 很 多 情况 下 需要 与 单元 格 对 齐 。 


打开 源 文件 


如 图 15-7 所 示 。 
以 下 代码 遍历 工作 表 上 的 所 有 图 形 ， 并 把 每 一 个 图 形 移动 到 指定 单元 格 的 左上 角 ， 实 
源 代码 : 实例 文档 24.xlsm/Shape 对 象 的 属性 


1] 
之 - 
3 
4 
2 


二。 


Sub Test2{) 


“实例 文档 24.xlsm”， 会 看 到 工作 表 Sheetl 中 有 杂乱 无 章 的 12 个 图 形 ， 


Dim 1 As Integer 


Dim Ig As Range, sp As Shape 


FOr 1 


1 To 12 


Set rg = Sheetl.Range ("Al:C4"). 
Cells(1i) 
Set sp = Sheetl.Shapes ("pic™" & 1) 


SPp - 
写本 < 
3p - 
.Width = rg.Width 


sP 


SEE 


Nexxt 1 


13. End Sub 


代码 分 析 : 第 6 行 代码 使 用 名 称 引 用 每 一 个 图 形 。 第 7 行 代 人 码 取 消 图 形 的 锁定 纵横 比 设 


LockAspectRatio = msoFalse 
Top = Ig.Top 
Left = rg.Left 


Height = rg.Height 


， 以 便 与 单元 格 区 域 完 全 对 齐 。 


第 8 ~ 11 行 代码 移动 图 形 ， 并 修改 图 形 的 宽度 和 高 度 。 
程序 运行 后 ， 工 作 表 中 12 张 离 散 的 图 片 拼 出 完整 图 片 ， 如 图 15-8 所 示 。 





图 15-7 未 对 齐 的 离散 图 片 图 15-8 ”运行 结果 
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15.1.4.1 设置 文本 框 中 的 文字 

工作 表 上 的 形状 (和 矩形、 水 平 文本 框 等 ) 都 可 以 添加 文字 ， 通 过 VBA 也 能 轻松 完成 
人 和 

下 面 的 实例 实现 在 单元 格 附近 插入 一 个 水 平 文本 框 ， 并 且 目 动 输入 文字 ， 设 置 个 别 字 人 符 
的 格式 。 

源 代 码 : 实例 文档 28.xlsm/ 工作 表 中 的 图 片 


1. Sub AddTextBox () ' 工作 表 上 ， 插入 图 形 

之 Dim sp As Shape 

人 Dim Ig As Range 

= Dim ft As Excel .Font 

3 Set rg = Range ("B22:D3") 

Set sp = ActiveSheet.Shapes.AddTextBox (Office .MsoTextOrientation. 
msoTextOrientationHorizontal, rg.Left, IrIg.Top, Ig.Width, rg.Helight) 

对 With sp 

8. .TextFrame .Characters .Text = "水平 文 本 框 ，" 

9. -Fill.ForeColor.RGB = RGB (0, 2550, 0) 

10. Set ft = .TextFrame.Characters (3, 2) .Font 

有 几 卫 3 With ft 

2 .Name = "隶书" 

1 -SlzZe = 18 

14. .Italic = True 

上 上 < End With 

16. End With 


1i. End Sub 


代码 分 析 : 第 6 行 代码 的 AddTextBox 是 插入 文本 框 ， 而 不 是 插入 形状 ， 插 号 内 的 枚 举 
音量 表示 水 平方 辣 。 

第 10 行 代码 对 象 变量 ft 表示 从 第 3 个 字符 起 连续 两 个 字 的 字体 。 

上 述 过 程 运行 后 的 结果 如 图 15-9 所 示 。 


15.1.4.2 设置 文本 框 的 边框 样式 

Shape 对 象 的 边框 线 可 以 用 Shape.Line 对 象 来 表达 ， 返 回 一 个 LineFormat 对 象 。 以 下 
示例 把 文本 框 的 边框 线 设 置 为 粗 实 线 、 长 破 折 线 ， 边 框 线 颜色 为 蓝 色 ， 线 宽度 为 5。 

源 代码 : 实例 文档 28.xlsm/ 工作 表 中 的 图 片 


] Sub Test4d41() 

2 Dim sp As Shape, F As Excel .LineFormat 
3 Set sp = ActiveSheet.Shapes (1) 

4 Set F = sp.Line 

Sh With F 

6 -Style = msoLineThinThick 

1 -Dashstyle = msoLineLongDash 

8 .ForeColor.RGB = RGB (0, 0, 2205) 
二 Weight = 5 

10. End With 

ll1. End Sub 


代码 分 析 : 对 象 变量 sp 指 代 工作 表 中 的 第 1 个 形状 ，F 是 一 个 LineFormat 类 型 的 对 象 
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变量 ， 指 代 sp 的 线 型 。 

第 6 行 代码 设置 形状 的 边框 线 为 粗 线 。 第 7 行 代码 设置 线 型 为 长 破 折 线 。 第 8 行 代 码 设 
置 线 为 蓝 色 。 第 9 行 代码 设置 线 宽 为 5。 

运行 上 述 过 程 后 ,效果 如 图 15-10 所 示 。 








图 15-9 ”编辑 形状 中 的 文字 图 15-10 设置 形状 的 边框 样式 


15.1.4.3 ”为 形状 指定 宏 

工作 表 上 的 形状 还 可 以 指定 一 个 宏 ， 当 姐 标 单 击 形状 时 ， 日 动 执行 VBA 中 对 应 的 过 
程 。Excel VBA 中 的 Shape 对 和 象 的 OnAction 属性 用 来 设置 指定 宏 的 名 称 。 

打开 源 文件 “实例 文档 28.xlsm”， 运行 下 面 的 Testl 过 程 ， 为 六 边 形 的 图 片 指 定 
安 “Msg 。 


源 代 码 : 实例 文档 28.xlsm/ 指定 宏 





sub Testl1l1() 
Sheetl .Shapes(2) .OnAction = "Msg" 





] 。 
2 
3. End Sub 
4. Sub Msg() 
MsgBox " 你 单 击 了 : " & Application.Caller 
6. End sub 
运行 Testl 后 ， 用 鼠标 单 击 工 作 表 上 的 六 边 形 ， 弹 出 的 对 话 
Application.Caller 返回 所 单 击 图 片 的 名 称 - : 
如 条 要 撤销 指定 宏 的 功能 ， 只 需要 把 上 述 第 2 行 代码 改写 为 
Sheet1.Shapes(2).OnAction =""。 图 15-11 单 击 图 片 执行 宏 


15.1.5 Shape 对 象 的 常用 方法 


15.1.5.1 复制 粘贴 图 形 

VBA 也 可 以 实现 图 形 的 自动 复制 、 剪 切 和 烙 贴 。 

下 面 的 代码 把 一 个 五 角 星 复制 并 粘贴 到 单元 格 D5 附近 。 
源 代码 : 实例 文档 28.xlsm/Shape 的 方法 


1]. sub Testl() 
之 。 Dim sp As Shape 
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i Set sp = Sheet2.Shapes (1) 
4. sp.Copy 

he Range ("DI") .Activate 

Ds Sheet2.Paste 

i End Sub 


上 述 过 程 运 行 后 的 结 采 如 图 15-12 所 示 。 

此 外 , Shape 对 象 还 有 一 个 Duplicate 方 法 ， 
可 以 快速 元 隆 多 个 图 形 。 

下 面 的 例子 把 工作 表 中 Al 附近 的 一 个 图 
形 殉 隆 4 份 。 殉 隆 时 立即 修改 其 Left 和 Top 属 
性 来 改变 位 置 ， 否 则 会 出 现 多 个 图 形 重 登 。 图 15-12 “自动 复制 粘贴 图 形 

源 代 码 : 实例 文档 28.xlsm/Shape 的 方法 





1 
< 
世 
4 
9 
6 
7 
0 
9 


je 
二 





1 Sub Test2{) 

之 Dim sp As Shape, sp2 As Shape 
3 Dim 1 As Integer 

4. Set sp = Sheet2.Shapes (1) 

sR For 1 = 3 To 12 Step 3 

6. Set sp2 = sp.Duplicate 
With sp2 

8. .Left = Cells(3, i).Left 
=- -Top = Cells(3, i).Top 
10. -Rotation = 1 * 30 

11. End With 

12. Next 1 


13. End Sub 

代码 分 析 : 代码 中 sp2 是 殉 隆 后 的 图 形 ， 在 循环 过 程 中 ， 修 改 克 隆 图 形 的 Leftr、Top 属 
水 平 排列 。 第 10 行 代码 中 Rotation 表示 图 形 旋 转 的 角度 。 

运行 上 述 过 程 ， 工 作 表 中 多 出 了 4 个 图 形 ， 如 图 15-13 所 示 。 


1 
2 | 
4 
5 
6 | 
7 
8 
| 








上 
人 


1$-13 ”批量 克隆 图 形 


15.1.5.2 ”设置 翅 放 次 序 

对 于 工作 表 上 的 图 形 ， 一 般 情 况 下 先 插 入 的 图 形 在 最 下 一 层 ， 后 插入 的 图 形 钱 放 在 上 面 
一 层 ， 多 个 图 层 分 敬 放 置 看 不 出 区 别 ,， 但 是 有 重 闭 部 分 时 ， 就 涉及 羡 放 次 序 的 问题 。 

利用 Shape 对 象 的 Zorer 方法 可 以 改变 放 次 序 ， 使 用 ZOrderPosition 属性 获得 菏 图 形 
的 登 放 次 序 ， 厅 在 最 下 面 一 层 的 岁 形 的 ZOrderPosition 是 1， 上 面 一 层 为 2， 以 此 类 推 。 

打开 源 文件 “实例 文档 29.xlsm”， 工 作 表 Sheetl 上 面 有 3 个 图 形 ， 选 中 一 个 图 形 ， 然 
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后 在 名 称 编辑 框 (地 址 栏 ) 中 输入 一 个 字符 串 并 按 下 【 Enter 】 键 ， 可 以 更 改 图 形 的 名 称 。 
把 第 一 个 图 形 的 名 称 修 改 为 Girl， 其 他 两 个 图 形 为 Melon 和 Drink， 如 图 15-14 所 示 。 
下 面 的 实例 把 Girl 图 形 置 项， 然后 打印 出 登 放 位 置 。 
源 代 码 : 实例 文档 29.xlsm/ 图 形 又 放 次 序 


1 Sub Testl]{() 

2 Dim sp As Shape 

了 Set sp = Sheetl.Shapes ("G1irl1l") 

4. Debug.Print ™ 改变 前 的 次 序 " & sp.20rderPosition 

2 sp.ZOrder zorderCmd:=Office.MsozOrderCmd.msoBringToFront 
6 Debug.Print ™ 改变 后 的 次 序 " & 3p.Z20rderPosit1ion 

1 End Sub 


代码 分 析 : 第 4 行 代码 是 在 图 形 尚 未 置 项 时 的 登 放 位 置 ， 结 有 果 是 1。 

第 5 行 代 公使 用 Zorder 方 法 改变 图 形 的 疾 放 次 序 。 和 参数 Office.MsoZOrderCmd.mso- 
BringToFront 表示 置 于 最 前 面 ， 甚 他 3 种 情形 的 参数 如 下 。 

D msoSendToBack: 置 于 压 层 。 

口 msoBringForward: 上 移 一 层 。 

DD msoSendBackward: Wa 

第 6 行 代 码 是 置顶 后 的 位 置 ， 返回 3。 因 为 总 共 是 3 张 图 片 ， 返 回 3 就 表示 该 图 片 在 最 
于 向。 

上 述 过 程 运行 后 ，Girl 图 形 被 置 于 最 顶层 ， 如 图 15-15 所 示 。 
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图 15-14 ”素材 图 形 图 1$-1$ ”改变 图 形 的 有 登 放 次 序 


15.1.5.3 图形 的 组 合 与 取消 组 合 
工作 表 上 的 多 个 图 形 可 以 组 合 在 一 起 ， 当 拖 动 任意 一 个 图 形 时 ， 其 他 图 形 随 之 移动 ， 因 
为 组 成 了 一 个 整体 。 
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VBA 中 使 用 Group 和 UnGroup 方法 来 组 合 和 取消 组 合 。 学 这 两 个 方法 之 前 必须 先 了 解 
ShapeRange 对 和 象 。 

ShapeRange 对 象 可 以 把 多 个 图 形 联 合 为 一 个 整体 来 管理 。 

打开 源 文件 “实例 文档 29.xlsm ” ， 切 换 到 工作 表 Sheet2 ， 如 图 15-16 所 示 。 





图 15-16 素材 图 片 
如 下 过 程 把 两 个 图 形 联 合 为 一 个 ShapeRange 对 象 。 
源 代 码 : 实例 文档 29.xlsm/ 图 形 的 组 合 


] Sub Testl]() 

2 Dim SR As ShapeRange, 3p As Shape 

3 Set SR = Sheet2.Shapes.Range (Arrayl(l, 2)) 
4. For Each sp In SR 

3 Debug.Print sp.TopLeftCell.Address (False, False) 
6 Next sp 

1 End Sub 


代码 分 析 : 对 象 变 量 SR 用 来 管理 工作 表 中 的 第 1 个 和 第 2 个 图 形 。 第 3 行 代 人 码 把 这 两 
个 图 形 对 和 象 联合 为 一 个 整体 (和 图 形 组 合 不 同 )。 

第 4 ~ 0 行 代码 裔 历 ShapeRange 对 和 象 中 的 每 一 个 Shape， 在 立即 窗口 打印 每 个 图 形 的 
所 处 单元 格 。 

运行 后 ， 立 即 和 窗口 打印 结 来 为 B4、E4。 

接 下 来 学 习 如 何 组 合 图 形 。 

源 代 码 : 实例 文档 29.xlsm/ 图 形 的 组 合 


1 Sub Test2{) 

pd Dim SR As ShapeRange, 3p As Shape 

本。 Set SR = Sheet2 .Shapes. Rande (Array(l, 2)) 
村 SR.Group 

2 End Sub 


代码 分 析 : 第 4 行 代码 把 ShapeRange 进行 组 合 操作 。 
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图 15-18 设置 图 片 的 旋转 角度 图 15-19 ”图片 的 左右 对 称 





15.2 工作 表 使 用 表单 控件 


表单 控件 (FormControl) 是 指 放置 于 工作 表单 元 格 区 域 上 面 的 控件 。 这 类 控件 与 工作 表 
的 兼容 性 非常 好 ， 对 于 制作 一 些 非 专业 的 工作 短 作 品 ， 使 用 表单 控件 是 个 很 好 的 选择 。 

表单 控件 在 对 象 模型 上 属于 工作 表 的 Shape 对 象 。 表 单 控件 与 其 他 形状 、 图 片 一 样 ， 也 
可 以 指定 宏 ， 啊 应 VBA 标准 模块 中 的 过 程 。 

但 是 表单 控件 又 不 同 于 一 般 的 图 形 对 象 ， 这 类 控件 还 可 以 与 单元 格 建立 数据 链接 ， 与 单 
元 格 内 容 进 行 交 互 。 

在 Excel 2013 中 ， 选 择 “ 开 发 工具 ”一 “控件 ”一 “插入 ”命令 ， 会 出 现 表 单 控件 的 控 
件 工具 箱 ， 如 图 15-20 所 示 。 

可 用 的 表单 控件 如 下 。 

口 命令 按钮 (ButtonControl): 用 于 指定 宏 ， 执行 VBA 过 程 。 

口 组 合 框 (DropDown ): 提供 下 拉 列 表 。 

口 复 选 框 (CheckBox ): 勾 选 与 未 勾 选 。 

口 数值 调节 器 (Spinner): 调整 数字 大 小 。 

口 列表 框 (ListBox )， 提 供 列 表 。 

口 单 选 按钮 (OptionButton ): 选中 与 未 选中 。 

口 分 组 框 (GroupBox): 控件 分 组 。 

口 标签 (Label): 显示 文本 。 

口 滚动 条 (ScrollBar): 调整 数字 大 小 。 

从 控件 工具 箱 中 选择 一 个 控件 并 拖 到 工作 表 上 即 可 插入 一 个 表单 控件 ， 如 图 15-21 
所 示 。 
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图 15-20 ”可 用 的 表单 控件 图 15-21 插入 表单 按钮 


任何 一 种 表单 控件 在 宏观 上 都 属于 工作 表 的 Shape 对 象 ， 因 此 ， 所 有 表单 控件 都 可 以 使 
用 “指定 安 ” 功 能 。 

表单 控件 没有 属性 窗口 ， 所 有 的 设 定 均 在 其 “设置 控件 格式 ”对 话 框 中 。 

表单 控件 没有 自己 的 事件 过 程 ， 也 就 是 说 ， 当 用 户 用 鼠标 单 击 表单 控件 时 ， 只 能 改变 表 
单 控件 的 属性 和 数值 ， 达 到 控制 和 修改 单元 格 数值 的 目的 。 





如 识 置 控件 格式 昌 ).… 





15.2.1 使 用 组 合 框 


组 合 框 控件 可 以 把 单元 格 区 域 中 的 数据 作为 数据 源 ， 当 用 户 选 择 组 合 框 中 的 任意 一 条 
时 ,返回 条 目的 索引 (序号 )， 最 上 面 一 条 的 序号 是 1。 

下 面 的 实例 源 文件 位 于 “实例 文档 68.xlsm”。 在 工作 表 上 放置 一 个 组 合 框 控件 ， 移 动 
至 件 到 C2 单元 格 附近 ， 调 整 大 小 。 然 后 在 单元 格 G2:G7 中 输入 城市 列表 ， 右 击 组合 框 控 
件 ， 在 弹出 的 快捷 菜单 中 选择 “设置 控件 格式 ”命令 ， 弹 出 “设置 控件 格式 ”对 话 框 ， 在 
“控制 ”选项 卡 中 ,设置 “数据 源 区域 ” 为 城市 列表 地 址 。 

最 重要 的 是 设置 单元 格 链接 地 址 ， 选择 C11 单元 格 ,“ 下 拉 显 示 项 数 ” 设 为 5。 单 击 
“确定 ”按钮 即 可 关闭 对 话 框 ， 如 图 15-22 所 示 。 


城市 选择 TI 三 二” 


你 选 的 是 ， 


Sheet1 | Sheet2 | Sheat3 | 轩 





图 15-22 表单 控件 链接 到 单元 格 
这 时 可 以 看 到 ， 公 式 编 辑 栏 中 该 控件 出 现 了 一 个 公式 : =$C$11。 
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用 鼠标 选择 组 合 框 中 的 内 容 ，C11 自动 变 为 2。 因 为 该 组 合 
框 控 件 链接 的 是 C11 单元 格 ， 鼠 标 所 选 条 目 是 第 2 条， 所 以 变 
为 2， 如 图 15-23 所 示 。 





注意 ;单元 格 链接 是 一 种 双向 控制 ， 如 果 直 接 往 单元 格 C11 
输入 另 一 个 数字 ， 会 看 到 组 合 框 中 的 条 目 自 动 切换 。 图 15-23 组 合 框 控件 


15.2.2 ”使 用 列表 框 


列表 框 与 组 合 框 非常 类 似 ， 相 当 于 一 个 展开 的 组 合 框 。 在 其 格式 设置 中 ， 也 可 以 设置 数 
据 来 源 和 链接 单元 格 。 

下 面 的 实例 设置 列表 框 的 链接 单元 格 为 C14， 当 单 击 列表 框 中 第 3 个 条 目 时 ， 单 元 格 
C14 为 3， 如 图 15-24 所 示 。 


15.2.3 ”使 用 复 选 框 


表单 控件 中 的 复 选 框 有 勾 选 和 不 勾 选 两 种 状态 ， 勾 选 时 其 链接 单元 格 的 值 为 TRUE， 不 
勾 选 时 为 False， 如 图 15-25 所 示 。 
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图 15-24 列表 框 控件 图 15-25 复 选 框 控件 


15.2.4 ”使 用 单 选 按 钮 


单 选 按钮 是 互 斥 型 的 布尔 类 切换 控件 ， 工 作 表 上 插 人 多 个 单 选 按钮 ， 只 能 有 一 个 处 于 选 

下 面 的 实例 在 工作 表 中 插入 3 个 单 选 按钮 ， 设 置 每 一 个 单 选 按钮 的 单元 格 链接 都 为 D2。 
如 图 15-26 所 示 。 

在 实际 使 用 时 ， 当 选中 “哈密 瓜 ” 单 选 按钮 ，D2 内 容 为 2， 选 中 “苹果 ” 单 选 按 钮 ， 
D2 变 为 1。 
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如 采 需 要 在 工作 表 上 放置 多 个 单 选 按钮 组 ， 则 需要 事先 插入 分 组 框 ， 然 后 在 每 个 分 组 框 
上 面 放 单 选 按钮 。 
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图 15-26 单 选 按钮 
从 功能 上 看 ， 表 单 控 件 相 当 于 换 一 个 途径 去 变更 单元 格 内 容 ， 因 此 可 以 利用 这 个 技术 ， 
结合 公式 、 图 数 和 图 表 方 面 的 知识 ， 制 作 一 些 作 品 。 
在 下 面 这 个 实例 中 ， 当 选中 不 同 的 单 选 按 钮 时 ， 图 表 在 动态 变化 ， 如 图 15-27 所 示 。 详 
细 制 作 方法 参考 源 文件 : 实例 文档 69.xlsm。 
er 
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15-27 ”表单 控件 控制 函数 图 像 
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| 


15.2.5 ”数值 调 万 器 


数值 调节 需 可 以 增 减 数 字 ， 并 与 一 个 单元 格 建立 链接 。 
在 下 面 的 实例 中 ， 数 值 调节 器 与 单元 格 D2 建立 链接 。 当 单 击 该 控件 的 增加 和 减少 箭头 
时 ， 单 元 格 的 内 容 随 之 变化 ， 如 图 15-28 所 示 。 





图 1$-28 ”数值 调节 器 


15.2.6 ” 浴 动 条 


深 动 条 与 数值 调节 兹 类 似 ， 也 是 用 于 调节 数值 的 控件 。 
下 面 的 实例 ， 在 工作 表 中 插入 一 个 深 动 条 控件 ,在 “设置 控件 格式 ”对 话 框 中 设置 取 值 
范围 和 步 长 ， 最 后 与 单元 格 D2 建立 链接 ， 如 图 15-29 所 示 。 





图 15-29 ”滚动 条 控件 
用 鼠标 改变 滚动 条 数值 时 ， 单 元 格 的 值 也 随 之 改变 。 
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综 上 所 述 ， 这 类 表单 控件 的 特点 是 控件 值 与 单元 格 有 和 链接 关系 ， 可 以 与 单元 格 内 容 联 
动 ， 不 需要 书写 VBA 代码 。 


15.2.7 ”用 代码 自动 插入 表单 控件 


由 于 Excel 单元 格 本 和 号 不 能 设计 复 选 框 ， 因 此 可 以 癌 工 作 表 中 放 入 复 选 框 控 件 ， 间 接地 
RD 很 多 荔 合 下 ， 在 一 个 工作 表 上 需要 放置 很 多 同类 型 的 表单 控件 ， 如 果 一 
个 一 个 手工 放置 ， 还 需要 对 齐 ， 费 时 费力 。 

图 15-30 是 作 和 的 选读 工具 ， 在 本 书 配套 资源 下 载 : Office&VBA 诬 
程 选 讨 工 具 .xlsm。 
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图 15-30 ”利用 表单 控件 制作 选课 工具 

下 面 介 绍 用 VBA 目 动 插入 并 目 动 对 齐 表单 控件 的 方法 。 

有 如 下 两 种 实现 方法 : 项 属性 设 
置 完毕 ， 然 后 使 用 Duplicate 方法 克隆 多 个 ， 最 后 对 齐 到 单元 格 即 可 ， i 采用 了 复制 图 
形 的 思想 ; 男 一 个 是 纯粹 用 代码， 循环 插入 同类 
控件 ， 插 入 每 个 控件 的 同时 ， 自 动 设 定 其 属性 。 本 

下 面 的 实例 ， 首 先 在 工作 表 上 手工 插入 一 个 
命令 按钮 ， 设 置 好 控件 的 大 小 和 位 置 ， 以 及 字体 
属性 ， 并 且 在 名 称 框 中 输入 Buttonl 作为 该 控件 的 
新 名 称 ， 如 图 15-31 所 示 。 

接 下 来 用 代码 自动 元 隆 多 个 命令 按钮 控件 。 图 15-31 手工 插入 按钮 控件 

源 代码 : 实例 文档 70.xlsm/ 复制 控件 


PS 

















1 
2 
号 
4 
5 
T 
8 


1 Sub Testl]{() 

2 Dim sp As Excel.sSshape 

i Dim N As Excel .Shape 

4 Dim 1 As Integer 

2 Set sp = Sheetl.sSshapes("Buttonl") 
6 For 1 = 3 To li Step 3 
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1. Set N = sp.Duplicate 

Ws With N 

对。 .Left = Rangel("c™" & 1) .Left 
10. -Top = Rangel("C™" & 1).Top 
1 .OnAction = "Macro™ & 1 

12. End With 

13. Next 1 


14. End Sub 


代码 分 析 : 由 于 原始 按钮 尺寸 比较 大 ， 因 此 本 实 
例 计划 在 C5、C8 这 些 单 元 格 放置 殉 隆 出 来 的 控件 ， 
因此 ， 第 6 行 代码 中 i 设置 为 5 ~ 17。 

对 和 象 变量 sp 是 原始 控件 ，N 是 克隆 出 来 的 控件 。 
每 克隆 出 来 一 个 ， 就 立即 调整 其 位 置 和 “指定 宏 ” 的 








运行 上 述 过 程 后 ， 工 作 表 的 效 采 如 图 15-32 
所 示 。 

此 时 ， 如 采 单 击 最 下 面 一 个 命令 按钮 ， 将 会 调用 
标准 模块 中 的 Macro17 宏 过 程 。 

下 面 讲解 用 VBA 从 头 插入 表单 控件 。 

Worksheet.Shapes.AddFormControl 方法 可 以 回 工 图 15-32 ”批量 元 隆 表 单 控件 
作 表 插入 各 种 表单 控件 。 其 完整 语法 是 : 

Worksheet .Shapes.AddFormControl (Type, Left, Top, Width, Height) 

各 参数 的 含义 如 下 。 

口 Type: 规定 控件 类 型 ， 可 以 取 Excel.XIFormControl 下 面 的 枚 举 值 。 

D 其 他 4 个 参数 规定 新 控件 的 位 置 和 大 小 。 单 位 均 为 磅 。 

下 面 的 实例 向 B 列 插 入 5 个 复 选 框 控件 ， 每 个 复 选 框 控 件 链接 到 C 列 的 单元 格 。 

源 代码 : 实例 文档 71.xlsm/ 插入 表单 控件 





1 Sub Testl{() 

ea Dim ck As Excel.Sshape 

Dim Ig As Excel .Range 

4. Dim 1 As Integer 

Ns For 1 = 2 To 10 step 2 

6. Set rg = Range("B™" & 1) 

i Set ck = Sheetl].Shapes.AddFormControl (Type:=Excel .XlFormControl. 


xlCheckBox, Left:=rg.Left, Top:=rg.Top, Width:=rg.Width, Height:= 


rg.He1ight) 
8. ck.OLEFormat.Object.LinkedCell = rg.offset (0, 1) .Address 
9. ck.TextFrame.Characters. Text = "上 复 选 框 " & Ig.Address (False, False) 
10. Next 1 


ll1. End Sub 
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代码 分 析 : 第 7 行 是 核心 代码 ，xlCheckBox 是 内 置 枚 
举 常量 ， 表 示 插 入 的 是 复 选 框 控件 ， 后 面 4 个 参数 表示 该 
控件 的 位 置 和 大 小 恰好 与 单元 格 重合 。 

第 8 行 代码 复 选 框 的 链接 单元 格 是 其 右 侧 对 应 的 单 
第 9 行 代码 为 复 选 框 指 定 标题 文字 。 
上 述 过 程 运 行 后 ， 工 作 表 中 的 效果 如 图 15-33 所 示 。 


15.2.8 ”批量 删除 表单 控件 
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c 


FALSE 


TRULE 


FALSE 


TRUE 


1 
2 
3 
4 
5 
6 
7 
6 
9 


FALSE 


图 15-33 ”批量 插入 复 选 框 控 件 


进行 批量 处 理 ， 可 以 根据 Shape 对 象 Type 属性 的 不 同 ， 进 行 选 择 性 处 理 。 


Shape 对 和 象 的 类 型 枚 举 第 量 如 表 15-1 所 示 。 


表 15-1 Shape 对 象 的 类 型 枚 举 常量 


名 称 
msoAutoShape | 
msoCallout 
msoCanvas 
msoChart 
msoComment 
msoContentApp 
msoD1iagram 
msoEmbeddedOLEObyect 
msoFormControl 
msoFreetorm 
msoGraphic 
msoGroup 6 | 
msolexGraphic 
msoInkComment 
msoLine 9 
msoLinkedGraphic 
msoLinkedOLEObyect 0 
msoLinkedPicture | 
msoMedia 1 
msoOLEControlObject 
msoPicture 
msoPlaceholder 1 
msoscriptAnchor 


批注 
内 容 Office 外 接 程 序 
图 表 


说 入 的 OLE 对 象 


窗 体 控件 

图 形 
任意 多 边 形 
组 合 

SmartArt 图 形 
墨迹 批注 
链接 的 图 形 
链接 OLE 对 象 


链接 图 片 


媒体 

OLE 控件 对 象 
图 片 

占 位 符 

脚本 定位 标记 
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名 称 说 明 
msoShapeTypeMixed 混合 形状 类 型 
msoTable 9 表 
mso lextBox 文本 框 
msoTextEtfect 5 文字 效果 
msoWebVideo Web 视频 


下 面 的 实例 删除 工作 表 上 所 有 的 表单 控件 。 
源 代码 : 实例 文档 71.xlsm/ 批量 删除 表单 控件 


Sub Testl{() 
Dim sp As Shape 
For Each sp In Sheetl]l.shapes 


sp.Delete 
End If 


1 
2 
3 
4. If sp.Type = Office.MsoShapeType. msoFormControl Then 
可 
6 
1 Next sp 

8 


End Sub 


代码 分 析 : 上 面 的 过 程 显示 只 要 是 工作 表 上 的 表单 控件 ， 就 日 动 删 除 ， 而 不 会 删除 其 他 
类 型 的 Shape 对 象 。 


15.3 工作 表 使 用 ActiveX 控件 


工作 表 上 除了 前 面 讲 过 的 表单 控件 外 ， 还 可 以 像 VBA 窗 体 一 样 使 用 ActiveX 控件 来 扩 
展 工作 表 的 编程 范围 。ActiveX 控件 可 分 为 MSForms 控件 和 第 三 方 控件 。MSForms 控件 包 
含 命令 按钮 、 组 合 框 、 列 表 框 、 复 选 框 、 文 本 框 、 滚 动 条 、 数 值 调节 按钮 、 选 项 按钮 、 标 
答 、 图 像 、 切 换 按 钮 。 第 三 方 控件 一 般 是 由 其 他 开发 语言 制作 的 自 定义 控件 。 

在 工作 表 中 插入 ActiveX 控 件 的 方法 是 : 选择 “开发 工具 ”一 “控件 ”一 “ 插 
和 ”一 “ActiveX 控件 ”命令 ， 选 择 一 个 控件 ， 拖 动 到 工作 表 中 即 可 使 用 ， 如 图 15-34 所 示 。 


开始 ” 括 X 页 面向 ” 公 光 ”同好 
导 乌 录 出 志 二 [二 | 
ey 回合 用 杰 xj3| 用 

全 性 


加 越 硕 COM 加 武 顶 


加 戟 项 





图 15-34 使 用 ActiveX 控件 
工作 表 中 的 ActiveX 控件 的 编程 技巧 ， 与 VBA 窗 体 和 控件 编程 几乎 是 一 样 的 ， 控 件 的 
属性 和 事件 也 都 可 以 参考 窗 体 与 控件 编程 。 
结合 之 前 学 过 的 Shape 对 象 、 表 单 控 件 ， 下 面 列举 工作 表 ActiveX 控件 的 特点 。 
(1) ActiveX 控件 是 一 种 OLEObject 对 象 ， 其 母体 对 象 是 Worksheet。 同 时 ， 这 种 控件 
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也 是 工作 表 中 Shape 对 象 的 成 员 ， 也 就 是 说 ， 一 个 ActiveX 控件 也 是 一 个 图 形 。 


(2) 工作 表 ActiveX 控件 编程 ， 可 以 理解 为 把 工作 表 当 作 控 件 的 容器 。 
“指定 宏 ” 的 功能 。 这 类 控件 由 于 


(3) 与 表单 控件 不 一 样 ， 工 作 表 ActiveX 控件 没有 “指定 守 
是 工作 表 的 一 部 分 ， 所 以 工作 表 ActiveX 控件 的 所 有 事件 代码 都 写 在 所 在 工作 表 的 事件 模 


块 中 。 
(4) 工作 表 ActiveX 控件 没有 链接 单元 格 的 功能 和 选项 ， 但 是 具有 -一般 图 形 的 各 种 选 


项 ， 因 为 它 也 属于 Shape 对 和 象 。 





15.3.1 控件 的 属性 设 定 
工作 表 分 为 设计 模式 与 非 设 计 模 式 。ActiveX 控件 插入 到 工作 表 以 后 ， 必 须 切 换 到 设计 
模式 ， 才 能 进行 属性 设 定 。 
工作 表 上 插入 一 个 文本 相 
此 时 控件 可 以 改变 位 置 和 大 小 ， 并 且 可 以 单 击 “属性 ”按钮 ， 打 开 属 性 窗口 ， 如 图 15-35 所 示 。 


控件 ， 然 后 选择 “开发 工具 ”一 “控件 ”一 “设计 模式 ”命令 ， 





了 = 必 荡 2 - 
开始 。 握 思 页面 布 局 汉 蕊 数 贡 审阅 视图 [有 具 | 可 坷 项 格式 
了 区 引导 大 [二 | 二 上 四 履 性 4 和 直 于 胃 也 多 夺 性 鞭 导 入 
= | 圈 使 用 相 sj 引 是 这 攻 | bv 一 后 性 论 和 EE 和 扩 压 包 = 
isual Basic 村 IE 总 ] 所 -和 Ee 
- 固 执行 对 话 框 加 | 局 新 汝 二 


h 去 安全 性 
加 走 项 控 性 EAL 
在 =ETTERET IT FTms TextBox. LT *") 


F 控件 的 去 型 标 调 符 | 1 
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TInteeralleiehlTrue 
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图 15-35 ”ActiveX 控件 的 设计 模式 
文本 框 控件 的 默认 名 称 是 TextBoxl1， 可 以 从 公式 编辑 栏 中 看 到 该 控件 类 型 是 Forms. 


TextBox.].。 


15.3.2 ”控件 的 事件 过 程 
ActiveX 控件 不 同 于 表单 控件 。 每 个 ActiveX 控件 都 支持 很 多 事件 ， 例 如 ， 命 令 按 钮 的 


默认 事件 是 Click 事件 ， 文 本 框 有 Change 事件 和 DblClick 事件 等 。 
如 条 要 为 控件 书写 事件 过 程 ， 在 设计 模式 下 双击 控件 即 可 目 动 进入 其 所 在 的 工作 表 事 件 


3 


模块 中 。 也 可 以 选中 控件 ， 右 击 ， 在 弹出 的 快捷 沫 单 中 选择 “ 碍 看 代码 ”命令 。 
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下 面 的 实例 把 单元 格 区 域 中 的 内 容 连 接 为 一 名 文本。 

自 和 完 在 工作 表 上 插入 一 个 文本 框 ， 在 属性 窗口 中 设置 文本 框 的 MultiLine 属性 为 True， 
表示 文 持 多 行 。 然 后 在 工作 表 上 插入 一 个 命令 按钮 ， 在 属性 窗口 设置 Caption 为 “转换 所 选 
内 容 ”。 最 后 同 工 作 表 的 A 列 中 输入 一 些 内 容 作 为 测试 。 

分 别 双击 文本 框 和 命令 按钮 ， 编 号 事件 过 程 。 

源 文件 : 实例 文档 71.xlsm/Sheet1 


Private Sub CommandButtonl CLICK 
Dim rg As Range 
For Each rg In Selection 
Me .TextBoxl .Text = Me.TextBoxl .Text & Ig.Value & vbhNewLine 


End Sub 
Private Sub TextBoxl DblClickl(ByVal Cancel As MSForms.ReturnBoolean) 


1 

3 

= 

2. Next rg 
6 

1 

8 Me .TextBoxl .Value = "" 
号 


. End Sub 

代码 分 析 : 第 3 ~ 5 行 代码 把 所 选区 域 的 每 个 单元 格 内 容 连 接 在 一 起 ， 赋 给 文本 框 中 。 

第 7 行 代码 是 文本 框 的 双击 事件 ， 当 双击 文本 框 时 ， 清 空 文本 框 中 的 内 容 。 

在 工作 表 事 件 模块 中 引用 ActiveX 控件 时 ， 用 关键 字 Me 加 上 小 数 点 即 可 ， 例 如 Me. 
CommandButtonl 就 表示 工作 表 上 名 称 为 CommandButtonl 
的 命令 按钮 。 

接 下 来 ， 退 出 设计 模式 ， 选 中 A 列 中 的 数据 ， 然 
后 单 击 命令 按钮 “转换 所 选 内 容 ”。 

工作 表 中 的 效 末 如 图 15-36 所 示 。 

双击 文本 框 控件 ， 内 容 清空 。 从 这 个 实例 可 以 学 习 书 | 
到 命令 按钮 的 Click 事件 和 文本 框 的 DblClick 事件 。 图 15-36 ActiveX 控件 的 事件 





15.3.3 ”自动 插入 ActiveX 控件 


如 有 末 工 作 表 上 需要 大 量 ActiveX 控件 ， 则 可 以 使 用 VBA 来 代 蔡 手工 操作 。 

通过 Worksheets.OLEObjects.Add 方法 ， 可 以 为 工作 表 添 加 一 个 OLEObject 对 象 ， 也 就 
是 ActiveX 控件 ， 控 件 的 类 型 由 参数 ClassType 规定 。 

内 置 的 MSForms 控件 的 类 型 名 称 如 表 15-2 所 示 。 


表 15-2 内置 MSForms 控件 类 型 名 称 
控 件 名 称 控件 名 称 ClassType 
命令 按钮 Forms.CommandButton.1 Forms.ListBox.1 
单 选 按 钮 Forms.OptionButton.1 Forms.ToggleButton.1 


文本 框 Forms.TextBox.1 Forms.SpinButton.1 











标签 Forms.Label.1 滚动 ; Forms.ScrollBar.1 
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下 面 的 实例 向 工作 表 中 自动 插入 一 个 命令 按钮 控件 ， 并 且 为 该 控件 指定 新 名 称 和 标题 





源 文 件 : 实例 文档 72.xlsm/ 自动 插入 控件 


] Sub Testl1(}) 

六 Dim C As Excel .OLDLEOb]ect 

3. Sheet2.Activate 

4. Set C = Sheet2.0LEObJjJects.Add (ClassType:="Forms.CommandButton.l1", Link:= 


False, DisplayAslcon:=False, Left:=Range("B2") .Left, Top:=Range ("B22"). 
Top, Width:=Range ("B2") .Width, Height:=Range{("B2") .Height) 

a C-Name = "BT 1" 

6. C.Object.Caption = "我 的 新 按钮 " 

1. End Sub 


代码 分 析 : 第 5 行 代码 更 改 控 件 的 名 称 ， 第 6 行 代码 更 改 控件 的 标题 文字 。 
运行 上 述 过 程 后 ， 工 作 表 中 的 效果 如 图 15-37 所 示 。 


=ENMEED( Forms. ConmnandButton. 1”,“") 


C D E F 














图 15-37 自动 插入 ActiveX 按钮 


15.3.4 工作 表 中 播放 动画 


工作 表 中 除了 可 以 插 和 人 内 置 ActiveX 控件 ， 还 可 1 
以 插入 第 三 方 控 件 ， 例 如 ShockwaveFlash 控件 可 以 photoDrawEx Class 


Player Class 


在 任何 Office 文档 中 播放 swf 格式 的 动画 视频 文件 。 RDPViewer Class 
手工 往 工作 表 插入 第 三 方 控件 的 方法 是 ， 单 击 。 | woormwcr ccna css 

控件 工具 箱 最 右 下 角 的 “其 他 控件 ”按钮 ， 

“其 他 控件 ”对 话 框 中 选择 一 个 控件 并 放 入 工人 

设置 相关 属性 后 即 可 使 用 ， 如 图 15-38 所 示 。 
下 面 用 代码 目 动 插入 ShockWave 控件 。 


源 文 件 : 实例 文档 72.xlsm/ 动画 播放 控件 


ScriptControl| Object 


在 站 出 的 | EB 






a 表 中 SSOForPTLoginz Class 
» SSOLUICtr| Class 








图 15-38 插入 第 三 方 控 件 


1] Sub Testl]{() 

pa Dim C As Excel .OLEObJect 

3 Sheetl.Activate 

4. Set C = Sheetl .OLEObjects.Add (ClassType:="ShockwaveFflash.SshockwaveFlash.24", 


Link:=False, DisplayAslIcon:=False, Left:=Range("B2") .Left, Top:=Range 
("B2") .Top, Width:=300, Height:=300) 

a C.Name = "SW 1™ 

6G. C.Object.EmbedMovie = False 

1 C.Object.Movie = ThisWorkbook.Path & ™\ 中 国 象棋 人 机 大 战 。 SWIf™ 

8 End Sub 
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代码 分 析 : 第 5 行 代码 设置 控件 的 名 称 ; 第 6 行 代码 设置 该 控件 的 EmbedMovie 属性 为 
False， 意 思 是 视频 文件 不 能 人 文档 中 。 

第 7 行 代 码 设 置 该 控件 链接 的 外 部 swf 文件 。 

运行 上 述 过 程 ， 工 作 表 中 出 现 一 个 人 机 对 战 的 象棋 界面 ， 如 图 15-39 所 示 。 








15-39 ”自动 插入 第 三 方 控 件 


15.3.5 ActiveX 控件 的 删除 


ActiveX 控件 既是 一 个 OLEObject， 同 时 也 是 一 个 Shape 对 象 ， 因 此 用 代码 引用 或 删除 
控件 的 方法 有 两 种 。 
现在 假定 工作 表 Sheetl 中 手工 插入 了 一 个 复 选 框 控 件 ， 通 过 地 址 栏 重 命 名 该 控件 为 C_K。 
用 以 下 两 个 过 程 均 可 把 该 控件 删除 。 
源 代码 : 实例 文档 74.xlsm/ 自动 删除 控件 
1。 Sub Testl() 
2 Dim OO As Excel .OLEObject 
3 Set 0 = Sheet1.OLEObJ]Jects( C K") 
4 O.Delete 
5. End Sub 
6. Sub Test2() 
1 Dim S38 As Excel .Shape 
8 Set 3 = Sheetl.Shapes("C K") 
人 3.Delete 
10. End Sub 


可 以 看 出 ，Shape 是 一 个 先 统 的 对 象 ， 而 OLEObject 特 指 ActiveX 控件 。 
关于 ActiveX 控件 的 属性 、 方 法 和 事件 ， 更 详细 的 内 容 请 参考 本 书 关于 窗 体 与 控件 设计 


第 15 章 其 他 常用 Excel VBA 对 象 “的 1 





Excel 单元 格 可 以 设置 超 链接 ， 用 于 跳 转 到 网 页 、 电 脑 中 的 文件 或 路 径 、 工 作 锭 中 的 单 
元 格 区 域 等 。 在 工作 表 中 按 下 快捷 键 【 Ctrl+K )， 弹 出 “编辑 超 链接 ”对 话 框 ， 如 图 15-40 
所 示 。 


. 7 
要 显示 的 文字 [Dj: sheetzm | | 





图 15-40“ 编 辑 超 链接 ”对 话 框 
下 面 讲 解 使 用 VBA 操作 超 链接 。 


15.4.1 创建 超 链接 


可 以 使 用 Worksheet.Hyperlinks.Add 方法 增加 超 链接 。 该 方法 包括 如 下 参数 。 
口 Anchor: 超 链接 的 创建 场所 可 以 是 Range， 也 可 以 是 Shape 对 象 。 

口 Address: 超 链接 的 地 址 。 

口 SubAddress: 超 链接 的 子 地 址 。 

D ScreenTip: 鼠标 悬 停 在 单元 格 超 链接 附近 时 的 提示 语 。 

口 TextToDisplay: 显示 在 单元 格 中 的 文字 。 


注意 : 一 个 单元 格 最 多 只 能 有 一 个 超 链 接 。 


15.4.1.1 ”起 链接 到 网 页 
下 面 的 实例 在 单元 格 C3 创建 一 个 超 链接 。 
源 代 码 : 实例 文档 30.xlsm/ 超 链接 


1. Sub Testl() 

pa Dim h As Excel .Hyperlink 

Ss Set h = Sheetl.Hyperlinks.Add (Anchor:=Sheetl] .Range("B2"),Address:= 
"http://vbha.mahoupao.net/forum.php") 

4. End Sub 


上 述 过 程 运行 后 ， 工 作 表 中 的 效果 如 图 15-41 所 示 。 
如 果 要 更 改 显 示 的 文字 ， 以 及 将 鼠标 移动 到 单元 格 附近 的 提示 语 ， 则 可 以 修改 代码 为 : 
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1]. sub Testl() 


之 。 Dim h As Excel .Hyperlink 

3 Set h = Sheetl.Hyperlinks.Add (Anchor:=Sheetl.Range("B2"), Address:= 
"http://vba.mahoupao.net/forum.php") 

4. h.ScreenTip = " 单 击 本 单元 格 可 以 超 链 接 到 我 的 论坛 。" 

es h.TextToDisplay = "vbha.mahoupao.net™ 


6. End Sub 


再 次 运行 的 效果 如 图 15-42 所 示 。 


单 击 本 单元 格 可 以 超 链接 到 我 的 论坛 。| 








图 15-41 单元 格 中 自动 插入 超 链 接 图 15-42 设置 超 链接 的 显示 文字 和 提示 语 


15.4.1.2” 超 链 接 到 本 地 文件 
超 链接 到 本 地 文件 的 方法 和 超 链接 到 网 页 是 一 样 的 ， 只 需要 蔡 换 Address 参数 即 可 。 
源 代码 : 实例 文档 30.xlsm/ 超 链接 


1。 Sub Test2() 

Dim h As Excel .Hyperlink 
Set h = Sheetl .Hyperlinks.Add (Anchor:=Sheetl] .Range ("B4"), Address:="C:\ 
windows\system32\calc.exe") 


4. End sub 
运行 上 述 过 程 ， 然 后 单 击 单元 格 B4， 会 自动 启动 电脑 中 的 计算 器 。 


15.4.1.3 超 链接 到 工作 表 中 的 单元 格 

如 果 超 链接 到 工作 表 中 的 菜单 元 格 ， 需 要 使 用 SubAddress 参数 。 

以 下 代码 在 Sheetl 的 单元 格 B6 创建 一 个 超 链 接 ， 用 于 超 链接 到 Sheet3 的 D7 单元 格 。 
源 代 码 : 实例 文档 30.xlsm/ 超 链接 


1. Sub Test4() 

Pa Dim h As Excel .Hyperlink 

Ss Set h = Sheetl.Hyperlinks.Add (Anchor:=Sheetl.Range("B6"), Address:="", 
SubAddress:="Sheet31D/)") 

4. End Sub 


运行 上 述 过 程 ， 用 鼠标 单 击 工 作 表 Sheetl 的 B6 单元 格 ， 会 自动 跳 转 到 Sheet3 的 D7 单元 格 。 
15.4.2 ”遍历 工作 表 中 的 超 链接 


下 面 的 代码 用 于 了 解 工作 表 中 所 有 的 超 链接 信息 。 
源 代 码 : 实例 文档 30.xlsm/ 超 链接 


1。 Sub Test3() 
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Dim h As Excel .Hyperlink 


For Each h In Sheetl .Hyperlinks 

4. Debug.Print h.Range.Address(False, False), h.Address 
hs Next h 

6 End Sub 


代码 分 析 : 第 4 行 代 码 打印 每 个 超 链 接 所 在 的 单元 格 地 址 ， 以 及 起 链接 到 的 地 址 (这 两 
个 不 是 一 个 概念 ，h.Range.Address 对 应 于 Anchor 参数 )。 
上 述 过 程 运行 结果 如 图 15-43 所 示 。 


http://vba. mahoupao. net/forum. php 





C:\windows\system32\calc. exe 


图 15-43 ”遍历 工作 表 中 的 所 有 超 链 接 


15.4.3 ”打开 超 链接 


Hyperlink 对 象 的 Follow 方法 用 于 激活 超 链 接 。 
源 代码 : 实例 文档 30.xlsm/ 超 链 接 


1] Sub Testo5 (1) 

a Dim h As Excel .Hyperlink 

3 Set h = sheetl.Hyperlinks!(l1) 
4. h.Follow NewWindow:=False 

5 End Sub 


运行 以 上 代码 会 目 动 激活 第 1 个 超 链 接 ， 在 网 页 浏览 需 中 目 动 打开 超 链接 到 的 网 址 。 

除了 使 用 Hyperlink 对 象 外 ， 工 作 短 对 象 有 一 个 FollowHyperlink 方法 ,使 用 该 方法 不 
需要 创建 超 链接 也 可 以 快速 跳 转 到 其 他 链接 。 

源 代码 : 实例 文档 30.xlsm/ 超 链接 








1]. Sub TestyI() 

二。 ActiveWorkbook.FollowHyperlink "http://vbha.mahoupao.net/" 
了 ActiveWorkbook.FollowHyperlink "C:\temp" 

4. ActiveWorkbook.FollowHyperlink "C:\temp\l1 .txt" 

本 End Sub 


上 述 代码 中 第 2 行 打开 网 页 ， 第 3 行 打 开 一 个 文件 夹 ， 第 4 行 打开 文件 。 
15.4.4 删除 超 链接 


如 采 要 删除 一 个 单元 格 区 域 中 所 有 单元 格 的 超 链接 ， 可 以 使 用 Range.Hyperlinks.Delete 
“者 Range.ClearHyperlinks 方法 。 
如 果 要 删除 工作 表 中 所 有 超 链 接 ， 使 用 Worksheet.Hyperlinks.Delete。 





所 
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源 代码 : 实例 文档 30.xlsm/ 起 链接 


1] Sub Teste () 

2 Range ("B2:B4") .Hyperlinks.Delete 
人 Range ("B2:B4") .ClearHyperlinks 

二 Sheetl.Hyperlinks.Delete 

D3. End Sub 


代码 分 析 : 第 2 行 、 第 3 行 代码 都 是 删除 B2:B4 区 域内 的 所 有 超 链接 。 
第 4 行 代码 删除 工作 表 中 所 有 超 链 接 。 


注意 : 删除 超 链 接 后 ， 单 元 格 里 的 内 容 不 删除 。 


15.5 ”Excel 内 置 对 话 框 


Excel 拥有 大 量 的 内 置 对话 框 ， 例 如 字体 对 话 框 、 打 开 对 话 框 ,其 至 还 有 VBA 的 插入 
模块 对 话 框 。 

在 VBA 编程 过 程 中 ， 有 了 时候 可 以 巧妙 地 用 VBA 自动 调 出 内 置 对 话 框 ,来 简化 编程 
任务 。 

VBA 的 对 话 框 对 象 是 Dialog， 所 有 内 置 对 话 框 都 是 位 于 Application 对 象 之 下 的 
Dialogs 集合 对 象 。 

每 一 个 对 话 框 采用 枚 举 值 来 作为 唯一 标识 ， 例 如 xlDialogProperties 表示 工作 注 的 文档 
属性 对 话 框 ， 这 个 枚 举 值 的 整数 值 是 474。 因 此 Application.Dialogs(xlDialogProperties) 和 
Application.Dialogs(474) 都 指 代 文档 属性 对 话 框 。 

内 置 对 话 框 的 属性 和 方法 不 太 多 ， 最 有 用 的 方法 是 Show 方法 ,也 就 是 显示 对 话 框 。 








15.5.1 调 出 内 置 对 话 框 


下 面 的 例子 演示 了 日 动 调 出 属性 对 话 框 。 
源 代码 : 实例 文档 33.xlsm/ 内 置 对话 杠 


1 Sub TestO0() 

Pe Dim d As Dialog 

Se Set d = Application.Dialogs (xlDialogProperties) 
4. d.Show 

3. End Sub 


运行 上 述 过 程 ， 自 动弹 出 文档 属性 对 话 框 。 如 图 15-44 
所 示 。 

如 采 要 调 出 Excel 其 他 对 话 框 ， 请 在 本 书 配套 资源 中 下 
载 : Excel 内 置 对 话 框 参数 列表 .xlsm， 该 文件 记录 了 Excel | wwwseexasasaw 
所 有 内 置 对 话 框 的 枚 举 名 称 、 值 、 说 明和 参数 列表 ， 如 
图 15-45 也 未 。 图 15-44 ”文档 属性 对 话 杠 
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XLDialeagPreoDpeEyties 


"i 加 

434 “ 职 消 组 言 数 据 透 视 表 字段 ”对 话 杠 

421| “数据 租 视 表 显 示 页 ”对 话 框 name, page_field 

568 “数据 透视 表 求 解 ; 尺 序 ” 对 话 杠 

567| “数据 透视 表 选 项 ”对 话 杠 

312 “ 闭 据 租 视 表 问 寻 ” 对 话 框 tyheE, source, destination, name, rov grand, cul e 
“和 位置” 对 话 框 placenent twpe 
“打印 ”对 话 框 ranEeE_ num, fron, to, copies, draft, preview, pri 





“打印 机 设置 ”对 话 柜 printer text 
“打印 预 蜗 ”对 话 框 
“升级 对 话 入 rowcol 

, ! “属性 ”对 话 框 
有 xlDNialogFropertvyhields 54 大 属性 字段 ”对 话 框 
172 xlhialosFrotectlocument 28 “ 慰 护 训 档 ”对 话 框 contents, windovs, Dassword, cbiects, scenariovs 
179xlhialosFrotcctoharine 说 | “保护 共享 ”对 话 框 
174 |xlDialogFublishisWebPage 53 “发 布 为 网 页 ”对 话 杠 
175|x1DialogFushhbuttonFroperti 5| “ 按 社 屠 性 ”对 话 框 default logical, cancel_logical, dismiss_logical, 
二 了 日 xlDialseshcplaccF ont “从 损 字体 ” 对 语 框 font nam, niame text, size nam bald, italic, undo 
177 xlDialoeRoeutinaslip 36|“ 情 运 对 1 recipients, subiect, message, TouUte mmm, return 
179|xllhialogRowHeieht em height rm, reference, standard heizght, twpe num 
179|xlDialseRun # 运 行 对 话 框 reference, step 
180 xllialoesawvehs “五 在 为 ”对 话 框 document text, TYDE_ nm, Prot Pwd, backup, write 


图 15-45 ”Excel 内 置 对 话 框 的 枚 举 名 称 、 值 、 说 明和 参数 列表 








15.5.2 ”为 对 话 框 设 置 默认 参数 


对 话 框 的 Show 方法 最 多 可 以 接受 30 个 参数 ,设置 参数 时 ， 要 参考 “Excel 内 置 对 
话 框 参数 列表 ”。 还 以 属性 对 话 框 为 例 ， 从 “参数 列表 ”可 
以 看 到 该 对 话 框 的 参数 依次 为 : title 、subject、author、key- 
words、comments。 

这 些 参 数 对 应 于 该 对 话 框 中 的 标题 、 主 题 、 作 者 、 关 
键 词 、 和 备注 ， 因 此 可 以 在 显示 对 话 框 之 前 预 设 一 些 属性 。 

源 代 码 : 实例 文档 33.xlsm/ 内 置 对 话 框 








1. Sub Testl() 备注 CY 
2 Application.Dialogs (xlDialogProperties). 

Show Ardl:="VBRA 太 强 大 "，Arg2:=" 我 的 主题 "， 0 

Arg3:=" 白眉 大 侠 "，Arg4:=" 我 的 关键 词 "， 

Arg5:=" 我 的 备注 mr 回 保 在 市 有 Exce| 立 档 的 编 临 图 


3. End Sub 


运行 上 述 过 程 后 ， 显 示 的 属性 对 话 框 如 图 15-46 所 示 。 ”图 15-46” 预 设 对 话 框 的 参数 





1S.6 “文件 选择 对 话 框 


使 用 文件 选择 对 话 框 和 路 径 选 择 对 话 框 ， 能 让 程序 设计 变 得 更 加 灵活 、 自 由 。Office 对 
象 库 中 的 FileDialog 对 象 可 以 实现 文件 的 选择 、 路 径 的 选择 等 。 


15.6.1 对话 框 的 类 型 


FileDialog 对 象 可 以 创建 如 下 4 种 类 型 的 对 话 框 。 
口 Office.MsoFileDialogType.msoFileDialogFilePicker: 文件 选择 对 话 框 。 
口 Office.MsoFileDialogType.msoFileDialogFolderPicker: 路 径 选 择 对 话 框 。 
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口 Office.MsoFileDialogType.msoFileDialogOpen: 打开 对 话 框 。 
口 Office.MsoFileDialogType.msoFileDialogSaveAs: 男 存 为 对 话 框 。 


15.6.2 ”对 话 框 的 属性 


FileDialog 对 象 有 很 多 属性 可 以 用 来 读 写 。 适 当 修 改 属性 后 再 显示 对 话 框 ， 能 让 程序 更 
加 易 懂 、 人 性 化 。 以 下 列 出 常用 属性 列表 。 

D AllowMnultiSelect : 是 否 允 许 选 择 多 个 。 如 采 该 属性 设置 为 True， 选 择 文件 时 可 以 按 

住 [ Ctrl 儿 Shift 】 键 进行 多 个 文件 的 点 选 和 连 选 。 

D ButtonName: 可 以 更 改 按钮 的 标题 文字 。 

口 InitialFileName: 初始 文件 或 路 径 。 

D InitialView: 初始 视图 (大 图 标 、 详 细 信息 视图 等 )。 

口 SelectedItems: 选中 的 所 有 文件 。 

D Title: 可 以 更 改 对 话 框 的 标题 文字 。 


此 外 ， 还 可 以 为 对 话 村 





设计 过 小 大 ， 用 于 根据 扩展 名 过 滤 文 件 ， 不 过 此 功能 只 对 打开 对 


15.6.3 ”对 话 框 的 万 法 


FileDialog 对 象 用 于 Show 和 Execute 两 个 方法 。 这 两 个 方法 均 能 显示 出 对 话 框 ， 但 是 
当 用 户 单 击 “确定 ”按钮 以 后 ，Show 方法 只 能 获得 用 户 选 择 的 文件 路 径 字 符 串 ， 而 Execute 
则 会 真正 打开 或 保存 文件 。 


15.6.4 ”文件 选择 


下 面 的 代码 调用 文件 选择 对 话 框 。 
源 代码 : 实例 文档 34.xlsm/ 文件 选择 对 话 框 


1. Sub Testl 1() 

Dim fg As Office.FileDialog 

和 Set fg = Application.FileDialog (Office.MsoFileDialogType.msoFileDialogFilePicker) 
4. With ilg 

i -AllowMultiSelect = False 

6. .ButtonName = " 选 文 件 演示 " 

1. .InitialFileName = "C:\temp" 

8. .InitialView = Office.MsoFileDialogView.msoFileDialogViewSmallIcons 
9. .Title = "可 以 定制 标题 " 

10. Ift -Show Then 

11. MsgqBox "选择 了 : ”和 .SelectedIltems.IIteml(l1) 

12. Else 

本。 MsgBox " 没 选 任何 文件 " 

14. End If 

1 End With 


16. End Sub 
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代码 分 析 : 第 3 行 代码 规 定 了 这 个 对 话 框 是 用 来 选择 文件 的 。 第 5 行 代 人 码 设 置 为 只 能 选 
择 一 个 文件 。 第 7 行 代 码 设置 对 话 框 启动 时 默认 路 径 在 temp 文件 夹 下 。 第 8 行 代码 设置 文 
件 的 显示 形式 为 小 图 标 。 

运行 上 述 过 程 ， 出 现 文件 选择 对 话 杠 ， 如 图 15-47 所 示 。 

如 果 选 择 了 一 个 文件 并 且 单 击 “ 选 文件 演示 ”按钮 (其实 就 是 “确定 ”按钮 )， 效 果 如 
图 15-48 所 示 。 


图 可 以 证 灿 村 是 | 
[| Dp ja 旧 计 委 机 邓 人 CC temp } 


= 


hicroasot 


| ” 画 输 元 洛 ( 圭 装 咨 
Re 副 ee 本 .docx 
| 本, 中 


二 


Oe 样 状 C09-11-11 


Microsoftt Excel [| 


选择 了 : Chtemp\ 学 生 数 磊 .txt 


交 件 各 (IN): 字 生 扩大 bt 





图 15-47 文件 选择 对 话 框 图 15-48 返回 所 选 文件 的 路 径 


第 11 行 代 三 中 ，SelectedItems.Item(1) 表示 选择 的 第 1 个 文件 路 径 ， 返 回 字 符 串 。 

如 采 单 击 了 文件 选择 对 话 框 的 “取消 ”按钮 ， 第 10 行 代码 的 Show 方法 返回 False， 结 
果 会 提示 “ 没 选任 何 文件 ”。 

下 面 的 实例 演示 了 同时 选中 多 个 文件 ， 然 后 把 每 个 文件 的 路 径 发 送 到 单元 格 区 域 中 。 

源 代 码 : 实例 文档 34.xlsm/ 文件 选择 对 话 框 


1 Sub Test2{) 

2 Dim fg As Office.FileDialog 

了 Dim 1 As Integer 

4 Set fg = Application.FileDialog {Office.MsoFileDialogType.msoFileDialogFilePicker) 
Ee With fg 

6 AllowMultisSelect = True 

1 -InitialView = msoFileDialogViewDetails 

8 If .Show Then 

9 For 1 = 1 To .SelectedItems.Count 


10. ActiveSheet.Range ("A & 1).Value = .SelectedItems.Iteml(1) 
ee Next 1 

ea End If 

正二。 End With 


1]4. End Sub 


代码 分 析 : 第 6 行 代码 设置 为 可 以 多 选 ， 第 7 行 代码 设置 视图 为 详细 信息 , 第 8 ~ 12 
行 代码 遍历 选中 的 每 个 文件 路 径 ， 然 后 发 送 到 A 列 中 。 运 行 结果 如 图 15-49 所 示 。 
单 击 “ 确 定 ” 按 钮 后 ， 工 作 表 中 写 人 了 被 选中 的 所 有 路 径 ， 如 图 15-50 所 示 。 
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CC 中 计算 机 ， 系 纺 IC temp + -| 与 | 巷 六 iemma 
dis EE = Es ES 
1 莽 ~ 国 性 
” 诈 称 := 
bs 厦大 履 寻 不 这 辣 于 年 的 全 的 相生 Yb TI75A8 9:13 eH 
| DD 旋风 风琴 充 付 巍 启 .htril 2017/5/8 9:13 控 啊 高 运 浏 监 司 H 
2017/6/1 11:28 一 
2017/5/10 21:08 普 本 训 档 
aa 7 I er ur 
2017/6/18 18:01 立 村 妆 档 
至 计算 机 2017/4/22 1044 Bor 
6 区 动 加 | uce. 1 16:15 。。 京 本 广 巾 


上 和 过 (C9 本 09。 立 本 点 档 CcC:\temph 许 邮购 买 充 付 账户 , html 


二 新 程 ip] 类 到 TE 11: 京 本 训 桂 
二 作品 [EE I 而 
Cs 莹 性 fF] ie 了 FL 岂 应 用 得 序 


2 Ctenp’arp. txt 


C:\temp\b. txt 
PR 4 _ IC:Atemnpvbj 一 265-1Yf. txt 


一 一 一 一 一 一 一 一 C: ‘temp‘favor. txt 
aaNi -Farm og” 放风 0 
i 








图 15-49 ”支持 多 选 的 文件 选择 对 话 框 图 15-50 ”获取 所 有 被 选中 文件 的 路 径 


.6.5 ”路 径 选 择 


路 径 选 择 就 是 文件 夹 选 择 ， 人 代码 中 两 痢 最 大 的 区 别 在 于 对 话 框 的 类 型 不 同 。 
下 面 的 实例 演示 了 选中 多 个 文件 夹 的 方法 。 
源 代 码 : 实例 文档 34.xlsm/ 文件 选择 对 话 杠 


1 Sub Test3() 
之 。 Dim jg As Office.FileDialog 
3 


Dim 1 As Integer 


4. Set fg = Application.FileDialog (Office.MsoFileDialogType.msoFileDialog 
FolderPicker) 

= With flg 

2 Ift -Show Then 

了 。 MsgBox " 你 选择 了 文件 夹 : " & .SelectedItems .Item(1) 

8. End If 

3。 End With 


10. End Sub 


代码 分 析 : 注意 第 4 行 代 码 的 枚 举 值 已 改 为 msoFileDialogFolderPicker， 这 样 只 能 选择 
文件 夹 ， 而 不 是 文件 。 


上 述 过 程 运 行 后 ， 单 击 文件 夹 选 择 对 话 框 中 的 “确定 ”按钮 ， 对 话 框 返回 所 


6.6 打开 文件 


选 路 径 。 


“打开 文件 ”对 话 框 与 文件 选择 对 话 框 非常 类 似 ， 区 别 在 于 :“ 打 开 文 件 ” 对 话 框 的 标题 
是 “打开 文件 ”， 按 钮 的 标题 是 “打开 ”。 而 且 “ 打 开 文 件 ” 对 话 框 可 以 使 用 Execute 方法 在 
Excel 中 真正 打开 该 文件 。 


下 面 的 实例 弹出 “打开 文件 ”对 话 框 ， 当 用 户 选 择 一 个 Excel 类 型 的 文件 时 ， 


Excel 中 打开 该 文件 。 


源 代码 实例 文档 34.xlsm/ 文件 选择 对 话 框 


1。 Sub Test4() 
2. Dim fg As Office.FileDialog 


则 直接 在 
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Dim p As String 

4 Dim 1 As Integer 

中 Set fg = ApPplication-.EiIleDialodg(offce .MsoEileDialogdType.msoEileDialodopen) 
6. With flg 

了 If -Show Then 

8 MsgBox " 下面 即将 打开 文件 : " & .SelectedItems (1) 

光 Execute 

10. End I 

ee End With 

12. End Sub 


代码 分 析 : 第 5 行 代 人 码 FileDialog 的 类 型 为 msoFileDialogOpen， 第 8 行 代码 Execnute 方 
法 将 会 在 Excel 中 真正 打开 该 文件 ， 运 行 结果 如 图 15-51 所 示 。 
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图 15-51“ 打 开 文 件 ” 对 话 框 

当 单 击 “ 打 开 ” 按 钮 后 ， 在 Excel 中 打开 该 工作 海 。 

为 了 避免 让 用 户 选 择 除了 Excel 文件 以 外 的 其 他 文件 ， 可 以 设置 FileDialog 对 象 的 文件 
类 型 过 滤 硕 。 

FileDialog 对 象 下 面 的 Filters 成 员 对 象 用 来 管理 该 对 话 框 的 所 有 过 滤器 。 

下 面 的 实例 为 “打开 文件 ”对 话 框 设置 了 三 个 过 滤 侨 ， 以 防止 Excel 打开 其 他 不 相干 文 
件 的 情形 发 生 。 

源 代码 : 实例 文档 34.xlsm/ 文件 选择 对 话 框 


1]. sub Testo() 

2 Dim flg As Office.FileDialog 

3. Dim ft As Office.FileDialogFilter 

4. Set fo = Application.FileDialog (Office.MsoFileDialogType.msoFileDialogOpen) 

Es With fg 

6. .Filters.Clear 

ee Set ft = .Filters.Add{Description:="Excel 文件 ", Extensions:="*.x]ls; 
Xl1sx;:* .xlsm", Position:=1)} 

8. set FE = ,Filters.ndd(" Xf" "*.tExt", 2) 

9. Set ft = 。 Filters.Add(" 所 有 文件 "，"*,.*", 3) 

10. .FlilterIndex = 2 

11. If .Show Then 

12. .Execute 

1 3 End If 


14. For Each ft In .Filters 
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| Debug.Print ft.Description, ft.Extensions 
16. Next 
11. End With 


18. End Sub 

代码 分 析 : 第 3 行 代 公 声明 了 一 个 过 滤 冀 对 象 变量 。 

第 6 行 代码 清空 所 有 过 滤 硕 。 第 7 行 代 但 增加 一 个 过 滤 需 ， 该 过 滤 融 的 摘 述 文字 是 
“Excel 文件 -， 扩 展 名 限定 包含 3 个 Excel 第 用 扩展 名 ， 多 个 扩展 名 之 间 用 分 号 隅 开 。 
Position 参数 用 来 规定 过 滤 需 的 位 置 。 

第 10 行 代码 FilterIndex=2 的 含义 : 对 话 框 一 局 动 ， 初 始 的 过 滤 需 采用 第 2 个 ， 也 了 怠 是 
文本 文件 的 那个 过 滤 硕 。 

第 14 ~ 16 行 代 但 用 来 届 历 所 有 过 滤 希 ， 并 在 立即 窗口 打印 每 个 过 滤 融 的 撒 述 和 扩展 名 。 

上 述 过 程 的 运行 效果 如 图 15-52 所 示 。 

立即 窗口 的 输出 结果 如 图 15-53 所 示 。 


201774/21 16:46 
201774/21 16:45 
2017r4/4 11:14 
2017/7/9 14:16 
2017/7/3 18:45 
201715/1 11:28 
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2017/6/3 10:35 
2017/6/18 18:01 
2017/6/] 16:15 
O17 /16/2 14:249 
201716/1 11:51 


*. 1]s-:*. | sx *. 三 上 sm 





图 15-52 ”设置 对 话 框 的 过 滤 需 图 1$-53 ”遍历 每 个 过 滤 磊 的 属性 


15.6.7 “另存 文件 
的 明显 特征 是 对 话 框 的 标题 和 按钮 的 标题 





与 “打开 文件 ”对 话 框 类 似 ， 男 存 文件 对 话 术 
分 别 是 “保存 文件 ”和 “保存 ”。 

同样 ， 调 用 Execute 方法 ， 会 把 Excel 当前 活动 工作 注 男 存 为 男 外 一 个 文件 。 

下 面 的 代码 把 当前 工作 绽 男 存 。 

源 代码 : 实例 文档 34.xlsm/ 文件 选择 对 话 框 


1 Sub Test61{) 

7. Dim fg As Office.FileDialog 
3 Dim p As String 

4 。 Dim 1 As Integer 


3 Set fg = Application.FileDialog (Office.MsoFileDialogType.msoFfileDialogSaveAs) 
6 With flg 

1. Ift .Show Then 

8 MsgBox "当前 工作 簿 将 要 另存 到 : " & .SelectedItems (1) 

号 


Execute 
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10。 End If 
11. End With 
12. End Sub 





代码 分 析 : 第 5 行 代 公 中 ， 对 话 框 的 类 型 为 msoFileDialogSaveAs， 表 明 这 是 个 为 存 为 


对 话 框 。 
上 述 过 程 运行 后 的 效果 如 图 15-54 所 示 。 
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图 15-54 ”另存 对 话 杠 


15.7 ”操作 上 日 定义 序列 


日 定义 序列 ( CustomList) 在 Excel 中 有 很 重要 的 作用 ， 例 如 用 于 自动 填充 或 者 用 于 排 
Excel 含有 11 个 内 置 上 月 定义 序列 ， 例 如 天 干 地 文 、 星 期 等 。 
在 “Excel 选项 ”对 话 框 中 ,选择 “高 级 ”一 “创建 用 于 排序 和 填充 序列 的 列表 ”命令 ， 
如 图 15-55 所 示 。 
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图 15-55 Excel 2013 中 自 定 义 列表 的 场所 
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此 时 弹出 目 定 义 序列 的 编辑 界面 ， 如 图 15-56 所 示 。 


控 Enter 分 惕 列表 条目 。 
从 单元 裕 中 导入 序列 四 ， 








图 15-56 ”上 和 目 定义 序列 的 编辑 界面 


内 置 的 11 个 序列 既 不 能 修改 ， 也 不 能 删除 。 用 户 可 以 操作 的 只 能 是 用 户 目 定义 的 序列 。 

下 面 介 绍 如 何 用 VBA 操作 自 定义 序列 。 自 定义 序列 是 Application 对 象 下 面 的 对 象 ， 对 
自 定义 序列 的 任何 操作 ， 不 保存 于 任何 工作 竹 ， 它 属于 应 用 程序 级 的 设置 。 

用 于 操作 月 定义 序列 的 VBA 术语 有 : 

口 AddCustomList: 增加 新 的 目 定 义 序列 。 

口 Application.CustomListCount: 获取 日 定义 序列 总 数 。 

口 DeleteCustomList: 删除 日 定义 序列 。 

口 GetCustomList: 获取 序列 的 编 号 。 

口 GetCustomListContents: 获取 所 有 日 定义 序列 内 容 。 


15.7.1 ”增加 用 户 自 定义 序列 


Application.AddCustomList 方法 可 以 增加 一 个 日 定义 序列 ， 后 面 跟 的 参数 可 以 是 一 个 数 
组 或 者 Range 对 象 - 

以 下 实例 把 一 个 数组 添加 到 自 定义 序列 。 

源 代码 : 实例 文档 31.xlsm/ 自 定义 序列 





自 定 炙 序 到 | 


1 Sub Testl]{() 

2 Dim al(ll To 2) As String 
3 al(1) = "上 唐 " 

4. a(2) = " 宋 " 

2. a(3) = "元 " 
6 

1 

8 

9 


四 
己 
两 
T 
成 
己 
责 
六 
证 
四 


af41y = m 明 不 
alf5) = " 清 " 
Application.AddCustomList a 


End Sub 
运行 后 ， 青 次 打开 “ 自 定义 序列 ”对 话 框 ， 
可 以 看 到 新 加 的 自 定 义 序列 ， 如 图 15-57 所 示 。 ”图 15-57 数组 作为 数据 源 添加 到 自 定义 序列 
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也 可 以 把 单元 格 区 域内 的 内 容 导 入 为 序列 。 

在 工作 表 中 编辑 数据 ， 其 中 B2:E2 是 一 行 大 学 的 名 称 ，B6:B8 是 一 列 省 份 名 称 ， 如 图 15-58 
所 示 。 

如 下 过 程 可 以 把 上 述 两 个 区 域 分 别 添加 到 自 定义 序列 中 。 

源 代码 : 实例 文档 31.xlsm/ 自 定义 序列 


1 Sub Test2{) 

a Application.AddCustomList Sheetl] .Range ("B22:E2") 
3 Application.AddCustomList Sheetl.Range("B6:B8") 
4 End Sub 


过 程 的 运行 结果 如 图 15-59 所 示 。 





[局 
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图 15-58 ”单元 格 数据 作为 数据 源 图 15-59 ”添加 单元 格 数据 到 自 定 义 序 列 


15.7.2 ”获取 序列 的 编号 


删除 日 定义 序列 时 ， 需 要 传递 序列 的 编号， 因此 有 必要 去 了 解 自 定义 序列 的 位 置 编 号 。 
源 代码 : 实例 文档 31.xlsm/ 自 定义 序列 


1. Sub Test31() 


之 MsgBox Application.GetCustomListNum(Array(" 唐 "，" 宋 ", "元 "，" 明 ",，" 清 ")) 
Ss MsgBox Application.GetCustomListNum(Arrayl(" 黑龙 江 "，" 吉 林 ",，" 末 宁 ")) 
4 End Sub 


代码 分 析 : GetCustomListNum 因数 的 参数 是 一 个 数组 ， 数 组 的 内 容 正 是 序列 中 的 所 有 
条 目 。 
运行 上 述 过 程 ， 对 话 框 先后 弹出 12 和 14 (有 11 个 是 内 置 的 ，12 ~ 14 是 后 期 添加 的 )。 


15.7.3 ”导出 全 部 序列 到 单元 格 


如 来 电脑 出 现 了 故障 ,或 者 用 户 守 要 更 换 电 脑 ， 那 么 存储 于 电脑 中 的 日 定义 序列 可 否 导 
出 呢 ? 
Application.GetCustomListContents 可 以 把 所 有 日 定义 序列 的 内 容 导 出 。 下 面 的 实例 把 
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各 个 序列 的 条 目 一 次 性 导出 到 工作 表 中 。 
源 代 码 : 实例 文档 31.xlsm/ 自 定 义 序列 


1 Sub ExportL1ist() 

之 For c= 1 To Application.CustomListCount 

了 For = 1 To UBoundl(Application.GetCustomListContents(c)) 

4. Activesheet.Cellsl(r, c) = Application.GetCustomListContents (c) (Ir) 
2 Next Ir 

6 Next cc 

了 End Sub 


上 述 过 程 的 运行 效果 如 图 15-60 所 示 。 
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图 15-60 ”导出 全 部 序列 
这 些 数据 导出 后 ， 可 以 在 新 电脑 中 利用 AddCustomList 方法 再 次 导入 。 


15.7.4 删除 目 定 义 序列 


如 有 果 要 清空 所 有 上 月 定义 序列 ， 只 保留 内 置 序 列 ， 则 可 以 使 用 如 下 过 程 。 
源 代 码 : 实例 文档 31.xlsm/ 自 定 你 序 列 


1 Sub DeleteCustomList!() 

之 On Error Resume Next 

Ee For i = Application.CcustomListCount To 1 Step -1 

= Application.DeleteCustomList Application.CustomListCount 
2 Next 1 

6 End Sub 


代码 分 析 : 由 于 内 置 序列 不 能 删除 ， 所 以 采用 了 倒序 循环 ， 而 且 在 过 程 开 始 加 入 了 忽略 
第 误 的 处 理 。 


习题 


1. 工作 表 绘 制 了 一 个 国际 象棋 棋盘 ,棋盘 外 面 的 棋子 已 经 事先 命名 ， 例 如 日 方 的 车 图 
片 名 称 为 WR_H8，W 表示 日 方 (White)，R 表示 车 (Rook)，H8 表示 该 图 片 应 该 放置 在 H8 
单元 格 。 初 始 状态 如 图 15-61 所 示 。 国 际 象 棋 其 他 兵种 的 字母 表示 规则 如 下 : BR 表示 黑车 
(Black Rook),BN 表示 黑马 (Black knight), BB 表示 黑 象 (Black Bishop), BQ 表示 黑 后 (Black 
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Queen)，BK 表示 黑 王 〈Black King)，BP 表示 墨 兵 (Black Pawn)。 上 日 方 棋子 把 前 面 的 B 换 
成 W 即 可 。 





图 15-61 初始 状态 
请 编写 程序 ， 让 棋盘 外 侧 的 16 个 棋子 (0O 列 的 2 个 兵 除 外 ) 对 号 入 座 ， 并 且 单 击 任 一 
棋子 ， 弹 出 的 对 话 框 中 显示 该 棋子 的 名 称 ， 完 成 效果 如 图 15-62 所 示 。 





图 15-62 ”完成 结果 
2. O 列 的 两 个 兵 的 名 称 分 别 为 BP ANY 和 WP ANY， 请 利用 Shape 对 象 的 Duplicate 
方法 各 上 自 克隆 8 个 ， 放 置 于 棋盘 中 。 并 且 单 击 一 个 兵 ， 这 个 兵 向 前 行走 一 格 。 
最 终 效果 如 图 15-63 所 示 。 
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图 15-63 习题 2 图 


3. 编写 一 个 能 够 选择 文件 的 对 话 框 ， 要 求 在 该 对 话 框 中 可 以 选中 多 个 文件 且 只 能 选择 
扩展 名 为 -txt 的 文本 文件 ， 实 现 效果 如 图 15-64 所 示 。 
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图 15-64 ”习题 3 图 





在 对 话 框 中 选择 一 些 文件 ， 单 击 “ 选 中 它们 ”按钮 后 ， 要 求 在 立即 窗口 中 打印 每 个 选中 
文件 的 路 径 。 





第 16 章 


用 户 窗 体 和 控件 设计 


VBA 编程 中 ,使 用 用 户 窗 体 和 控件 进行 界面 设计 ， 使 得 程 厅 人 作品 美 观 、 清 晰 、 多 慌 、 
正规 。 如 采 开 发 的 作品 是 为 了 让 用 户 使 用 ， 窗 体 和 控件 设计 显得 更 为 重要 。 

图 16-1 是 一 个 利用 VBA 的 用 户 窗 体 设计 的 Excel 选项 工具 。 如 果 控 件 布局 合理 、 条 理 
清晰 ， 就 能 够 获得 用 户 的 信任 和 好 感 。 
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图 16-1 窗 体 设 计 范 例 
本 章 主 要 介绍 VBA 的 窗 体 设计 和 控件 的 使 用 方法 。 


16.1 窗 体 设 计 基 础 


Excel VBA 中 的 窗 体 (UserForm) 和 工作 表 是 分 开 的 对 象 ， 窗 体 上 可 以 添加 各 种 控件 
完善 窗 体 的 功能 。 虽 然 窗 体 和 工作 表 是 相互 独立 的 ， 但 是 窗 体 也 可 以 和 工作 表 进 行 信 息 

窗 体 可 以 看 作 一 块 画 布 ， 控 件 可 以 看 作画 布 上 的 图 形 ， 因 此 窗 体 是 控件 的 容 吉 。 

VBA 中 的 窗 体 是 独立 的 模块 ， 即 使 窗 体 上 放置 的 控件 再 多 ， 控 件 所 有 的 信息 都 包含 在 
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该 模块 中 。 窗 体 模块 和 标准 模块 、 类 模块 一 样 ， 也 可 以 进行 添加 、 移 除 、 导 人 和 导出 操作 。 
16.1.1 设计 的 第 一 个 窗 体 


新 建 一 个 工作 每 ， 进 入 VBA 编程 界面 后 ， 选 择 “ 插 入 ”一 “用 户 窗 体 ”命令 ,会 看 到 
VBA 工程 中 多 了 一 个 窗 体 模块 ， 并 且 自 动 打 开 了 窗 体 设计 视图 ， 如 图 16-2 所 示 。 


全 Microsoft Visual Basic for Applicaticns - 实例 文档 44xlsm | 
: 文件 昌 ” 编 筷 E) 视图 WW | 插入 DD | 格式 上 D) 调试 ID 运行 R) 工具 中 外接 程序 (好 窗口 (W) 帮助) 


四 这 | 蝶 攻 和 窜 半 |@ | 





图 16-2 插入 用 户 窗 体 模块 


同时 ， 旁 边 弹出 一 个 控件 工具 箱 ， 工 具 箱 的 作用 是 把 控件 拖 放 到 窗 体 上 。 
如 采 不 小 心 关闭 了 工具 箱 ， 可 以 选择 “视图 ”一 “工具 箱 ” 命 令 将 其 再 次 弹出 ， 如 图 
16-3 所 未 。 
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图 16-3 窗 体 设计 视图 和 控件 工具 箱 
在 窗 体 设计 过 程 中 ， 属 性 窗口 非常 重要 ， 如 果 看 不 到 属性 窗口 ， 按 下 快捷 键 [ F4 】 将 
其 显示 出 来 。 窗 体 模 块 分 为 如 下 两 个 视图 。 
口 窗 体 设计 视图 : 进行 控件 布局 、 属 性 修改 等 。 
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D 窗 体 代码 视 图 : 类 似 于 工作 表 的 事件 模块 ， 该 视图 用 于 书写 窗 体 及 控件 的 各 种 事件 
过 程 。 
从 和 窗 体 设计 视图 切换 到 窗 体 代码 视图 的 方法 是 ， 选 择 “ 视 图 ”“ 代 人 码 和 窗口 ”命令 ,或 者 
用 鼠标 选中 窗 体 后 ， 按 下 快捷 键 【F7 】 即 可 自动 打开 代码 窗口 ， 如 图 16-4 所 示 。 
不 管 是 哪 一 个 窗口 ， 均 可 通过 单 击 该 窗口 右上 角 的 “关闭 ”按钮 临时 关闭 窗口 。 


注意 : 代码 窗口 取得 鼠标 焦点 后 ， 控 件 工具 箱 会 自动 隐藏 ， 也 就 是 说 ， 只 有 当前 处 
于 窗 体 设计 视图 时， 才能 看 到 控件 工具 箱 。 











16-4 窗 体 的 代码 窗口 


如 果 窗 体 设计 视图 、 窗 体 代 码 视图 的 窗口 不 是 最 大 化 状态 ， 可 以 层 琶 显示 ， 也 就 是 在 窗 
体 设 计 的 同时 也 可 以 进行 代码 编写 。 

接 下 来 编写 一 个 Hello World 程序 。 

(1) 在 窗 体 设计 视图 中 ， 选 中 窗 体 的 同时 ， 从 属性 窗口 中 把 窗 体 的 Caption 属性 设置 为 
Hello World. 

(2) 从 控件 工具 箱 拖 蝶 一 个 CommandButton 按钮 控件 ， 放 到 窗 体 上 ， 属 性 窗口 中 设置 
该 按钮 的 Caption 为 “ 单 击 我 ”。 

(3) 双击 CommandButton， 进 入 窗 体 代码 视图 ， 编 写 代 码 如 下 : 

源 代 码 : 实例 文档 44.xlsm/UserForm1 


1l. Private Sub CommanadButtonl Clickt) 
全 。 MsgBox Application.UserName & "你 好 ! " 
3. End Sub 


接 下 来 就 可 以 显示 窗 体 了 。 一般 情况 下 ， 在 窗 体 设计 视图 ， 按 下 快捷 键 【 F5 】 可 以 直 
接 把 窗 体 运行 起 来 ， 但 这 种 方式 只 适合 窗 体 调试 ， 如 采 是 最 终 的 产品 ， 应 该 把 窗 体 的 局 动 代 
人 码 写 在 标准 模块 中 。 
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) 在 VBA 工程 中 青 插入 一 个 标准 模块 ， 在 标准 模块 中 书写 如 下 过 程 。 
源 代码 : 实例 文档 44.xlsm/ 模块 1 





1。 Sub ShowForml) 
2 UserForml .Show 
3. End Sub 


第 2 行 代 人 码 的 作用 就 是 显示 用 户 窗 体 。 因 此 ， 如 果 想 显示 一 个 窗 体 ， 不 论 在 任何 地 方 ， 
只 需要 运行 UserForm1.Show 即 可 显示 窗 体 。 

(5) 直接 运行 标准 模块 中 的 ShowForm 过 程 ， 会 看 到 窗 体 出 现在 Excel 的 上 面 ， 单 击 窗 
体 上 的 按钮 ， 会 弹出 对 话 框 ， 如 图 16-5 所 示 。 























图 16-5 窗 体 的 局 动 

如 采 不 关闭 窗 体 ， 鼠 标 无 法 在 Excel 工作 表 中 操作 ， 也 束 是 说 ， 窗 体 显 示 时 上 默认 是 模 态 
窗 体 。 只 有 先 关 闭 窗 体 才能 回 到 Excel 中 编辑 工作 表 。 

综 上 所 述 ， 窗 体 设计 的 流程 如 下 。 

(1) 插入 窗 体 。 

(2) 放置 控件 、 设 置 控件 属性 。 

(3) 书写 窗 体 和 控件 的 事件 过 程 代 码 。 

(4) 显示 窗 体 ， 测 试 功能 。 

(5) 关闭 窗 体 ， 终 止 代码 运行 。 

如 果 和 希望 工作 湾 一 打开 就 日 动 运 行 用 户 窗 体 ， 那 么 可 以 把 窗 体 的 启动 语句 写 到 ThisWorkbook 
模块 中 。 

1. Private Sub Workbook Open () 


2 . UserForml .Show 
3. End Sub 
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16.1.2 ”使 用 和 维护 控件 工具 箱 


VBA 窗 体 的 控件 工具 箱 是 一 个 可 以 用 鼠标 拖 动 并 改变 工具 箱 大 小 的 窗口 。Excel VBA 
的 内 置 控件 有 15 个， 其 他 O 鱼 ce 组 件 的 控件 有 14 个 ， 因 为 RefEdit 控件 是 Excel VBA 特有 
的 ， 因 此 多 一 个 。 

控件 工具 箱 左上 角 有 个 鼠标 箭头 形状 的 图 标 ， 甚 功能 是 取消 选中 控件 。 例 如 ， 计 划 往 窗 
体 中 插入 一 个 命令 按钮 ， 但 是 又 觉得 没 必 要 ， 这 时 候 单 击 箭头 图 标 ， 鼠 标 恢复 为 默认 状态 ， 
如 图 16-6 所 示 。 

控件 工具 箱 中 的 控件 可 以 增加 ， 也 可 以 删除 ， 即 使 内 置 控件 也 可 以 从 工具 箱 中 删除 。 但 
是 删除 用 户 ， 就 不 好 找 回 了 。 因 此 VBA 的 控件 工具 箱 具 有 “导出 页 ”和 “导入 页 ”功能 ， 
控件 工具 箱 默认 是 一 页 ， 也 就 是 左上 角 可 以 看 到 的 “控件 ”选项 卡 ， 一 个 选项 卡 就 是 一 页 。 

选中 某 个 控件 ， 可 以 把 该 控件 从 工具 箱 中 删除 ， 如 图 16-7 所 示 。 

因此 ， 为 了 预防 误 删 除 内 置 控件 ， 或 者 删除 控件 页 ， 可 以 预先 导出 页 作为 备份 ， 如 果 发 
生 故 障 再 次 导 人 文件 即 可 恢复 。 

在 工具 箱 上 方 空白 处 右 击 ， 会 弹出 与 “页 ”有 关 的 快捷 菜单 ， 如 图 16-8 所 示 。 










了 自 定 义 图 像 


图 16-6 控件 工具 箱 图 16-7 删除 工具 箱 中 的 控件 


导出 页 将 会 在 磁盘 生成 一 个 扩展 名 为 .pag 的 文件 ， 导 入 页 就 是 再 次 把 .pag 文件 导入 到 
工具 箱 中 。 

本 书 配 套 资 源 中 的 FM20.pag 文件 就 是 用 于 恢复 内 置 控件 的 ; 本 书 配套 资源 中 的 
ActiveX2.pag 文件 包含 20 多 个 强大 的 第 三 方 ActiveX 控件 ， 导 人 该 文件 后 会 看 到 控件 工具 
箱 中 多 了 一 个 选项 卡 ， 通 过 右 击 选项 卡 ， 可 以 对 选项 卡 的 标题 进行 重 命名 ， 如 图 16-9 所 示 。 
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是 沪 电 和 询 淹 加 

沁 仁 园 图 省 茹 
国 











图 16-8 ”操作 工具 箱 的 “页 ” 图 16-9 导入 外 部 pag 控件 文件 
可 以 看 出 ， 探 件 工 具 箱 中 的 页 只 是 用 来 分 离 不 同类 别 控件 的 选项 卡 而 已 。 
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16.1.3 ”基本 控件 
Excel VBA 的 16 种 基本 控件 按照 功能 进行 划分 ， 如 表 16-1 所 示 。 


表 16-1 Excel VBA 用 万 窗 体 中 的 基本 控件 
类 别 功能 用 和 途 
窗 体 (UserForm) 容纳 控件 








大 中 类 框架 (Frame ) 容纳 控件 
™ 多 选项 卡 (TabStrip) 提供 多 个 选项 卡 
多 页 (MultiPage) 提供 多 页 
文本 类 标签 (Label) EE / 
文本 框 (TextBox ) 编辑 、 显 示 文 本 
i 列表 框 (ListBox) 容纳 多 条 数据 
本 组 合 框 (ComboBox ) 容纳 多 条 数据 
单 选 按 钮 (OptionButton) 多 选 一 
布尔 切换 类 复 选 框 (CheckBox) 复 选 
切换 按钮 (ToggleButton) 类 似 于 复 选 框 
滚动 条 (ScrollBar) 增 减 数值 
数值 调节 类 > 
旋转 按钮 (SpinButton ) 增 减 数值 
命令 按钮 (CommandButton ) 执行 过 程 
其 他 类 图 像 (Imasge ) 显示 图 片 


地 址 选择 器 (RefEdit) 选择 单元 格 地 址 





窗 体 其 实 也 可 以 理解 为 一 种 特殊 的 控件 对 象 ， 是 一 种 用 于 放置 其 他 控件 的 容器 控件 。 窗 
体 也 有 众多 的 属性 、 方 法 和 事件 。 


16.1.4 ”使 用 属性 窗口 


窗 体 以 及 控件 的 属性 ， 在 窗 体 设 计 期 间 (运行 前 ) 通过 属性 窗口 
来 查看 和 修改 。 属 性 窗口 通常 位 于 工程 资源 管理 器 下 方 ， 但 是 用 户 可 
以 将 其 拖 动 到 其 他 位 置 ， 也 可 以 将 其 临时 关闭 。 如 果 要 调 出 属性 窗 
口 ， 按 下 快捷 键 【 F4 】 即 可 ， 如 图 16-10 所 示 。 

属性 窗口 的 主要 任务 是 设置 控件 的 属性 ， 这 种 设置 的 改动 会 保存 
到 窗 体 中 。 虽 然 说 窗 体 在 运行 期 间 可 以 通过 代码 更 改 探 件 的 属性 ， 但 
是 运行 时 属性 的 更 改 是 临时 的 ， 不 会 保存 到 窗 体 中 。 也 就 是 说 ， 只 要 
窗 体 关闭 ， 控 件 的 所 有 属性 又 回归 到 设计 时 的 状态 。 

属性 窗口 分 为 三 部 分 : 控件 选择 、 控 件 的 属性 名 称 、 控 件 的 属 
性 值 。 

如 果 窗 体 上 放置 了 多 个 控件 ， 在 属性 窗口 上 首先 在 下 拉 列 表 框 中 
选择 相应 的 控件 ， 然 后 在 下 面 的 属性 表 中 输入 属性 值 即 可 。 图 16-10 属性 窗口 
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由 于 窗 体 和 控件 的 很 多 属性 、 方 法 和 事件 是 相同 的 ， 因 此 可 以 先 学 习 通 用 知识 ， 然 后 学 
习 每 种 控件 的 具体 特性 。 


16.2 ” 窗 体 与 控件 的 通用 属性 


16.2.1 名 称 


名 称 (Name) 是 窗 体 或 控件 的 标识 符 ， 就 像 变量 名 一 样 ， 是 唯一 的 。 不 同 的 控件 具有 
不 相同 的 控件 名 称 。 

名 称 是 一 种 只 读 属性 ， 也 就 是 说 ， 控 件 放 入 窗 体 时 ， 该 控件 被 赋予 一 个 默认 的 初始 名 
称 ， 这 个 名 称 只 能 通过 属性 窗口 手工 更 改 Name 属性 实现 。 窗 体 一 旦 运行 起 来 ， 不 能 让 代码 
动态 更 改名 称 。 

名 称 最 大 的 作用 是 在 代码 中 引用 控件 。 例 如 ， 窗 体 上 放置 一 个 CommandButton 按钮 控件 ， 
名 称 更 改 为 CMD1， 那 么 代码 中 引用 该 控件 的 方法 是 Me.CMD1 或 者 Me.Controls("CMD1")。 
最 常用 的 是 Me.CMD1 这 种 用 法 。 窗 体 事件 模块 中 出 现 的 关键 字 Me 就 是 指 窗 体 本 身 ， 因 此 
上 述 代码 等 价 于 UserForm1.CMD1。 其 中 ，UserForm1l 是 和 窗 体 的 名 称 ，CMD1 是 按钮 控件 的 

在 代码 中 可 以 访问 控件 的 名 称 ， 例 如 s= Me.CMD1.Name， 变 量 s 将 获得 一 个 字符 串 。 

窗 体 以 及 所 有 控件 都 具有 Name 属性 。 


16.2.2 ”标题 


控件 的 标题 ( Caption) 属性 是 指控 件 的 标题 文字 ， 是 一 个 可 读 写 的 属性 ， 既 可 以 事先 在 
属性 窗口 中 设 定 Caption， 也 可 以 通过 代码 修改 。 

Caption 属性 往往 是 呈现 在 界面 上 的 文字 ， 窗 体 运 行 时 ， 用 户 不 能 用 鼠标 和 键盘 来 编辑 
标题 。 这 是 Caption 和 下 面 要 学 :到 的 Text 属性 最 大 的 区 别 。 

窗 体 、 框 架 、 标 签 、 按 钮 控件 都 有 Caption 属性 ， 默 认 呈 现在 控件 左上 角 ， 并 不 是 所 有 
控件 都 有 该 属性 。 

在 编程 应 用 中 ，Caption 属性 除了 显示 固定 的 文本 外 ， 还 可 以 用 于 显示 程序 运行 结果 。 

在 用 户 窗 体 上 搬 人 一 个 按钮 控件 ， 按 钮 的 单 击 事件 过 程 代 码 如 下 。 

源 代 码 : 实例 文档 45.xlsm/UserForm1 


1 Private Sub CommandButtonl Click!{) 

2 MsgBox " 下面 将 会 自动 修改 标题 " 

二 Me .Caption = Date 

一 Me .CommanadButtonl .Caption = Time 
-3 


。 End Sub 


414 Office VBA 开发 经 典 一 一 基础 入 门 卷 


代码 分 析 : Date 和 Time 是 内 置 和 常量 ， 用 于 返 
回 当前 的 日 期 和 时 间 。 

运行 窗 体 后 ， 窗 体 的 标题 、 按 钮 的 标题 都 自动 
改变 ， 如 图 16-11 所 示 。 

但 是 ， 窗 体 关 闭 后 ， 标 题 文字 都 还 原 到 设计 时 
的 状态 。 可 以 看 出 ,使 用 代码 更 改 控 件 属 性 只 在 运 
行 期 间 有 效 。 图 16-11 更 改 按 钮 和 窗 体 的 Caption 属性 





16.2.3 文本 


控件 的 文本 ( Text) 属性 ， 是 指 用 户 可 以 通过 按键 输入 的 内 容 。 最 第 见 的 就 是 文本 框 控 
件 ， 其 作用 就 是 让 用 户 录 入 内 容 的 。 此 外 ,组合 框 控件 也 有 具有 Text 属性 。 
Text 属性 也 是 可 读 写 的 ， 返回 一 个 子 香 串 。 该 属性 最 大 的 特点 是 接受 焦点 、 可 编辑 。 


16.2.4 值 


值 (Value) 属性 通常 用 于 更 改 控件 的 状态 或 数 伸 ， 也 是 可 读 写 属性 。 例 如 ， 单 选 按 钮 、 
是 Value。 
源 代码 : 实例 文档 45.xlsm/UserForm2 


1. Private Sub CommandButtonl Click!{) 
Me.CheckBoxl .Value = True 
3. End Sub 


运行 UserForm2， 单 击 按钮 会 自动 勾 选 复 选 框 ， 如 
图 16-12 所 示 。 图 16-12 ”改变 复 选 框 的 勾 选 状态 





16.2.5 ”位 置 大 小 属性 


VBA 窗 体 和 控件 的 位 置 大 小 使 用 如 下 4 个 属性 描述 。 

口 Left : 窗 体 或 控件 与 其 母体 容器 的 左边 距 。 窗 体 的 Left 属性 是 指 窗 体 的 左 侧 与 屏幕 的 左 
侧 间距 ; 窗 体 上 控件 的 Left 是 指控 件 左 侧 与 窗 体 左 侧 的 间距 ;如果 控件 放 在 框架 中 ， 控 
件 Left 是 指控 件 左 侧 与 框架 左 侧 的 间距 。 

D Top: 对 象 与 母体 的 项 端 间距 。 

口 Width: 对 象 的 宽度 。 

D Height: 对 象 的 高 度 。 

为 了 便于 理解 ， 示 意图 如 图 16-13 所 示 。 

以 上 4 个 属性 的 单位 均 为 磅 ， 和 Application 对 

象 的 4 个 位 置 大 小 属性 单位 相同 ， 因 此 经 党 可 以 把 





图 16-13 ”控件 的 位 置 、 大 小 属性 示意 图 
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用 户 窗 体 与 屏 莉 、Excel 窗口 、 单 元 格 区 域 进行 对 齐 。 


16.2.6 ”背景 色 


窗 体 和 大 多 数控 件 都 可 以 目 定 义 背 景色 ( BackColor),， 设计 期 间 可 以 在 属性 窗口 中 单 击 


BackColor 属性 ， 在 颜色 选择 面板 中 选择 一 种 颜色 。 
育 景色 也 是 可 谱 与 的 属性 。 代 码 运行 期 间 可 以 动态 改变 窗 体 或 控件 的 背景 色 。 


源 人 代码: 实例 文档 45.xlsm/UserForm4 


1 Private Sub CommandButtonl Click!{) 

pa Me.BackColor = vbhGreen 

3 Me .CommandButtonl .BackColor = RGB (255, 0, 0) 
4 End Sub 


代码 分 析 : 单 击 “更 改 背 景色 ”按钮 时 ， 把 用 户 窗 体 萌 
景色 改 为 绿色 ， 把 按钮 自 司 的 背景 色 改 为 红色 ， 如 图 16-14 
所 示 。 图 16-14 更改 背景 





16.2.7 ”前 景色 


前 景色 (ForeColor) 一 般 指 市 有 文本 的 控件 的 字体 颜色 。 人 例如， 标签、 文本 框 、 按 钮 、 
框架 的 标题 文字 等 都 可 以 通过 改变 ForeColor 属性 来 改变 字体 颜色 。 
下 面 把 一 个 框架 控件 的 标题 前 景色 改 为 红色 ， 如 图 16-15 所 示 。 


Framel Fyrame 惠 
技 字母 序 按 分 类 序 | 











图 16-15 在 属性 窗口 中 更 改 控 件 属性 


16.2.8 字体 

只 要 和 文字 有 关 的 控件 ， 基 本 都 有 字体 (Font) 属性 设置 。 通 过 属性 对 话 框 设置 控件 的 
字体 非常 简单 ， 单 击 属 性 窗口 中 “字体 ”下 的 “Font”( 见 图 16-16)， 弹 出 “字体 ”对 话 框 ， 
如 图 16-17 所 示 。 
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9 图 16-17“ 字 体 ” 对 话 杠 


如 果 运行 期 间 用 代码 读 写 控件 字体 属性 ， 可 以 对 控件 的 Font 成 员 对 象 进行 操作 。 下 面 
的 代码 在 运行 期 间 改变 了 标签 控件 的 字体 风格 。 
源 代 码 : 实例 文档 45.xlsm/UserForm5 


1 Private Sub CommandButtonl CLICK 
站 六 With Me.Labell.Font 

3 .Bold = True 

4. -Italic = True 

5. .Name = " 华文 新 魏 本 

6 .Size = 16 

1 End With 

8 End Sub 





单 击 “ 改 变 标 签字 体 ” 按 钮 后 ， 标 签 的 字体 效果 如 
图 16-18 所 示 。 

在 窗 体 运行 期 间 ， 对 任何 控件 的 属性 改变 都 只 在 窗 体 
运行 期 间 有 效 。 窗 体 凶 载 后 ,一 切 属 性 回归 到 设计 阶段 时 | 
的 状态 。 图 16-18 ”更改 控件 字体 





16.2.9 Tab 序号 


如 果 窗 体 上 放置 了 多 个 控件 ， 运 行 阶段 按 下 键盘 中 的 【 Tab ] 键 ， 可 以 在 控件 之 间 切 换 
焦点 ,特别 是 当 窗 体 上 有 多 个 需要 录入 的 文本 框 时 ,【 Tab 】 键 顺序 的 设计 就 很 重要 。 

默认 状态 下 ， 窗 体 在 设计 期 间 ， 控 件 安装 放 信 窗 体 的 先后 顺序 规定 了 TabIndex 属性 ， 
先 放 入 控件 的 序号 是 0， 依 次 增 大 。 如 果 以 后 发 生 了 控件 的 删除 、 控 件 的 新 增 ，TabIndex 
就 会 出 现 亲 乱 。 

如 果 忘 记 了 重新 规定 【 Tab 】 键 顺序 ， 用 户 使 用 中 就 无 法 通过 按 下 【 Tab 】 键 切换 到 期 
望 的 控件 上 面 。 

窗 体 设计 期 间 ， 有 两 种 方法 重新 调整 【 Tab ]】 键 顺序 。 第 一 种 方法 是 在 VBA 中 选择 “ 视 
图 ”“Tab 键 顺序 ”命令 ， 弹 出 如 图 16-19 所 示 的 对 话 框 。 
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最 上 面 的 控件 的 TabIndex 是 0， 通过 单 击 该 对 话 框 的 “上 移 “ 下 移 ” 按 钮 调整 。 
第 二 种 方法 是 选中 革 个 控件 ， 直 接 在 属性 窗口 中 找到 TabIndex 属性 ， 输 入 序号 即 可 ， 
如 图 16-20 所 示 。 


Text Boss Tesxtho 


按 字母 序 “ 按 分 类 序 


HelpContextID |0 

IMEMo de D0- fmINEMode 
Nousel con | Wone) 上 
NouseFointer 0 = fnMloaseFoi 



































图 16-19 调整 控件 的 Tab 顺序 图 16-20 属性 窗口 中 更 改 【 Tab 】 键 顺序 
与 【 Tab 】 键 顺序 有 关 的 另 一 个 属性 是 TabStop 属性 ， 默 认 情 况 下 ， 任 何 控件 的 
TabStop 都 为 True， 如 采 在 属性 窗口 中 把 该 属性 设置 为 False， 那 么 在 运行 期 间 按 下 【 Tab j 
键 会 跳 过 该 控件 ， 获 得 不 了 焦点 。 


16.2.10 ”可 用 性 


控件 的 可 用 性 用 Enabled 来 描述 ， 上 默认 情况 下 ， 所 有 控件 都 是 可 用 的 。 但 是 某 些 场合 下 
项 要 禁用 控件 ， 这 就 需要 把 该 控件 的 Enabled 设置 为 False， 这 时 候 窗 口 的 外 观看 起 来 是 灰 
色 的 ， 而 且 不 接受 鼠标 和 键盘 的 任何 行为 。 同 样 ，Enabled 属性 既 可 以 在 属性 窗口 中 设置 ， 
也 可 以 在 运行 期 间 用 代码 设置 。 

源 代 码 : 实例 文档 46.xlsm/UserForm1 


1l. Private Sub CommandButtonl Click{() 
a Me.TextBox] .Enabled = Not Me.TextBoxl .Enabled 
3. End Sub 


代码 分 析 : 单 击 “ 局 用 /禁用 文本 框 ” 按 钮 会 反复 切换 
文本 框 1 的 可 用 性 ， 使 用 Not 关键 字 处 理 布尔 型 的 属性 设 
置 是 一 个 普 裔 的 策略 ， 如 图 16-21 所 示 。 图 16-21 切换 控件 的 可 用 性 





16.2.11 可 见 性 


隐藏 控件 就 需要 把 控件 的 可 见 性 (Visible) 设置 为 False， 这 时 控件 在 窗 体 上 看 不 见 。 
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16.3” 窗 体 与 控件 的 通用 方法 


16.3.1 ”自动 获得 焦点 


窗 体 在 运行 期 间 能 让 某 控件 取得 焦点 的 方法 ， 可 以 通过 鼠标 直接 单 击 ， 也 可 以 按 【Tab ]】 
键 切换 焦点 ， 此 外 ， 还 可 以 通过 SetFocus 方法 目 动 获得 焦点 。 
源 代 码 : 实例 文档 47.xlsm/UserForm 


Private Sub CommandButtonl Clickt) 
Me .TextBoxl .SetFocus 


Private Sub CommandButtonz2 Clickt{) 


1 

- 

3. End sub 
4 

ee Me .TextBox2.SetFocus 
6 


End Sub 
单 击 “ 激 活 文本 框 1” 按 钮 ， 上 面 的 文本 框 目 动 获得 焦 
点 ， 单 击 “ 激 活 文本 框 2” 按 钮 ， 下 面 的 文本 框 自动 获得 焦 
点 ， 如 图 16-22 所 示 。 图 16-22 ”SetFocus 方法 








16.3.2 ”移动 控件 


改变 控件 的 位 置 、 大 小 ， 一 般 情 况 下 改变 控件 的 四 个 属性 即 可 ， 具 体内 容 请 参考 16.2.5 
广 。 也 可 以 使 用 控件 的 Move 方法 ， 同 时 更 改 控件 的 多 个 属性 。 

下 面 的 实例 中 ， 在 用 户 窗 体 上 设置 一 个 文本 框 ， 一 个 按钮 控件 ， 是 CommandButton 1 ， 
其 Caption 是 “改变 位 置 和 大 小 ”; 男 一 个 按钮 控件 是 CommandButton 2， 其 Caption 是 “使 
用 Move 方法”。 

以 下 过 程 分 别 改变 控件 的 每 个 属性 ， 从 而 改变 文本 框 的 位 置 和 大 小 。 

源 代码 : 实例 文档 48.xlsm/UserForm 


Private Sub CommandButtonl Clickt) 
With Me. TextBoxl 
.Left = 30 


.Width = 200 
.Height = 50 


1 

过 

3 

4. .Top = 30 
2 

6 

1 End With 
8 


End Sub 


窗 体 启动 后 ， 单 击 “ 改 变 位 置 和 大 小 ”按钮 ， 文 本 框 的 Left、Top、Width、Height 属性 
也 可 以 使 用 Move 方法 ， 一 次 性 改变 文本 框 的 位 置 和 大 小 。 
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源 代 码 : 实例 文档 48.xlsm/UserForm 
1l. Private Sub CommandButtonz Clickt) 
a Me .TextBoxl .Move Left:=20, | 


Top:=20, Width:=] 30, Height:=40 
改变 位 置 和 大 小 | 


3. End Sub 


窗 体 的 运行 效果 如 图 16-23 所 示 。 





16.3.3 ”改变 革 放 次 序 16-23 ”两 种 改变 控件 位 置 和 大 小 的 方法 


窗 体 上 的 控件 一 般 是 按照 一 定 顺序 整齐 地 排列 在 窗 体 上 ， 控 件 就 像 是 工作 表 上 插入 的 
图 片 ， 如 果 图 片 之 间 间 隙 不够 ， 就 会 造成 重 羡 。 发 生 重症 时 ， 最 先 插入 到 窗 体 的 控件 被 压 在 
pa 最 后 放 的 控件 置顶 。 如 果 要 重新 调整 羡 放 次 序 ， 可 以 在 窗 体 设计 视图 中 选中 一 个 控 
件 ， 然 后 在 VBA 编辑 锅 中 选择 “格式 ”一 “顺序 ”命令 下 的 子 命令 ， 如 图 16-24 所 示 。 


和 据 每 是 视图 呈 岳 六 四 | 情史 | 调试 加 | 运行 四 工具 加 外接 答 序 向 窗口 WD 帮 县 IH) 








和 巷 至 IB) Girl+J 
旨 ”项 至 底层 [8} 《+ 区 
轩 ”上 尘 一 层 虽 


Fee | 





本 





图 16-24 ”改变 控件 的 攻 放 次 序 
男 外 ， 也 可 以 在 运行 期 间 使 用 Zorder 方法 更 改 有 登 放 次 序 。 
源 代码 : 实例 文档 49.xlsm/UserForm 


Private Sub CommandButtonl Clickt) 
Me .TextBoxl .Order msforms.fmOrder.fmiOrderFront 
End Sub 


Private Sub CommandButtonz2 Click 人 {() 
Me .TextBox4.20Order msforms.fmOrder.fmOrderBack 
End Sub 


1 
2 
3 
4， 
本 
6 
1 

代码 分 析 : 单 击 “ 1# 置 于 最 前 ”按钮 ， 把 文本 框 1 置 于 最 前 ; 单 击 “4# 置 于 最 前 ” 按 
钮 把 文本 框 4 置 于 最 底层 ， 如 图 16-25 所 示 。 

Zorder 方法 只 能 进行 置 硕 、 置 底 操作 ， 不 能 上 移 一 层 和 下 移 一 层 。 

当 VBA 工程 插入 窗 体 后 ， 工 程 的 引用 会 自动 增加 一 个 Microsoft Forms 2.0 Object Li- 


brary 对 象 库 的 引用 ， 如 图 16-26 所 示 。 
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这 样 ， 在 代码 中 就 可 以 使 用 一 些 和 VBA 有 关 的 枚 举 和 常量， 例如 MSForms. fmZOrder. 
fmZOrderFront。 


可 使 用 的 引用 必 ) : 


rms 2.0 Obiect Librarvw 
Ci Wimdows syst ema "FH2D. DLL 





图 16-25 ”改变 控件 的 合 放 次 序 图 16-26 工程 引用 对 话 框 


16.4 ” 窗 体 与 控件 的 事件 


VBA 的 窗 体 和 控件 与 使 用 者 的 交互 主要 是 通过 鼠标 和 键盘 的 操作 来 实现 的 ， 因 此 大 部 
分 事件 都 与 鼠标 、 键 盘 行 为 有 关 。 

窗 体 和 控件 的 事件 代码 编写 与 工作 表 事 件 的 编写 方法 是 一 样 的 ， 首 先 在 代码 视图 中 选择 
控件 名 称 ， 然 后 在 右 侧 的 事件 列表 中 选择 一 个 事件 名 称 ， 就 可 以 自动 在 代码 窗 格 中 产生 事件 
模板 ， 如 图 16-27 所 示 。 

在 事件 过 程 中 ， 也 可 以 用 Call 关键 字 调 用 标准 模块 中 的 过 程 和 滑 数 。 


Private Sub CommandBtittonl Click() 


End Sub 





图 16-27 窗 体 和 控件 的 事件 模块 
控件 的 事件 众多 ， 按 照 大 体 类 别 进行 划分 ， 其 分 类 如 表 16-2 所 示 。 


表 16-2 常见 事件 名 称 分 类 


事件 大 体 分 类 事件 名 称 功 能 


激活 、 取 得 焦点 | Activate 、Enter 当 控 件 取得 焦点 成 为 活动 控件 时 发 生 





失 活 、 失 去 焦点 | DeActivate、Exit 当 控 件 失 去 焦点 成 为 非 活 动 控 件 时 发 生 
鼠标 Click、DoubleClick、MouseDowan、MouseUp 、 当 鼠 标 单 击 控件 时 发 生 

MouseNMove 
键盘 KeyDown、 KeyUp、 KeyPress 当 在 控件 上 按键 时 发 生 





关于 事件 的 详细 使 用 方法 ， 后 面 草 中 将 按照 控件 类 别 穿 插 介 绍 。 
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16.5 ” 窗 体 使 用 技巧 


前 面 已 经 讲 过 窗 体 设计 的 最 基本 步骤 和 流程 ， 如 果 更 详细 地 定制 窗 体 的 外 观 和 行为 ， 还 
需要 学 习 一 些 技巧 。 





16.5.1 ” 窗 体 的 模式 EE 


se 找 分 类 序 

窗 体 的 ShowModal 属性 默认 为 True， 这 种 模式 下 窗 | ssa 5 geese 
体 运行 起 来 后 ， 用 户 不 能 操作 工作 表 (除非 窗 体 上 使 用 || Bi 
了 RefEdit 控件 )。 但 是 有 些 时 候 需 要 在 窗 体 不 关闭 的 情 
况 下 仍然 可 以 编辑 工作 表 ， 此 时 从 属性 窗口 把 用 户 窗 体 的 
ShowModal 更 改 为 False， 如 图 16-28 所 示 。 

更 改 为 False 后 ， 运 行 窗 体 ， 可 以 在 不 关闭 用 户 窗 体 的 
情况 下 ， 在 工作 表 中 进行 操作 。 pp 
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16.5.2 ”设置 窗 体 的 字体 


在 用 户 窗 体 的 属性 对 话 框 中 可 以 看 到 “字体 ”属性 ， 更 改 窗 体 的 字体 属性 后 ， 当 时 看 不 
到 什么 变化 和 效 采 。 

这 个 属性 更 改 主要 会 影响 到 后 续 新 增 的 控件 的 字体 属性 。 假 如 预先 把 窗 体 的 字体 设置 为 
“隶书 三 号 ”"， 那么 再 往 窗 体 上 插入 文本 框 、 标 签 等 控件 ,这些 控 件 的 字体 默认 服从 窗 体 的 
字体 设置 。 因 此 在 窗 体 设计 时 养 成 一 个 习惯 ， 束 是 首先 设置 窗 体 的 字体 ， 以 后 控件 的 字体 
束 不 需要 一 一 设置 了 。 因 为 一 般 情况 下 ， 所 有 控件 的 字体 大 小 都 是 一 样 的 ， 否 则 看 起 来 不 
舒服 。 





16.5.3 ”设置 窗 体 背 景 图 片 


除了 可 以 设置 用 户 窗 体 的 背景 闻 色 外 ， 还 可 以 像 工 作 表 一 样 设置 痛 景 图 片 。 在 VBA 编 
辑 融 的 属性 窗口 中 ， 单 击 “ 按 分 类 序 "， 选 择 用 户 窗 体 ， 然 后 找到 Picture 属性 ， 浏 览 电脑 中 
的 一 张 图 片 即 可 ， 如 图 16-29 所 示 。 

育 景 图 片 会 跟随 工作 汶 一 起 保存 ， 因 此 磁盘 中 的 图 片 重 命名 或 者 删除 ， 也 不 会 影响 到 用 
户 窗 体 的 背景 。 

窗 体 设置 背景 图 后 ， 默 认 按 照 图 片 的 实际 大 小 放置 于 窗 体 中 央 ， 并 且 ， 窗 体 再 大 也 只 显 
示 一 张 图 片 。 

还 可 以 设置 PictureAlignment 属性 以 及 更 改 图 片 的 对 齐 方 式 ( 苔 景 图 在 窗 体 中 的 位 置 )。 

PictureSizeMode 属性 用 来 更 改 图 片 的 裁 坦 方式 ， 可 以 取 以 下 三 个 枚 举 值 。 

口 MSForms.fmPictureSizeMode.fmPictureSizeModeClip : 默认 状态 ， 按 照 图 片 实际 大 小 

呈现 ， 如 果 痛 景 图 比较 小 ， 会 有 空 日 处 。 
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口 MSForms .fmPictureSizeMode.fmPictureSizeModeStretch : 拉 伸 模式 ， 背 景 图 会 目 动 适 
应 徐 体 大 小 ， 铺 满 屏 舌 ， 这 将 会 导致 背景 图 失去 原 有 的 纵 模 比 。 

口 MSForms .fmPictureSizeMode.fmPictureSizeModeZoom : 缩放 模式 ， 这 种 模式 不 改变 
图 片 的 纵横 比 ， 但 是 根据 窗 体 大 小 ， 目 动 等 比例 缩放 图 片 。 

此 外 ， 还 可 以 设置 PictureTiling 属性 为 True， 从 而 实现 砖 块 形式 
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图 16-29 设置 窗 体 的 背景 图 片 


上 重复 使 用 背景 图 片 去 铺 满 窗 体 。 
PictureTiling 属性 为 True 时 的 效果 如 图 16-30 所 示 。 





16-30 





地 板 砖 平 铺 方式 


也 就 是 在 窗 体 
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16.5.4 ” 窗 体 铺 满 整个 屏 界 


VBA 的 用 户 窗 体 没 有 最 大 化 的 功能 ， 在 不 知道 电脑 分 辨识 的 情况 下 ， 下 接 改 变 User- 
Form 的 宽度 和 高 度 是 实现 不 了 的 。Excel 应 用 程序 窗口 可 以 最 大 化 ， 而 且 Application 对 象 
也 有 Width 和 Height 属性 ， 因 此 可 以 倩 助 这 个 联系 来 实现 。 

下 面 在 窗 体 的 启动 事件 过 程 中 ， 先 把 Excel 最 大 化 ， 然 后 利用 窗 体 的 Move 方法 ， 把 窗 
体 放 在 屏 知 最 左上 角 ， 宽 度 和 局 上 度 与 Excel 的 一 致 。 

源 代码 : 实例 文档 50.xlsm/UserForm 

Private Sub UserForm Initialize{() 


Application.WindowSstate = Excel.XlWindowSstate.xlMaximized 


1] 

2 

二。 Me .Move 0, 0, Application.Width, Application.Height 

4 Application.WindowSstate = Excel.XlWindowSstate.xlNormal 


End Sub 


16.5.5 ” 窗 体 的 局 动 和 关闭 事件 


窗 体 在 显示 在 屏 项 之 前 会 激活 Initialize 事件 ， 可 以 在 该 事件 过 程 中 写 一 些 属 性 预 设 的 
代码， 或 者 把 外 部 数据 它 载 到 控件 中 。 

一 般 ， 用 户 单 击 窗 体 右上 角 的 “关闭 ”按钮 可 以 关闭 窗 体 。 还 有 一 种 方法 是 使 用 代码 ， 
可 以 使 用 Unload UserForm 语句 来 天 闭 窗 体 。 

有 两 个 事件 和 徐 体 的 关闭 行为 有 关 : 一 个 是 Terminate 事件 ; 为 一 个 是 QueryClose 事件 。 
其 中 ，Terminate 事件 不 审 参 数 ， 也 驶 是 说 不 管 采 用 哪 种 方式 关闭 窗 体 ， 都 会 激活 Terminate 
事件 ， 而 且 必 须 关 闭 ， 不 能 取消 ; 而 QueryClose 事件 不 仅 可 以 识别 窗 体 是 用 哪 种 方式 关闭 
的 ， 而 且 能 取消 关闭 。 

QueryClose 事件 的 完整 声明 是 : Private Sub UserForm QueryClose(Cancel As Integer, 
CloseMode As IntegeTr) ， 人 参数 说 明 如 下 。 

D Cancel: 上 默认 为 False ， 如 果 设 置 为 Trme， 则 取消 关闭 。 

D CloseMode : 关闭 方式 。 如 采用 鼠标 单 击 “ 关 闭 ” 按 钮 天 财 窗 体 ， 该 属性 为 枚 举 向 量 
VBA.VbQueryClose.vbFormControlMenu; 如 果 是 其 他 过 程 中 调用 了 Unload UserForm 
语句 ， 则 CloseMode 为 VBA.VbQueryClose.vbFormCode。 

以 下 代码 演示 了 生 接 单 击 右 上 角 的 “关闭 ”按钮 不 能 关闭 窗 体 ， 只 有 单 击 窗 体 上 的 命令 

按钮 才 可 以 关闭 。 

源 代 码 : 实例 文档 51.xlsm/UserForm 


Private Sub CommandButtonl Click!{) 
Unload Me 
End Sub 


Private Sub UserForm QueryClose (Cancel As lInteger, CloseMode As Integer) 
If CloseMode = VBA.VbhQOueryClose.vbhFormControlMenu Then 
MsgBox " 你 直接 单 击 叉 形 按 钮 ， 不 能 关闭 ! " 


Cancel = True 


424 Office VBA 开发 经 典 一 一 基础 入 门 卷 


8. Elself CloseMode = VBA.VbhQueryClose.vbhFormCode Then 
3 MsgBox " 单 击 命令 按钮 关闭 我 ! " 

10. Else 

11. MsgBox CloseMode 

12. End I 


13. End Sub 


代码 分 析 : 命令 按钮 的 单 击 事件 的 作用 是 关闭 窗 体 ， 窗 体 的 关闭 前 事件 中 要 判断 关闭 的 
方式 ， 如 采 单 击 义 形 按钮 ， 就 设置 Cancel 为 True， 取 消 关 闭 。 


16.6 ”命令 按钮 使 用 技巧 


命令 按钮 控件 (CommandButton) 通过 鼠标 单 击 执行 过 程 ， 是 窗 体 设计 中 最 常用 的 控 
件 。 命 令 按 钮 的 文字 用 Caption 属性 设 定 ， 命 令 按钮 的 事件 使 用 Click 事件 。 


16.6.1 目 动 调整 按钮 大 小 \ 


命令 按钮 和 标签 控件 有 一 个 AutoSize 属性 ， 默 认为 False。 如 有 果 改 为 True 以 后 ， 标 题 文 
字 增 多 ， 控 件 随 之 变 大 。 控 件 大 小 与 容纳 的 文字 多 少 有 关 。 

如 有 果 要 把 命令 按钮 的 Caption 属性 设置 为 多 行文 本 ， 可 以 在 窗 体 设 计 模 式 时 ， 用 鼠标 单 
击 命令 按钮 ， 在 需要 换行 的 地 方 按 下 快捷 键 【 Ctrl+Enter 】 换行 。 如 果 运 行 期 间 使 用 代码 赋 
值 ， 则 可 以 用 vbNewline 来 实现 换行 。 

以 下 代码 设置 命令 按钮 的 AutoSize 属性 为 Trne， 并且 
更 改 标题 文字 为 多 行文 本 。 

源 代 码 : 实例 文档 52.xlsm/UserForm 





1l. Private Sub CommandButtonl Clickt{) 

pA Me.CommandButtonl .AutoSize = TIue 

BS Me .CommandadButtonl .Caption = "Excel™" 
& vbhNewLine & "VBA" 

4. End Sub 


窗 体 运行 效果 如 图 16-31 所 示 。 图 16-31 按钮 控件 的 多 行 标 题 





16.6.2 ”点 认 按 钮 和 退出 按钮 


命令 按钮 有 一 个 Default 属性 ， 该 属性 是 布尔 值 ， 默 认为 False。 如 果 设 置 为 True， 则 窗 
体 在 运行 期 间 不 需要 鼠标 单 击 该 按钮 ， 只 需要 按 下 【 Enter 】 键 就 可 以 执行 该 控件 的 Click 事 
此 外 还 有 一 个 Cancel 属性 ， 该 属性 是 布尔 值 ， 默 认为 False。 如 末 设 置 为 True， 则 窗 体 
在 运行 期 间 不 需要 鼠标 单 击 该 按钮 ， 只 需要 按 下 【 Esc 】 键 就 可 以 执行 该 控件 的 Click 事件 
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下 面 的 实例 演示 在 窗 体 设计 期 间 ， 预 设 CommandButtonl (其 标题 为 “确定 ”) 的 
Default 属性 为 True， 并 设置 CommandButton2 (其 标题 为 “退出 ”) 的 Cancel 属性 为 True。 
源 代 码 : 实例 文档 53.xlsm/UserForm1 


1l. Private Sub CommanadButtonl Click!{) 
2. MsgBox " 你 好 ! " 

3. End Sub 

4. Private Sub CommandButtonz Clickt) 
Unload Me 

6. End Sub 


窗 体 运行 后 ， 按 下 【 Enter 】 键 ， 弹 出 “你 好 !”， 按 下 
【 Esc 】 键 直接 关闭 窗 体 ， 如 图 16-32 所 示 。 


16.6.3 ”设置 控件 的 提示 语 


当 鼠 标 移动 到 控件 上 方 时 ， 还 未 单 击 ， 这 时 候 出 现 提示 
语 。 这 个 可 以 用 设置 控件 的 ControlTipText 属性 来 实现 。 

在 属性 窗口 设置 命令 按钮 的 ControlTipText 属性 ， 窗 体 
运行 后 ， 按 钮 和 劣 边 有 一 句 提 示 语 ， 如 图 16-33 所 未 。 





图 16-33 ”设置 控件 的 提示 文本 


16.6.4 ”为 按钮 设置 加 速 键 


按钮 的 单 击 事件 ， 除 了 用 鼠标 单 击 按钮 执行 之 外 ， 还 可 以 设置 加 速 键 ( Accelerator) 来 
执行 。 在 属性 窗口 中 ， 设 置 Accelerator 属性 为 一 个 大 写 英文 字母 ， 例 如 了 ， 窗 体 运行 时 可 以 
按 下 【 Alt+T ] 键 来 执行 命令 按钮 的 Click 事件 。 


16.6.5 “设置 鼠标 指针 


控件 的 MousePointer 属性 可 以 使 用 MSForms. 
fmMousePointer 下 面 10 多 个 内 置 枚 举 稼 量 ， 如 图 16-34 
(和 部 Commandbutt onl 
所 示 。 每 一 个 枚 举 常量 对 应 一 个 鼠标 外 观 ， 当 鼠标 移动 | 站 eee 


a 本 | 庐 亚 民 标 指 计 
到 控件 上 方 时 ， 鼠 标的 指针 外 观 会 改变 。 全 


下 面 把 MousePointer 属性 设置 为 2-fmMousePointer 
Cross， 窗 体 运 行 后 ， 鼠 标 移动 到 按钮 上 方 ， 指 针 有 目 动 
改变 ， 如 图 16-35 所 示 。 As 

如 果 把 MousePointer 设置 为 fnMousePointerCustom ， 

就 可 以 月 定义 鼠标 指针 了 。 这 时 候 需 要 更 改 MouseIcon Re 
属性 ， 浏 览 到 电脑 中 的 一 个 图 标 文件 (最 好 是 .ico 文件 dn 
或 .cur 文件 )， 即 可 实现 通过 鼠标 指针 使 用 自 定义 图 片 ， 图 16-34 设置 控件 的 鼠标 指针 样式 
如 图 16-36 所 示 。 
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图 16-35 ”更改 控件 的 鼠标 指针 样式 图 16-36 使 用 电脑 中 的 图 片 作 为 鼠标 指针 


16.7 “标签 


标签 (Label) 控件 经 稼 作为 其 他 控件 的 说 明 性 标注 文 
字 使 用 ， 黑 认 状 态 下 标签 控件 的 文字 是 左 对 齐 的 。 在 属性 窗 
口中 更 改 其 TextAlign 属性 ， 将 其 可 以 设置 为 大 中、 布 对 齐 ， 
如 图 16-37 所 示 。 





16.7.1 设置 标签 的 边框 


默认 状态 下 ， 标签 控 件 的 边框 是 看 不 到 的 ， 更 改 BorderStyle 属性 为 ftmBorderStyleSin- 
gle， 即 可 看 到 标签 边框 。 同 时 还 可 以 更 改 BorderColor 属性 ， 实 现 更 改 边框 线 颜 色 的 功能 。 


16.7.2 ”标签 的 自 适应 


标签 的 AutoSize 属性 默认 为 False， 这 种 情况 下 ， 无 论 Caption 中 输入 了 多 长 的 内 容 ， 
标签 控件 的 宽度 和 高 度 维 持 不 变 。 
AutoSize 属性 设 为 True 后 ,标签 的 大 小 会 随 看 Caption 文本 的 长 度 目 动 调整 。 


16.7.3 ”文本 自动 换行 


如 末 在 标签 中 输入 比较 长 的 一 句 话 ， 而 标签 的 宽度 有 限 ， 
默认 情况 下 只 显示 部 分 标题 文字 ， 如 有 果 设 置 WrapText 属性 为 
True 时 ， 标 题 文字 会 目 动 回 折 。 

以 下 两 个 标签 控件 ， 其 中 Labell 的 WrapText 属性 为 False， 
Label2 的 WrapText 属性 为 True， 设置 两 个 标签 的 Caption 属性 
为 同一 句 话 ， 但 运行 效 末 是 不 一 样 的 ， 如 图 16-38 所 示 。 图 16-38 ”自动 换行 属性 














16.8 ”文本 框 


文本 框 ( TextBox) 控件 与 标签 控件 的 很 多 属性 是 相 类 似 的 ， 但 是 文本 框 有 Text 属性 ， 
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没有 Caption 属性 。 
16.8.1 ”锁定 文本 框 


正常 情况 下 ， 文 本 框 可 以 用 键盘 输入 内 容 ， 如 果 设 置 文本 框 的 Enabled 属性 为 False， 
就 禁用 文本 框 。 另 外 ， 也 可 以 设置 文本 框 的 Locked 属性 为 True， 这 时 候 文 本 框 看 上 去 可 以 
接受 输入 ， 实 际 上 仍 处 于 锁定 状态 ， 不 能 接受 键盘 输入 。 这 种 状态 下 ， 可 以 用 VBA 代码 更 
改 文字 内 容 。 


16.8.2 ”制作 密码 输入 框 


属性 窗口 中 设置 文本 框 控 件 的 PasswordChar 为 单个 字符 ， 
例如 *， 窗 体 在 运行 时 ， 不 论 输 入 什么 内 容 一 律 显 示 为 多 个 *， 
如 图 16-39 所 示 。 | 
如 果 取 消 这 种 密码 效果 ， 清 除 PasswordChar 为 空 字符 即 可 。 图 16-39 ”密码 输入 文本 框 





16.8.3 ”限制 输入 长 度 


文本 框 控 件 的 MaxLength 属性 默认 为 0， 含义 是 不 限 文 本 长 度 ， 如 果 更 改 该 属性 为 10， 
则 最 多 能 输入 10 个 字符 。 


16.8.4 ”多 行 模 式 


MultiLine 是 文本 杠 很 重要 的 一 个 属性 ， 默 认 情 况 下 ， 该 属性 为 False。 即 便 设 置 Text 为 
多 行文 字 ， 也 显示 为 一 行 。 如 采 把 MultiLine 改 为 True， 就 可 以 正常 地 显示 多 行文 本 了 了 。 

如 果 文 本 框 的 用 途 是 输入 人 名 、 手 机 号 、Email 等 ， 适 合 设置 为 单行 模式 。 如 果 用 文本 
框 制作 文档 编辑 控件 ， 或 者 显示 长 篇 大 论 的 文 曹 时， 一 定 要 设置 为 多 行 模 式 。 


16.8.5 “文本 框 的 滩 动 条 


如 采 文 本 框 内 容 很 多 时 ， 没 有 滚动 条 会 很 不 方便 。 文 本 框 的 滚动 条 是 由 ScrollBars 属性 
决定 的 。 该 属性 可 以 取 如 下 四 个 枚 举 值 。 

D fmScrollBarsNone: 不 市 滚动 条 。 

D fmScrollBarsHorizonal: 水 平 滚动 条 。 

D fmScrollBarsVertical: 垂直 滚动 条 。 

D fmScrollBarsBoth: 水 平和 垂直 两 者 都 有 。 

在 属性 窗口 中 可 以 设置 文本 框 的 滚动 条 ， 如 图 16-40 所 示 。 

下 面 的 文本 框 用 于 显示 一 自古 证 ， 同 时 使 用 卫 水平、 垂下 深 动 条 的 效果 。 步 又 如 下 : 在 
窗 体 上 插入 一 个 文本 框 ( TextBox) 控件 ， 然 后 设置 该 控件 的 MultiLine 属性 为 True。 为 了 显 
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示 水 平 深 动 条 ， 必 须 设置 该 控件 的 WrapText 属性 为 False， 也 就 是 不 自动 回 折 。 然 后 把 《长 
恨 歌 》 的 部 分 内 容 设置 为 该 控件 的 Text 属性 。 最 后 设置 文本 框 的 ScrollBars 属性 为 fmScroll- 
BarsBoth。 窗 体 运 行 后 效果 如 图 16-41 所 示 。 





TextBoxl Textbox 


片 对 > 者 山 广 斗 关 上 各 车 加 
为 舍 > 忆 HH 号 短 亲 和 前 > | 浊 守 


Co 





0 = fhnScrollBbarsione 
0 1 - fm3crollBarsHorirzontal 
Ee 2 一 fmn3erollBarsVertical 
AutoTab 3 - fmsecrollBarsBoth 


图 16-40 “文本 框 的 滚动 条 图 16-41 ”文本 框 的 垂直 滚动 条 


全 
2 
久久 


人 | 


























16.8.6 ”自动 重 置 和 验证 文本 


利用 文本 框 的 焦点 进入 事件 Enter 和 焦点 退出 事件 Exit， 可 以 实现 手机 号 的 默认 值 和 验 
证 功能 。 

实例 中 ， 在 窗 体 上 放置 两 个 文本 框 ， 第 一 个 文本 框 用 于 输入 姓名 ， 第 二 个 文本 框 用 于 输 
人 手机 号 。 程 序 的 功能 是 ， 当 用 户 用 鼠标 单 击 TextBox2， 上 月 动 输入 手机 的 默认 值 136， 当 输 
人 完毕 试图 单 击 “ 完 成 注册 ”按钮 ， 利 用 Exit 事件 进行 验证 ， 如 果 输 入 的 不 是 11 位 数字 ， 
则 警告 ， 并 且 不 让 用 户 把 焦点 移动 出 去 。 

源 代 码 : 实例 文档 54.xlsm/UserForm2 





1] Private Sub TextBoxz2 Enter () 

a Me .TextBox2.Text = "1]36"™ 

3 End Sub 

4. Private Sub TextBoxz Exit (ByVal Cancel As MSForms.ReturnBoolean) 

a If Me.TextBox2.Text Like "[0-9][0-9] [0-9] [0-93]1[0-93][0-93] [0-9] [0-393] [0-3] 
[0-93] [0-9]” Then 
Else 


MsgBox " 手机 号 格式 不 正确 ， 重 输入 1! "， vbExclamation 
Cancel = True 

End I 

10. End Sub 


代码 分 析 : 文本 验证 功能 除了 使 用 VBA 的 Like 语句 ， 还 可 以 使 用 更 强大 的 正则 表达 
式 ， 不 过 本 书 暂 不 介绍 这 部 分 内 容 。 

Exit 事件 中 ， 参 数 Cancel 设置 为 True 时 ， 不 让 焦点 出 去 ， 只 能 继续 编辑 手机 号 ， 才 能 
离开 。 

窗 体 运 行 后 效果 如 图 16-42 所 示 。 


的 =” 司 
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如 果 手 机 号 还 设 有 完全 和 输入， 就 单 击 “ 完 成 和 注册” 按钮， 会 弹出 警告 对 话 框 ， 如 
图 16-43 所 示 。 





请 输 六 你 的 手机 二: 


| 13693668| 


元 成 注册 





图 16-42 ”验证 是 否 是 手机 号 但 图 16-43 ”警告 对 话 框 


16.8.7” 内容 改变 事件 


文本 框 的 Change 事件 在 当 文 本 框 内 容 发 生 更 改 时 触发 ， 利 用 这 个 功能 可 以 制作 一 个 打 
字 实 时 统计 工具 。 
源 代 码 : 实例 文档 54.xlsm/UserForm3 


1l. Private Sub TextBoxl Change ( ) 


二: Me.Labell.Caption = " 你 输入 的 内 容 是 : " 
& Me.TextBoxl .Text & vbhNewLine & 
nm 字数: " & Len (Me .TextBoxl .Text) 备 期 天 个 知 塌 干 局 什么 好 | 


3. End Sub 

代码 分 析 : 用 户 打字 时 会 激活 Change 事件 ， 有 自动 更 
新 标签 控件 中 的 内 容 ， 提 醒 打 字 的 内 容 以 及 字数 。 效 果 如 | 一 = 2 
图 16-44 所 示 。 图 16-44 一 边 输 入 一 边 统计 








16.8.8 ”使 用 文本 框 的 选 定 状态 


文本 框 有 三 个 重要 的 属性 与 文本 框 当 前 所 选 内 容 有 关 ， 这 三 个 属性 只 能 用 在 代码 中 ， 在 
属性 窗口 中 看 不 到 。 

口 SelStart : 光标 在 文本 中 的 位 置 。 如 末 在 文本 最 左 侧 ， 该 值 为 0 ; 如 采光 标 在 文本 最 

右 侧 ， 该 值 为 文本 框 内 容 长 度 。 

D SelLength: 鼠标 选择 了 的 文本 的 长 度 。 

口 SelText: 鼠标 选择 了 的 文本 的 内 容 。 

以 上 三 个 属性 都 是 可 读 写 的 。 

如 图 16-45 所 示 ， 文 本 框 中 有 “甲乙 两 丁 戊 己 庚 辛 ”8 个 汉字 ， 鼠 标 从 “ 乙 ” 选 到 “ 己 ”， 
这 时 候 光 标 处 于 “ 乙 ” 的 左 侧 ， 因 此 SelStart 为 1， 同时 选中 了 5 个 汉字 ， 因 此 SelLength 为 
5， 而 SelText 就 是 选中 的 5 个 汉字 内 容 。 

按钮 “获取 鼠标 选 定 信 息 ” 的 单 击 事件 代码 如 下 。 
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源 代 码 : 实例 文档 54.xlsm/UserForm4 


L- Private Sub CommandButtonl Clickt) 

ea MsgBox Me.TextBoxl .Selstart & wvbhNewLine & Me.TextBoxl] .SelLength & 
vbhNewLine & Me.TextBoxl.SelText 

3. End Sub 


单 击 “获取 鼠标 选 定 信息 ”按钮 ， 结 果 如 图 16-46 所 示 。 


Microsoft Excel 


获取 妃 标 选 定 信 息 | 


自动 更 改选 区 | 





图 16-45 文本 的 选 定 状 态 图 16-46 返回 选 定 文 本 的 信息 


按钮 “自动 更 改选 区 ”的 事件 代码 如 下 。 
源 代码 ， 实例 文档 54.xlsm/UserForm4 


1 Private Sub CommandButtonz2 Click!{) 
- Me .TextBoxl .Text = " 子 孔 宽 锋 插 已 午 未 " 
ER Me .TextBoxl.Selstart = 2 2 
子 丑 定 卯 惊 已 午 未 
4. Me .TextBoxl .SelLength = 3 
Sh Me .TextBoxl .SelText = "VBA" 
获取 妃 标 选 定 信息 
Me .TextBoxl .SetFocus 





fs 

1. End Sub 自动 更 改选 区 | 

单 击 该 按钮 ， 会 自动 更 改 光 标 所 选 位置 和 长 度 ， 并 且 
目 动 修改 所 选 文本 ， 如 图 16-47 所 示 。 图 16-47 ”自动 更 改选 择 的 地 方 





16.8.9 ”文本 框 内 容 的 复制 、 粘 贴 


文本 框 内 容 的 复制 、 粘 贴 ， 除 了 使 用 快捷 键 【 Ctrl+C 】[ CtrltV 】 以 外 ， 还 可 以 使 用 
VBA 代码 目 动 复制 和 粘贴 。 

VBA 工程 中 如 果 有 用 户 窗 体 ， 就 自动 引入 了 MSForms 对 象 库 ， 可 以 使 用 其 中 的 
DataObject 对 象 与 剪贴 板 进行 数据 交换 。 

下 面 的 实例 目 动 把 控件 内 容 发 送 到 更 贴 板 ， 以 及 目 动 从 蔓 贴 板 获 取 内 容 。 以 下 是 两 个 按 
钮 控件 的 单 击 事件 。 

源 代 码 : 实例 文档 54.xlsm/UserForm5 


Dim D As MSForms.DataObject 

Private Sub CommandButtonl CLICK 
Set D = New MSForms.DataOb ject 
D.SetText Me.TextBoxl .Text 
D.PutIinClipboard 

End Sub 

Private Sub CommandButtonz2 CLICK 
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8. Set D = New MSForms.DataObject 
-a D.SGetFromClipboard 
10. Me .TextBoxl .Text = Me.TextBoxl.Text & D.GetText 


ll1i. End Sub 


代码 分 析 : 单 击 按钮 1 时 ,创建 一 个 新 的 对 象 ， 把 文 Ea 
本 框 全 部 内 容 发 到 慢 贴 板 。 单 击 按钮 2 时 ， 新 的 对 象 月 动 
从 表 贴 板 获取 文本 数据 ， 并 追加 到 文本 框 末尾 。 运 行 结 果 
如 图 16-48 所 示 。 

虽然 文本 框 控件 也 有 Copy、Cut 和 Paste 方法 ,但 是 
运行 不 太 稳定 ， 不 推荐 使 用 。 图 16-48 ”与 剪贴 板 的 交互 


昌 制 文本 框 内 闪 到 郁 贴 板 


4 名 由 板 内 容 到 文本 杠 | 





16.9” 喇 应 键盘 按键 的 事件 


VBA 的 很 多 控件 上 有 具有 KeyDown、KeyUp 和 KeyPress 三 个 键盘 事件 。 其 中 ，KeyDown 
和 KeyUp 事件 与 输入 的 字符 没关系 ， 只 与 键盘 的 按键 有 关系 ; 而 KeyPress 事件 和 ASCII 字 
符 有 关 。 因 此 ， 在 使 用 这 三 个 事件 时 ， 如 果 只 需要 识别 按键 ， 则 使 用 前 两 个 ; 如果 需 要 识别 
到 具体 输入 的 字符 ， 则 需要 使 用 KeyPress。 

打 一 个 比方 ， 在 一 个 文本 框 中 按 下 了 快捷 键 【 Ctrl+K 】 手指 按 下 快捷 键 的 时 候 啊 应 
KeyDown 事件 ， 松 开 快 捷 键 时 啊 应 KeyUp 事件 。 

如 采 在 文本 杠 中 按 下 快捷 键 【 Shifttm 】 时 输入 了 一 个 大 写 M， 那 么 这 个 M 束 是 Key- 
Press 事件 的 一 个 返回 参数 。 


16.9.1 按 下 快捷 键 天 团 窗 体 


KeyDown 事件 的 完整 声明 是 : 
KeyDown (ByVal KeyCode As MSForms.Returnlinteger, BYVal shift As Integer) 


其 中 ， 参 数 KeyCode 是 键盘 按键 第 量 ，Shift 是 辅助 键 标识 。 
在 代码 中 输入 键盘 第 量 时 ， 输 入 VBA.KeyCodeConstants 加 一 个 小 数 点 ， 就 可 以 看 到 所 
有 键盘 稼 量 ， 具 体 如 表 16-3 所 示 。 


表 16-3 ”VBA 键盘 常数 
功能 键 [Fl1】~ 【Fl12]】 | vbKeyF1l ~ vbKeyF12 vbKeylInsert 
顶 排 [1~9j] 到 [0]】 vbRKeyl ~ vbKey9 vbKeyHome 
26 个 字母 键 vbKeyA ~ vbKeyZ vbKeyEnd 
左右 方 回 键 vbKeyLefvbKeyRight vbKeyPageUp 
上 下 方 回 键 vbKeyUp,vbKeyDown vbKeyPageDown 
数字 键盘 [0 ~ 9]】 vbKEeyNumpad0 ~ vbKEeyNumpad9 vbKEeyCapltal 
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退出 键 【 Esc ]】 删除 键 【 Delete 儿 Del ] | vbKeyDelete 
铺 助 键 [ Shift 】 vbKeyNumlock 
辅助 键 【Alt vbKeyAd 
辅助 键 【 Ctrl 】 vbKeyControl vbKeySubtract 
刘 格 键 【BackSpaee ] beyDivide 
加 车 键 【 Enter ] | 


辅助 键 标识 Shift 参数 ， 可 以 取 值 为 以 下 数字 或 数字 组 合 之 和 。 

D 1: 表示 按 下 【 Shift 】 键 。 

口 2: 表示 按 下 【 Ctrl ]】 键 。 

D 4: 表示 按 下 【 Alt 】 键 。 

如 采 要 表达 同时 按 下 【 Ctrl 】 与 【 Shift 】 键 ， 则 shift=1+2。 

以 下 实例 实现 了 窗 体 在 运行 期 间 按 下 快捷 键 【 Ctrl+W 】 就 关闭 窗 体 。 
源 代码 : 实例 文档 55.xlsm/UserForm1 








1L1- Private Sub UserForm KeyDown (ByVal KeyCode As MSForms.Returnlinteger, ByVal 
Shift As Integer) 


之 工 KeyCode = VBA.KeyCodeConstants.vbhKeyW And Shitt = 2 Then 
BS Unload Me 

= End I 

| End Sub 


代码 分 析 : 按 下 快捷 键 后 ,会 触发 用 户 窗 体 的 KeyDown 事件 ， 该 事件 中 KeyCode 参数 
和 Shift 参数 的 组 合 就 是 快捷 键 [【 Ctrl+W ]】。 


16.9.2” 松 开 快 捷 键 让 文本 框 内 容 倒 序 


KeyUp 事件 与 KeyDown 事件 的 参数 完全 相同 ,不同 的 是 ， 当 松 开 快捷 键 时 才 触 发 ， 而 
不 是 按 下 快捷 键 时 触发 。 

下 面 的 实例 实现 当 焦点 在 文本 框 时 按 下 快捷 键 【 Ctrl+ShiftrR ]， 然 后 绥 慢 松 开 按 键 ， 会 
看 到 文本 框 的 内 容 发 生 倒序 。 

源 代 码 : 实例 文档 55.xlsm/UserForm2 

1- Private Sub TextBoxl KeyUp (ByVal KeyCode As MSForms.Returninteger, ByVal 
Shift As Integer) 

If KeyCode = VDPDKEeYR And shift = 1] + 2 Then 

Me .TextBoxl .Text = VBA.StrReverse (Me.TextBoxl .Text) 


End 工 工 
End Sub 
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代码 分 析 : 第 2 行 代码 中 ，Shift=1+2 表示 同时 按 下 
【 Ctrl 】 与 【 Shift 】， 第 3 行 代码 中 StrReverse 困 数 的 功能 
是 字符 串 倒序 。 


| / | 丁 丙 乙 遇 | 
运行 结果 如 图 16-49 所 示 。 | 


16.9.3 ”识别 和 修改 输入 的 字符 


按 下 【Ctrl+Shift+R] 让 文本 例 序 





KeyPress 事件 可 以 返回 用 户 输入 的 单个 字符 的 ASCIHI 图 16-49 ” 松 开 按键 的 事件 
码 值 。 其 完整 声明 是 : 

KevyPpress (ByVal Kevascii As MSForms.ReturnIinteger) 
其 中 ， 参 数 KeyAscii 就 是 字符 的 ASCII 码 值 。 

下 面 的 实例 实现 在 文本 框 中 只 要 输入 小 写字 母 就 出 现 大 写字 母 。 

源 代码 : 实例 文档 55.xlsm/UserForm3 


于 Private Sub TextBoxl KeyPress (ByVal KeyAscii As MSForms.ReturnIinteger) 
2 If KeyAscili >= Asc("a") And KeyAsci1 <= Asc("z") Then 

KeyAscili = KeyAscil 一 32 

4 End If 

3 End Sub 


代码 分 析 : 修改 KeyAscii 值 ， 就 相当 于 重新 输入 。 如 果 把 上 述 过 程 改 为 : 


Private Sub TextBoxl KeyPress (ByVal KeyAscii As MSForms.Returninteger) 
KeyAscil1 = Asc("K") 
End Sub 


则 无 论 输入 任何 内 容 ， 文 本 框 中 都 出 现 一 连 串 的 K， 没 有 其 他 字符 。 


16.10 ”组 合 框 


组 合 框 (ComboBox) 与 16.11 节 要 讲述 的 列表 框 (ListBox) 控件 ， 都 是 用 来 处 理 多 个 条 
目的 数据 的 控件 ， 在 学 习 上 联系 以 前 数组 的 学 习 方法 ， 就 容易 得 多 。 

在 编程 实际 应 用 中 ， 可 以 把 各 种 列表 放 人 组 合 框 和 列表 框 控件 ， 例 如 国家 名 称 、 城 市 名 
称 等 ， 只 要 是 多 个 条 目 即 可 。 

默认 的 组 合 框 控件 中 没有 任何 条 目 ， 对 组 合 框 增加 条 目的 方法 有 3 种 : 一 种 是 设置 控件 
的 RowSource 属性 为 单元 格 地 址 (这 个 做 法 只 在 Excel VBA 中 有 效 ); 另 一 种 是 窗 体 在 运行 
期 间 使 用 AddItem 方法 增加 条 目 ; 还 有 一 种 是 设置 控件 的 List 属性 为 一 个 一 维 数组 。 

在 组 合 框 和 列表 框 的 学 习 中 ， 重 点 学 习 条 目的 增加 、 删 除 、 清 空 ， 以 及 获取 控件 的 当前 
状态 。 特 别 要 注意 的 是 ， 组 合 框 和 列表 框 起 始 条 目的 索引 值 是 0， 不 是 1。 
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16.10.1 增加 条 和 目 


组 合 框 可 以 在 设计 期 间 设 置 RowSource 属性 为 单元 格 的 地 址 ， 事 先 在 单元 格 中 输入 条 
目 内 容 。 这 样 窗 体 在 运行 起 来 后 ， 组 合 框 就 有 内 容 了 。 但 是 通过 这 种 方式 ,后 期 不 能 使 用 任 
何方 法 更 改 条 目 ， 例 如 不 能 清空 、 不 能 新 增 ， 也 不 能 删除 任何 条 目 。 

以 下 实例 ,在 A 列 单元 格 输入 一 些 字体 名 称 ， 然 后 回 到 窗 体 设计 视图 设置 组 合 框 的 
RowSource 为 Sheetl!A1:AS， 如 图 16-50 所 示 。 


项 面 布局 。 公式 手电 审 癌 补 图 开 皮 [ 具 可 壤 不 
名 Microsoh Visual Basic for ApPiEEons - 认 全 村 5Evkmmi [ 认 人 六 上 5Em - Uscrfomnl fUscr 司 
:如 文件 昌 ” 编 蝇 昌 视图 WW 插 和 四 覆 Q| 亩 对 DD) 运行 外 工具 目 放 接 得 序 (A) 窗 [ 
: 国 因 : 园 | 基 区 硬 前 | 四 人 国内 | 加 轩 党 夫人 
: 变量 的 使 用 ~ 字符 与 字符 串 处 理 ”还 辑 运 算 ~- 数据 洋 型 ” 千 用 数组 ~ 冬 性 选择 ”循环 拧 侧 -过程 与 函数 
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图 16-50 ”设置 组 合 框 的 数据 源 
然后 为 组 合 框 的 Click 事件 写 和 人 如 下 代码 。 
源 代码 实例 文档 56.xlsm/UserForm1 





1. Private Sub ComboBoxl Click!{) 
pa Me .TextBoxl .Font .Name = Me.ComboBoxl .Text 
3。 End Sub 


代码 分 析 : 当 用 鼠标 选择 组 合 框 中 的 条 目 时 ， 文 本 框 的 字体 格式 与 组 合 框 中 所 选 条 目 一 
致 ， 如 图 16-51 所 示 。 

如 果 不 使 用 单元 格 数据 作为 组 合 框 的 数据 源 ， 则 可 以 使 用 AddItem 一 条 一 条 地 增加 条 
目 。AddItem 不 种 参数 时 ， 默 认 是 逐一 往 后 添加 。 也 可 以 为 AddItem 设置 一 个 参数 ， 这 样 可 
以 在 已 有 条 目的 中 间 位 置 插入 新 条 目 。 

源 代码 : 实例 文档 56.xlsm/UserForm2 


1 Private Sub UserForm Initialize!() 
a Me .ComboBoxl .Clear 

3. Me .ComboBoxl .AddItem " 仿宋 村 

4. Me .ComboBoxl .AddItem " 华文 新 魏 
Me .ComboBoxl.AddItem "隶书 " 

6. Me .ComboBoxl .AddItem "黑体 " 
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7. Me .ComboBoxl .addItem " 微软 雅 黑 "，2 
898. End Sub 


代码 分 析 : 第 2 行 代 码 用 于 清空 组 合 框 所 有 和 条目。 第 7 行 代码 表示 把 “微软 雅 黑 ” 插 人 
到 第 2 个 位 置 (起 始 位 置 是 0)， 因 此 窗 体 局 动 后 ， 组 合 框 外 观 如 图 16-52 所 示 。 


无 月 届 区 后 梓 , 距 起 脚 兴 由 更 找 


| 


| 华文 和 梢 "| 





| | 里 惊 
图 16-51 组 合 框 的 使 用 图 16-52 ”循环 增加 组 合 框 的 条 目 


对 于 有 规律 的 序列 ， 还 可 以 使 用 循环 语句 把 多 条 内 容 添 加 到 组 合 框 中 。 此 外 ， 还 可 以 使 
用 组 合 框 的 List 属性 ， 把 一 个 数组 的 内 容 作为 组 合 框 的 数据 源 。 例 如 : 


Me .ComboBoxl .List = Arrayl(" 夺 天 "| 


束 为 列表 框 增加 了 4 个 条 目 。 





16.10.2 ”删除 条 目 


使 用 RemoveItem 方法 可 以 把 已 有 的 条 目 删除 ， 一 次 删除 一 条 ， 必 须 指 定 索 引 。 例 如 ， 
ComboBox1.Removeltem 2 表示 把 第 2 个 条 目 删 除 ， 删 除 后 其 他 条 目 上 自动 往 前 移动 ， 重 建 驼 
引 ， 以 保证 宗 引 的 连续 性 。 

如 末 要 删除 组 合 框 当 前 选中 的 条 目 ， 使 用 ComboBox1.Removeltem ComboBox1.ListIn- 
dex 即 吕 。 

如 采 要 清空 组 合 框 中 所 有 内 容 ， 使 用 ComboBox.Clear 方法 。 


16.10.3 ”获取 组 合 框 条 目 信 息 


用 鼠标 选择 组 合 框 中 的 一 个 条 日 ，ListIndex 属性 返回 当前 所 选 的 索引 值 ， 如 果 一 个 也 
没 选中 ， 则 ListIndex 为 -1。 

此 外 ， 组 合 框 的 ListCount 属性 返回 组 合 框 的 条 目 总 数 ，ListG) 用 来 获取 索引 为 i 的 条 
目 内 容 ，Text 属性 用 来 获取 列表 框 当前 文本 。 

下 面 的 实例 在 和 窗 体 局 动 时 目 动 增加 4 个 条 目 ， 然后 单 击 命令 按钮 获取 组 合 框 的 条 目 
内 容 。 

源 代码 : 实例 文档 56.xlsm/UserForm3 


1 Private Sub CommandButtonl CLICK 

a Dim 1 As Integer 

3 For 1 = 0 To Me.CcomboBoxl .ListCount 一 1 
44 Debug.Print 1i, Me.ComboBoxl] .List(1) 
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Next 1 

所 Debug.Print ™ 当 前 选 中 的 条 目 ，"，Me .ComboBox1l .ListIndex，Me .ComboBox1l .Text 
1. End Sub 

8. Private Sub UserForm Initialize{() 

9. Me .ComboBoxl .AddItem "北冰洋 " 

10. Me .ComboBoxl .AddItem "太平洋" 

11. Me .ComboBoxl.AddItem " 大西洋" 

12. Me.ComboBoxl .AddItem " 印度 洋 本 








13. End Sub 


窗 体 的 运行 效果 如 图 16-53 所 示 。 
单 击 “ 获 取 组 合 框 信息 ”按钮 后 ， 在 立即 窗口 的 打印 结果 如 图 16-54 所 示 。 


UserForm3 








图 16-53 ” 窗 体 启动 时 自动 添加 条 目 图 16-54 遍历 组 合 框 条 目 信 息 


16.11 列表 框 


与 组 合 框 相 比 ， 列 表 框 (ListBox) 可 以 看 作 是 所 有 条 目 都 能 看 到 的 组 合 框 。 因 为 用 鼠标 
选中 组 合 框 中 的 一 个 条 目 ， 松 开 忌 标 后 列表 如 和 目 动 绑 回 了 。 而 列表 框 中 所 有 条 目 一 直 都 可 以 
看 见 。 

列表 框 的 大 多 数 属性 、 方 法 、 事 件 和 组 合 框 的 几乎 完全 一 样 ， 在 实际 运用 时 套用 组 合 杠 
的 代码 即 可 。 

列表 框 中 条 目 太 多 ， 或 者 每 个 条 目 文字 比较 长 ， 列 表 框 会 日 动 显示 水 平 、 垂 直 深 动 条 。 

以 下 实例 中 ， 窗 体 局 动 时 从 单元 格 区 域 的 A 列 获取 数据 ， 为 列表 框 增加 条 目 ， 单 击 命 
令 按 钮 把 列表 框 中 的 内 容 骨 发 回 到 单元 格 区 域 的 C 列 中 。 

源 代 码 : 实例 文档 57/UserForm1 





Private Sub UserForm Initialize() 
Me .ListBoxl.Clear 


1. Private Sub CommandButtonl Click{) 

Ee Dim 1 As Integer 

3 For 1 = 0 To Me.ListBoxl .ListCount 一 1 

4. Range ("CcC™ & 1+ 1).Value = Me.ListBoxl .List (1) 
ls Next 1 

6. End Sub 

1. 

3 

RE 


Dim Ig As Range 
10. For Each rg In Range("Al:A10") 
Ls Ift IsEmpty(rg) = False Then 
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a Me .ListBoxl.AddItem rg.Value 
1 End If 
14. Next rg 


19. End Sub 


代码 分 析 : 第 7 行 代 码 是 窗 体 的 局 动 事件 ， 在 
该 事件 过 程 中 ,把 A 列 中 的 非 空 日 单元 格 的 内 容 
添加 到 列表 框 中 。 

命令 按钮 的 单 击 事件 中 ， 明 有 历 列 表 框 所 有 条 
目 ， 然 后 把 条 目 内 容 发 回 到 C 列 中 。 运 行 结果 如 
图 16-55 所 示 。 





16.11.1 列表 框 的 单 击 事件 


在 实际 编程 中 ， 列 表 框 的 Click 事件 是 最 常用 事件 。 当 
时 ，ListIndex 属性 返回 -1。 

以 下 实例 ， 窗 体 局 动 事件 中 为 列表 框 添 加 4 个 条 目 。 当 单 击 列表 框 中 任何 一 个 条 目 时 ， 
对 话 框 中 出 现 所 选 条 目的 索引 ， 以 及 所 选 条 目 内 容 ， 并 且 根 据 所 选 条 目 设 置 窗 体 的 背景 色 。 

源 代码 : 实例 文档 57/UserForm2 


鼠标 为 选中 列表 框 中 任何 条 目 














1l. Private Sub ListBoxl Click!() 

A Select Case Me.ListBoxl .ListIndex 

卫 。 Case 0: Me.BackColor = VbRed 

4. Case 1: Me.BackColor = VvbBlue 

i Case 2: Me.BackColor = vbhGreen 

6G. Case 3: Me.BackColor = vbhYellow 

1. End Select 

8. MsgBox ™ 你 选中 了 第 ”下 Me.ListBoxl .LI3StInOqeX & " 条 ， 内 容 是 : " & Me.ListBoxl. 


List (Me.ListBoxl .ListIndex) 
9. End Sub 
10. Private Sub UserForm TInitialize() 
11. Me .ListBoxl.List = Array(" 红色 "，" 蓝 色 "， "绿色 "，" 黄色 ") 
ll]2. End Sub 


窗 体 运 行 结 果 如 图 16-56 所 示 。 


UserForm2 


| 你 选中 了 第 2 条 ,内容 是 : 绿色 























图 16-56 根据 组 合 框 内 容 设 置 痛 景色 
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16.11.2 ”市 复 选 框 的 多 选 列 表 框 


默认 情况 下 ， 鼠 标 只 能 选中 列表 框 中 的 一 个 条 目 ， 再 选 男 一 个 条 目 时 ， 前 一 个 就 处 于 未 
选中 状态 。 

设置 ListBox 控件 的 MultiSelect 属性 可 以 实现 在 列表 杠 中 选择 多 个 条 目 。 该 属性 可 以 是 
以 下 3 个 枚 举 稼 量 之 一 。 

D ftmMultiSelectSingle: 默认 样式 ， 只 能 选中 一 条 。 

口 fmnMultiSelectMulti， 可 以 选中 多 条 。 

口 fmMultiSelectExtended : 选中 多 条 ， 并 且 可 以 按 住 【 Ctrl 】 键 点 选 ， 按 住 【 Shift 】 键 

连 选 。 

在 多 选 模式 下 ,为 了 看 到 每 个 条 目前 面 的 复 选 框 ， 还 需要 设置 ListBox 控件 的 ListStyle 
属性 。ListStyle 属性 的 枚 举 值 如 下 。 

D fmListStylePlain: 默认 样式 ,不 显示 前 面 的 复 选 框 。 

口 fmListStyleOption: 显示 复 选 框 。 

以 上 两 个 属性 ， 均 可 在 属性 窗口 中 设置 。 

以 下 实例 ， 在 窗 体 上 插入 一 个 列表 框 控 件 后 ， 在 属性 窗口 中 设置 该 控件 的 MultiSelect 
属性 为 fmqMultiSelectMulti， 并 且 设 置 ListStyle 为 fmListStyleOption。 插 入 一 个 命令 按钮 
CommandButtonl ， 其 功能 是 当 用 户 选 中 多 个 条 目 后 ， 在 立即 窗口 打印 选中 的 是 哪些 。 

源 代码 : 实例 文档 57.xlsm/UserForm3 


Private Sub CommandButtonl Clickt{) 
Debug .Print " 您 选中 的 条 目 如 下 : " 
For 1 = 0 To Me.ListBoxl .ListCount 一 1 
Ift Me.ListBoxl .Selected(1i) = True Then 


End If 
Next 1 


1 
2 
3 
= 
> Debug.Print i, Me.ListBoxl .Li1ist (1) 
6 
1 
8 End Sub 

9 


Private Sub UserForm lnitialize() 

10. Me .ListBoxl.List = Array(" 和 红色",，" 蓝 色 "， "绿色 "，" 黄色") 

1]l1. End Sub 

代码 分 析 : 第 9 行 代 人 码 ， 窗 体 一 局 动 ， 就 把 数组 中 的 内 容 作 为 列表 框 的 条 目 。 

第 4 行 代码 中 Me.ListBoxl.SelectedQi) 用 于 判断 第 i 个 条 目 是 否 处 于 选中 状态 ， 如 有 果 选 
中 就 打印 它 的 信息 。 

窗 体 运行 效果 如 图 16-57 所 示 。 

单 击 “ 列 举 选 中 内 容 ” 按 钮 ， 立 即 窗 口 的 结果 如 图 16-58 所 示 。 

对 于 多 选 的 条 目 ， 没 有 现成 的 函数 可 以 直接 获取 哪些 条 目 是 被 选中 的 ， 只 能 从 最 开始 的 
条 目 开 始 遍 历 所 有 条 目 ， 然 后 用 Selected 属性 来 识别 哪 一 个 条 目 是 选中 的 。 
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立即 窗口 


您 选中 的 条 目 如 下 : 
1 蓝 色 





3 黄色 
图 16-57 带 复 选 框 的 列表 框 图 16-58 遍历 选中 条 目的 信息 


16.12” 复 选 框 


复 选 框 (CheckBox ) 和 单 选 按钮 ( OptionButton ) 控件 都 属于 单条 目 控 件 ， 也 就 是 说 复 
选 框 的 标题 文字 (Caption) 只 能 是 一 句 文 本 。 

这 种 控件 只 有 两 个 状态 : 选中 (Value 属性 是 True) 和 未 选中 (Value 属性 是 False)。 

因此 ， 在 程序 处 理 中 ， 要 识别 复 选 框 是 否 已 经 被 勾 选 ， 只 能 通过 Value 属性 来 判断 。 

以 下 实例 用 于 计算 订购 的 电脑 配件 需要 的 总 费用 。 

源 代 码 : 实例 文档 58.xlsm/UserForm 1 


1 Private Sub CommandButtonl] Clickt) 

之 Dim Total As Integer 

E If Me.CheckBoxl .Value = True Then 
4. Total = Total + 180 

二 End If 

6 Ift Me.CheckBox2.Value = True Then 
1 Total = Total + 20 

8 End If 

+ Ift Me.CheckBox3.Value = True Then 
10. Total = Total + 200 

ye End If 

12. MsgBox " 你 需要 付款 (元 ): " & Total 
13. End Sub 


代码 分 析 : 命令 按钮 的 单 击 事件 中 ， 声 明了 一 个 整 型 变量 Total， 初 始 化 为 0， 接 下 来 用 
三 个 下 条 件 判断 ， 分 别 判断 每 个 复 选 框 的 状态 ， 如 果 蘑 项 被 勾 选 了 ， 就 把 对 应 的 金额 加 到 
Total 中 。 

窗 体 运 行 效果 如 图 16-59 所 示 。 

从 本 例 可 以 看 出 ， 各 个 复 选 框 之 间 没 有 任何 联系 ， 是 相对 独立 的 ， 只 不 过 是 把 它们 摆 放 
在 了 一 起 。 根 据 这 个 特点 ， 可 以 设计 多 项 选择 题 。 

在 窗 体 设计 中 ,适当 使 用 复 选 框 控 件 ， 能 让 窗 体 的 效 采 更 加 清晰 、 明 时 。 

如 采 窗 体 上 布置 三 个 以 上 同类 控件 时 ， 分别 设置 控件 的 大 小 和 位 置 比较 费时 ， 可 以 使 用 
VBA 编辑 硕 的 “格式 ”一 “对 齐 ” 命 令 或 者 统一 太吉 等 功能 快速 对 齐 控件 。 
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请 丢掉 要 1 购 的 电脑 丁 件 





[” 声卡 《160 元 


厂 风 肩 〈50 元 ) 
fw 硬盘 【200 元 》 





图 16-$9 ” 复 选 框 的 运用 
重要 提示 : 复 选 框 控件 在 窗 体 设计 期 间 ， 默 认 都 处 于 未 选中 状态 。 可 以 通过 属性 窗口 把 
复 选 框 的 Value 属性 设置 为 True， 这 样 当 窗 体 启动 时 ， 复 选 框 默认 就 被 勾 选 了 。 


单 选 按钮 (OptionButton ) 与 复 选 框 很 类 似 ， 多 个 单 选 按钮 构成 单 选 按钮 组 ， 组 中 的 每 
个 按钮 只 有 选中 和 未 选中 两 个 状态 ， 但 是 单 选 按钮 控件 最 大 的 特点 是 “组 内 互 斥 "， 也 就 是 
同一 单 选 按钮 组 中 ， 只 能 有 一 个 按钮 处 于 选中 状态 。 好 像 单项 选择 题 一 样 ， 只 能 选择 其 一 。 

默认 情况 下 ， 窗 体 上 放置 多 个 单 选 按钮 ， 这 些 按钮 的 母体 容器 是 窗 体 ， 因 此 都 属于 同一 
个 按钮 组 。 

在 实际 编程 中 ， 在 同一 个 窗 体 上 经 常 存 在 多 个 组 ， 每 个 组 的 功能 是 不 一 样 的 ， 如 末 不 做 
必要 处 理 ， 则 所 有 单 选 按钮 中 只 有 一 个 能 被 选中 ， 这 与 现实 情况 不 符 。 遇 到 这 种 情况 有 两 个 
处 理 方法 : 一 是 先 在 窗 体 上 放置 框架 控件 ， 把 同一 类 单 选 按 钮 放 在 一 个 框架 中 ， 不 同 框架 之 
间 是 相对 独立 的 ; 二 是 不 使 用 框架 控件 ,但 是 设置 每 个 单 选 按 钮 的 GroupName 属性 ， 具 有 
一 样 的 GroupName 的 单 选 按 钮 被 认为 是 同一 组 。 





16.13 





16.13.1 ”使 用 框架 隔离 单 选 按钮 


在 窗 体 上 插入 一 个 框架 控件 (Frame), 在 鼠标 选中 这 个 框架 的 前 提 下 ， 往 框架 上 插入 两 
个 单 选 按 钮 。 将 框架 的 Caption 改 为 “性 别 ”"， 单 选 按 钮 的 Caption 属性 改 为 “ 男 ” 和 “ 女 ”。 

按照 上 面 的 方法 ,在 窗 体 上 再 放 一 个 框架 ， 重 命名 为 “婚姻 状况 ”"， 内 部 插入 三 个 单 选 
按钮 ， 分 别 重 命 名 。 

另外 ， 每 个 框架 的 单 选 按钮 组 中 ， 需 要 有 一 个 按钮 处 
于 选中 状态 ， 因 此 在 窗 体 设 计 期 间 ， 选 中 一 个 单 选 按钮 并 
设置 其 Value 属性 为 True， 这 样 ， 窗 体 一 局 动 就 能 看 到 有 

窗 体 运 行 后 效果 如 图 16-60 所 示 。 

可 以 看 出 ,不同 的 框架 中 ， 单 选 按钮 没有 互 奈 ， 各 选 
各 的 。 图 16-60 ”多 组 单 选 按钮 





16.13.2 
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设置 GroupName 隔离 单 选 按钮 


如 采 不 使 用 框架 ， 就 需要 为 同类 的 单 选 按 钮 设置 一 样 的 GroupName。 

在 窗 体 上 插入 两 个 单 选 按 钮 ， 将 Caption 属性 改 为 “ 男 ”“ 女 ”， 然 后 按 住 【 Ctrl 】 键 选 
中 这 两 个 单 选 按钮 ， 在 属性 窗口 的 GroupName 中 输入 任意 字符 串 ， 例如 “组 1”。 

照看 上 述 方法 ， 把 “婚姻 状况 ”的 三 个 单 选 按 钮 也 做 同样 处 理 ， 如 图 16-61 所 示 。 
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16-61 利用 GroupName 属性 分 组 


为 了 判断 单 选 按钮 的 选 定 状 况 ， 和 需要 在 窗 体 上 搬 人 一 个 命令 按钮 ， 并 且 书 写 按钮 的 单 击 


事件 代码 。 
源 代 码 : 实例 文档 58.xlsm/UserForm2 


1] Private Sub CommandButton]l] Clickt) 
ra Dim gender As String 

3 Dim marry As String 

4. If Me.optionButtonl.Value Then 
5. gender = ” 轩 a 

6 End If 

1 Ift Me.optionButton2.Value Then 
8 Jender = nm 女 " 

时 End If 

10. If Me.optionButton3.Value Then 
11. marry = "已 婚 " 

12. End If 

L133。 If Me.opticonButton4.Value Then 
14。 marry = " 未 婚 

3 End If 

1]6. Ift Me.optionButtonS.Value Then 
1]i. marry = ” 其 他 " 

18. End If 

19. MsgBox " 你 选择 了 : " & gender & vbhNewLine & ™ 并 且 你 选择 了 : " & marry 


20. End sub 


代 但 分 析 : gender 和 marry 两 个 字符 串 变 量 ， 用 来 获得 单 选 按钮 的 选 定 内 容 。 不 论 选 中 


了 哪 一 项 ， 都 需要 把 所 有 单 选 按钮 判断 一 下 。 
窗 体 运行 时 的 效果 如 图 16-62 所 示 。 


442 Office VBA 开发 经 典 一 一 基础 入 门 卷 


单 击 “提交 信息 ”按钮 后 ， 弹 出 的 对 话 框 如 图 16-63 所 示 。 


性 别 人 男 岛 于 


了 
并 且 你 选择 了 : 其 他 


据 姻 本 只 乒 已 婚 { 未 如 


提 区 信息 





E00 图 16-63 ”返回 所 选 内 容 


16.14 切换 按钮 


切换 按钮 ( ToggleButton) 可 能 是 最 简单 的 控件 ， 和 复 选 框 一 样 ， 只 有 按 下 和 弹 起 两 个 
状态 ， 由 Value 属性 可 以 得 知 按 钮 是 否 按 下 。 

在 窒 体 上 插入 一 个 文本 框 ， 再 插 和 人 一 个 切换 按钮 ， 用 切换 按钮 的 状态 来 设置 文本 框 的 显 

源 代 码 : 实例 文档 58.xlsm/UserForm 1 


] Private Sub ToggleButtonl Click{() 

之 Ift Me.ToggleButtonl .Value = True Then 
E Me.TextBoxl .Visible = True 

4. Else 

J Me.TextBoxl .Visible = False 

6 Emo If 

1 End Sub 


代码 分 析 : 用 一 个 控件 的 状态 去 影响 另 一 个 控件 的 状态 ， 
是 编程 常用 的 技术 ， 本 例 代码 中 用 下 条 件 选 择 结构 实现 ， 实 
际 上 类 做 于 布尔 切换 代码 ， 可 以 简写 为 Me.TextBoxl.Visible = 扩大 时 
Me.ToggleButton1.Value ， 一 行 代码 即 可 解决 问题 ， 而 无 须 使 用 
If 结构 。 

窗 体 运行 效果 如 图 16-64 所 示 。 

在 实际 编程 应 用 中 ，ToggleButton 的 应 用 场合 非常 少 , 一 ”图 16-64 使 用 ToggleButton 
般 用 复 选 框 或 单 选 按钮 取而代之 。 切换 文本 框 的 可 见 性 





16.15 框架 


框架 (Frame) 控件 用 来 把 控件 进行 分 组 ， 前 面 讲 单 选 按钮 时 曾 涉及 过 框架 控件 的 知识 。 
使 用 框架 的 技术 要 点 是 ， 在 窗 体 设计 视图 中 ， 向 框架 控件 中 插入 新 控件 时 ， 一 定 要 先 先 
中 框架 控件 ， 否 则 ， 新 控件 出 现在 窗 体 上 ， 而 不 是 出 现在 框架 中 。 
那么 ， 放 在 框架 中 的 控件 与 直接 放 在 窗 体 上 的 控件 ， 有 哪些 区 别 之 处 呢 ? 
D 母体 容器 不 同 。 直 接 放 在 窗 体 上 的 控件 ， 其 母体 是 窗 体 ; 放 在 框架 上 的 控件 ， 其 母 
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体 是 框架 。 可 以 用 控件 的 Parent 属性 获知 。 

口 控件 的 Left、Top 属性 意义 不 同 。 如 有 果 控 件 放 在 框架 中 ,控件 的 Left 属性 是 指 该 控件 
的 左 侧 与 框架 左 侧 的 距离 ， 而 不 是 与 窗 体 左 侧 的 距离 。 

口 如 果 框 架 的 Visible 属性 被 设 为 False， 则 框架 内 所 有 控件 都 不 可 见 ; 如 果 框 架 的 可 用 
性 (Enabled) 被 设置 为 False， 则 框架 内 所 有 控件 不 可 使 用 。 

下 面 的 实例 ， 在 窗 体 上 放 入 一 个 框架 ,然后 在 该 框架 上 放 入 3 个 文本 框 控件 ; 在 窗 体 上 

直接 放 和 人 2 个 文本 框 控件 ， 以 及 两 个 命令 按钮 。 
第 一 个 命令 按钮 的 功能 是 禁用 框架 ， 第 二 个 按钮 的 作用 是 遍历 窗 体 上 所 有 控件 的 信息 。 
源 代 码 : 实例 文档 59.xlsm/UserForm2 


1l. Private Sub CommandButtonl CLICKI() 

之 。 Me.Framel.Enabled = False 

3. End Sub 

4. Private Sub CommandButtonz2 CLICK() 

eh Dim ct As MSForms.Control 

0. Debug.Print ™ 控件 名 称 "，" 控件 母体 名 称 " 

1. For Each ct In Me.Controls 

8. Debug.Print ct.Name, ct.Parent.Name 
- Next ct 

10. End Sub 


代码 分 析 : 第 二 个 按钮 的 单 击 事件 过 程 中 ， 裔 历 用 户 窗 体 上 所 有 控件 的 名 称 ， 以 及 控件 
母体 的 名 称 。 

窗 体 运行 时 的 效 采 如 图 16-65 所 示 。 

当 单 击 “ 裔 历 控 件 ” 按 钮 时 ， 立 即 窗口 的 结果 如 图 16-66 所 示 。 


控件 名 称 控件 母体 名 称 
Framel UserFormz 
TextBox 1 Framel 


TextBox2 Framel 

TextBoxa3 Framel 

TextBox4 UserForm2 

TextBox5 UserForme 
ComandButtonl UserForm2 
CommandButton2 UserForme 





图 16-65 ”使 用 框架 图 16-66 遍历 窗 体 上 的 所 有 控件 
可 以 看 到 前 三 个 TextBox 的 母体 是 Famel， 不 是 UserFonm2。 和 二 证 二 
如 果 把 第 7 行 代 人 码 改 为 For Each ct In Me. Framel.Controls ， TextBox1l Framel 
TextBox? Framel 
那么 立即 窗 口 的 打印 结果 如 图 16-67 所 示 。 TextBox3 Framel 





只 有 三 个 文本 框 属于 框架 内 的 控件 。 图 16-67 遍历 框架 中 的 控件 


提示 : 框架 这 种 容 恬 控件 还 可 以 无 限 葡 套 ， 也 就 是 框架 中 还 可 以 放置 框架 。 


16.16 ”多 标签 控件 
多 标签 ( Tabstrip) 控件 不 是 用 于 放置 控件 的 容器 。 也 就 是 说 ， 不 能 把 其 他 控件 放 入 多 
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标签 控件 中 。 

实际 上 ， 多 标签 控件 起 的 作用 只 是 用 户 可 以 切换 它 的 标签 页 而 已 。 

在 窗 体 的 设计 期 间 ， 可 以 通过 新 建 页 和 删除 页 来 编辑 控件 的 标签 

下 面 的 实例 实现 在 用 户 窗 体 上 搬 人 一 个 TabStrip 和 一 个 Inage 图 像 控 件 ， 然 后 把 
TabStrip 控件 编辑 为 4 个 标签 页 ， 并 重 命 名 ， 如 图 16-68 所 示 。 

多 标签 控件 的 常用 事件 是 Change 事件 ， 当 用 户 切换 标 签 时 触发 。 

多 标签 控件 的 所 有 标签 用 Tabs 集合 对 象 表 示 ， 每 一 个 选项 卡 都 是 一 个 Tab 对 象 。 多 标 
签 控件 最 左 侧 的 标签 编号 是 0， 以 后 依次 增加 1。 当 用 户 切换 选项 卡 时 ， 当 前 选项 卡 的 编号 
可 以 从 多 标签 控件 的 Value 属性 获得 。 

实例 的 功能 是 当 用 鼠标 切换 标签 时 ， 动 态 更 新 Inage 控件 中 的 图 像 ， 其 中 程序 用 到 的 图 
片 文件 已 经 事先 准备 好 。 

源 代 码 : 实例 文档 60.xlsm/UserForm1 


1 Private Sub Tabstripl Change() 

ea Dim 七 As MSForms.Tab 

3 Select Case Me.Tabstripl.Value 

4. Case 0: Me.Imagel.Picture = LoadPicture (ThisWorkbook.Path & "\WordLogo.jpg") 
地 Case 1: Me.Imagel.Picture = LoadPicture (ThisWorkbook.Path & "\ExcelLogo.jpg") 
bs Case 2: Me.Imagel.Picture = LoadPicture (ThisWorkbook.Path & "\pptLogo.1jpg") 
1 Case 3: Me.Imagel .Picture = LoadPicturel(™™) 

8 End Select 


-a Set 七 = Me.Tabstripl.SelectedItem 
10 . MsgBox "你 选中 的 选项 卡 标 签 是 : " & t.Caption 
11. End Sub 


代码 分 析 : 第 3 行 代码 中 ， 对 于 TabStrip 控件 ， 当 前 选中 的 选项 卡 编号 可 以 用 Value 属 
性 来 确定 。 如 采 当 前 选中 的 是 第 0 个 标签 ， 那么 就 为 图 像 控 件 加 载 WordLogo.jpg 图 片 。 

第 9 行 代码 中 ， 对 象 变 量 t 表 示 当 前 选中 的 那个 标签 ， 在 对 话 框 中 给 出 了 该 选项 卡 的 标 
题 文字 。 

窗 体 运行 效果 如 图 16-69 所 示 。 





川 ”你 选中 的 选项 卡 标签 是 : Excel 








图 16-68 ”使 用 多 标签 控件 图 16-69 ”多 标签 控件 的 Change 事件 


以 上 实例 讲述 了 多 标签 控件 的 Change 事件 、 选 中 标签 的 序号 和 标题 等 知识 。 
要 注意 的 是 ， 多 标签 控件 一 定 要 置 于 窗 体 上 其 他 控件 的 最 底层 ， 和 否则 多 标签 控件 会 压 住 


第 16 章 ”用 户 窗 体 和 控件 设计 后 9 


其 他 控件 。 
16.16.1 ”用 代码 增加 标签 


窗 体 在 运行 时 ， 还 可 以 动态 增删 多 标签 选项 卡 的 标签 。 下 面 的 代码 演示 了 单 击 命 令 按钮 
可 以 动态 增加 标签 。 
源 代码 : 实例 文档 60.xlsm/UserForm2 


1 Private Sub CommandButtonl Click!{) 

2 Dim 七 As MSForms.'Tab 

3 Me.Tabstripl.Tabs.Add "China"™, " 中国"， 0 
4 Me .Tabstripl.Tabs.Add "Italy", "意大利 ", 1 
:mn Me.Tabstripl.Tabs.Add "Korea"™, "韩国 "， 1] 
6 

1 

8 

" 





Me.Tabstripl.Tabs.Add "Australia", “ 澳大利亚 "，3 
Set 七 = Me.Tabstripl.Tabs.Item("China"™) 
Debug.Print t.Index, t.Name, t.Caption 

End Sub 


代码 分 析 : 第 3 行 代码 用 Add 方 法 增加 标签 ， 后 面 3 个 参数 分 别 规定 了 新 标签 的 
Name、Caption 和 Index 属性 。 

注意 ， 首 先 增加 中 国 ， 然 后 增加 意大利 ， 但 是 增加 韩国 的 时 候 ， 是 把 韩国 插 人 到 第 1 个 
位 置 ， 所 以 把 意大利 变 成 韩国 后 面 的 了 ， 最 后 增加 澳大利亚 。 这 种 览 索 引 插 人 的 做 法 ， 只 能 
在 已 有 标签 之 间 插 信人， 不 能 中 间 隅 着 空 日 插入 ， 例 如 “Me.TabStrip1.Tabs.Add "Japan", "日 
本 ",8” 是 不 对 的 ， 因 为 索引 8 之 前 根本 就 没有 标签 。 

窗 体 局 动 以 后 ， 多 标签 控件 里 一 个 标签 也 没有 ， 但 是 单 击 命令 按钮 后 ,会 自动 出 现 4 个 
标签 ， 如 图 16-70 所 示 。 

源 代码 : 实例 文档 60.xlsm/UserForm2 


1 Private Sub CommandButtonz Clickt{) 

2 Dim 1 As Integer, tt As MSForms.Tab 

3 For Each tt In Me.Tabstripl.Tabs 

4 Debug.Print t.Index, t.Name, t.Caption 
Next 七 

6 End sub 


代码 分 析 : 第 3 ~5 行 代码 裔 历 上 所 有 标签 ， 并 打印 每 个 标签 的 索引 、 名 称 、 标 题 文 字 。 
运行 结果 如 图 16-71 所 示 。 


中 国 | 韩国 | 意大利 | 现 大 利 亚 | 


China 
Korea 
ltaly 


注 历 标签 这 件 | Mustralia 





图 16-70 ”自动 增加 标签 图 16-71 遍历 标签 控件 的 每 个 标签 
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16.16.2 用 代码 删除 机 


使 用 Tabs.Remove 方法 ， 可 以 删除 已 有 标签 。 其 中 Remove 后 面 的 参数 ， 可 以 是 标签 的 
标题 文字 ， 也 可 以 是 标签 的 索引 号 。 

下 面 的 实例 实现 在 窗 体 上 放 入 一 个 多 标签 控件 ， 然 后 设置 4 个 标签 页 ， 重 命名 为 Word、 
Excel 、PowerPoint 和 Access。 

源 代 码 : 实例 文档 60.xlsm/UserForm3 


1 Private Sub CommandButtonl Clickt) 

ws Me .Tabstripl.Tabs.Remove 2 

3 Me .Tabstripl.Tabs.Remove "Word™ 

4 MsgqBox " 剩 下 的 标签 个 数 是 ， Fxcel Access 

& Me.Tabstripl.Tabs.Count 

3. End Sub 

代码 分 析 : 第 2 行 代码 删除 索引 为 2 的 标 
签 ， 也 就 是 把 PowerPoint 那个 标签 删除 了 ， 然 
后 删除 标题 为 Word 的 标签 ， 最 后 剩 下 两 个 标 
签 。 单 击 “ 删 除 标 签 ” 按 钮 后 效果 如 图 16-72 
所 示 。 图 16-72 ”自动 删除 标签 





16.17 多 页 控件 


多 页 (MultiPage) 控件 可 以 看 作 多 个 框架 (Frame) 控件 的 登 加 。 与 Frame 控件 一 样 ， 
多 页 控件 的 每 一 页 都 可 以 作为 容 絮 用 来 放置 控件 。 

在 窗 体 设计 视图 中 ， 多 页 控件 也 可 以 新 建 页 、 删 除 页 和 重 命 名 。 窗 体 运 行 期 间 ， 使 用 
Value 属性 获取 当前 活动 页 的 索引 值 ， 最 左 侧 的 索引 是 0。 当 页 标签 发 生 切 换 时 ， 触 发 多 页 
控件 的 Change 事件 。 

多 页 控件 的 代码 编写 和 多 标签 控件 (TabStrip ) 很 相似 。 下 面 的 实例 实现 在 窗 体 上 插入 
一 个 多 页 控件 ,编辑 为 3 个 页 ， 在 每 一 页 放置 不 同 的 控件 ， 然 后 编写 多 页 控件 的 页 面 切换 
事件 。 

源 代 码 : 实例 文档 61.xlsm/UserForm1 


1 Private Sub MultiPagel Change () 

之 Dim 1 As Integer 

3 i = Me.MultiPagel.Value 

4. ActiveWorkbook.Worksheets(1i + 1) .Activate 

3 Me .Caption = Me.MultiPagel.Selectedltem.Caption 
6 End Sub 


代码 分 析 : 变量 i 用 来 取得 当前 所 选 页 的 索引 值 。 由 于 最 左 侧 的 索引 是 0， 而 工作 表 左 
侧 的 索引 是 1， 所 以 在 第 4 行 代码 中 使 用 i+1。 
程序 的 功能 是 : 当 多 页 标签 发 生 页 面 切 换 时 ， 上 自动 激活 相应 的 工作 表 ， 然 后 窗 体 的 标题 
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文字 显示 为 多 页 控件 当前 所 选 页 。 
选择 “边框 ”页 的 效果 如 图 16-73 所 示 。 


Sheet] Sheeta 





图 16-73 多 页 控件 的 Change 事件 
选择 “字体 ”页 的 效果 如 图 16-74 所 示 。 


字体 | 边框 | 填充 | 


这 是 一 个 标 
签 控件 


Sheet2 | Sheet3 | 由 





图 16-74 ”选择 另 一 个 页 
在 窗 体 运 行 期 间 ， 也 可 以 动态 增删 多 页 控件 的 页 ， 代 码 编 写 思 路 与 多 标签 控件 非 党 
相似 。 
下 面 的 实例 实现 在 窗 体 的 局 动 事件 中 首先 清空 多 页 控件 的 所 有 页 ， 然 后 添加 5 个 页 ， 删 
除 其 中 1 个 ， 最 后 届 历 所 有 页 的 信息 。 
源 代 码 : 实例 文档 61/UserForm2 


1. Private Sub UserForm Initialize() 

a Dim P As MSFoOrms.Page 

人 Me.MultiPagel.Pages.Clear 

4. Set p = Me.MultiPagel.Pages.Add ("PO"™, " 三 国 演 义 ”， 心 } 
Set p = Me.MultiPagel.Pages.Adqd("Pl",， "水 浒 传 "，1) 
6. Set p = Me.MultiPagel.Pages.Add("P2", " 红楼 梦 2 
7. Set p = Me.MultiPagel.Pages.Add("P3"， " 封 神 演 义 "，3) 
8 。 Set p = Me.MultiPagel.Pages.Add("P4", " 西游 记 "， 4) 
:PF Me.MultiPagel.Pages.Remove 3 

10. Debug.Print ™ 页 数 为 : "， Me .MultiPagel .Pagdes .Count 
下 Set p = Nothing 

二 For Each p In Me.MultiPagel .Pages 

时 Debug.Print p.Index, p.Name, p.Caption, p.Visible 


14. Next p 
15. End Sub 
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代码 分 析 : 第 3 行 代码 清空 所 有 页 。 第 4 ~ 8 行 代码 使 用 Pages.Add 方法 添加 4 个 新 页 ， 
3 个 参数 的 含义 依次 是 页 的 名 称 、 标 题 和 索引 。 

第 9 行 代 但 删除 索引 为 3 的 页 。 

第 10 行 代码 打印 多 页 控件 目前 的 总 页 数 。 

第 12 ~ 14 行 代码 遍历 所 有 页 ， 打 印 每 页 的 序号 、 名 称 、 标 题 文 字 、 可 见 性 。 

窗 体 司 动 后 ， 运 行 效果 如 图 16-75 所 示 。 

立即 窗口 的 结果 如 图 16-76 所 示 。 

可 以 看 到 结果 中 并 未 出 现 “ 封 神 演义 ”这 个 页 。 

归纳 总 结 : 

口 框架 (Frame) 控件 可 以 作为 其 他 控件 的 容 右 ， 但 是 框架 控件 只 能 是 1 个 标签 。 

D 多 标签 (TabStrip) 控件 不 是 控件 的 容 需 ， 只 能 提供 多 个 标签 。 

口 多 页 (MultiPage) 控件 的 每 一 页 都 能 作为 控件 的 容 需 ， 不 同 页 可 以 放置 不 同 的 控件 。 


= 国 涡 光 | 水 洗车 | 红楼 村 | 西游 记 | 





图 16-75 ”启动 时 自动 设置 多 页 控件 图 16-76 遍历 多 页 控件 的 每 页 


16.18 ”滚动 条 


这 节 所 讲述 的 滚动 条 (ScrollBar) 是 一 个 独立 的 控件 ， 使 用 滚动 条 可 以 方便 地 调节 数值 。 
滚动 条 控件 的 重要 属性 如 下 。 
口 Min: 最 小 值 。 
口 Max: 最 大 值 。 
D Value: 演 动 条 实际 值 ， 可 读 写 。 
D SmallChange: 单 击 滚动 条 两 冰 的 箭头 按钮 ， 引 起 Value 值 的 改变 。 

D LargeChange: 单 击 滚动 条 中 间 空 日 区 域 时 ， 引 起 Value 值 的 改变 。 

口 Orientation: 滚动 条 方 回 ， 水 平 或 垂直 。 

深 动 条 控件 的 重要 事件 是 Change 事件 ， 当 滚动 条 的 值 发 生变 化 时 触发 。 

下 面 的 实例 利用 两 个 深 动 条 来 调 方 文本 框 的 宽度 和 高 度 。 

在 窗 体 上 插入 两 个 滚动 条 控件 : 第 一 个 设置 为 水 平 深 动 条 ; 第 二 个 设置 为 垂直 滚动 条 。 
以 上 两 个 滚动 条 控件 的 Min 设置 为 30，Max 设置 为 100。 再 插入 一 个 文本 框 。 最 后 插 人 一 
个 命令 按钮 ， 用 来 获取 水 平 滚动 条 的 信息 。 

设计 期 间 深 动 条 控件 的 效 采 如 图 16-77 所 示 。 
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图 16-77 使 用 深 动 条 控件 


接 下 来 编写 深 动 条 的 事件 过 程 ， 当 演 动 条 的 值 改变 时 ， 立 即 改变 文本 框 的 大 小 。 
源 代码 实例 文档 62/UserForm2 


1l. Private Sub ScrollBarl Change () 


pa Me.TextBoxl .Width = Me.SscrollBarl .Value 
3 End Sub 

4. Private Sub ScrollBar2 Change () 

= Me.TextBoxl .Height = Me.SscrollBar2.Value 
6 End Sub 


然后 书写 命令 按钮 的 单 击 事件 过 程 。 
源 代码 ， 实例 文档 62/UserForm2 


1 Private Sub CommandButtonl] Clickt) 

a With Me.SscrollBarl 

Ss Debug.Print .Min, .Max, .SmallChange; .LargeChange, -Value 
4. End With 

5. End Sub 


代码 分 析 : 单 击 按钮 后 ， 在 立即 窗口 打印 水 平 滚动 条 的 最 小 值 、 最 大 值 、 微 调 值 、 快 速 
调节 值 ， 以 及 当前 值 ， 如 图 16-78 所 示 。 


立轴 秦 口 
30 100 | 10 33 


16-78 打印 滚动 条 的 属性 


16.19 ”旋转 按钮 


旋转 按钮 (SpinButton ) 与 滚动 条 一 样 ， 也 是 数值 调节 器 ， 不 同 的 是 旋转 按钮 只 有 两 端 
的 箭头 ， 没 有 中 间 的 空白 。 该 控件 大 多 数 属性 和 事件 与 ScrollBar 控件 一 样 ， 但 是 该 控件 没 
有 LargeChange 属性 。 旋 转 按钮 可 以 设置 Orientation 属性 ， 有 水 平和 垂直 两 种 。 

在 实际 编程 运用 中 ， 旋 转 按 钮 经 常 与 文本 框 联 用 ， 通 过 微调 旋转 按钮 从 而 改变 文本 框 中 
的 数字 。 
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下 面 的 实例 中 ， 窗 体 上 放置 一 个 旋转 按钮 和 一 个 文本 框 ， 然 后 在 下 方 摆 放 一 个 标签 控 
件 。 通 过 改变 旋转 按钮 的 值 ， 去 改变 标签 控件 的 字体 大 小 。 
源 代 码 : 实例 文档 62.xlsm/UserForm2 


1 Private Sub SpinButtonl Change{() 

wa Me .TextBoxl.Text = Me.SspinButtonl .Value 

3 Me.Label2.Font.Size = CInt (Me.TextBoxl .Text) 
4 End Sub 


代码 分 析 : 当 旋 转 按钮 的 值 发 生 改变 时 ， 把 值 赋 给 文 “| 
本 框 中 ， 然 后 进一步 改变 标签 的 字体 大 小 。 [* | 昌 
反 过 来 ， 如 果 手 工 修改 文本 框 中 的 数值 ， 旋 转 按钮 
的 值 会 同步 变化 吗 ? 这 需要 进一步 书写 文本 框 的 Change 
事件 。 
窗 体 运 行 效 果 如 图 16-79 所 示 。 


程序 设计 





图 16-79 ”旋转 按钮 


16.20 图 像 控 件 


图 像 (Image) 控件 用 于 显示 电脑 中 的 图 片 。 如 采 在 窗 体 设计 期 间 为 图 像 控 件 设 置 图 片 ， 
需要 设置 该 控件 的 Picture 属性 ， 浏 览 电脑 中 的 一 幅 图 即 可 。 如 采 在 运行 期 间 为 控件 加 载 或 
变更 图 片 ， 需 要 使 用 LoadPicture 员 数 。 

关于 图 像 控 件 与 图 形 本 身 的 容纳 问题 ， 下 面 几 个 重要 的 属性 都 会 影响 到 效果 。 

D AutoSize: 该 属性 为 True， 控 件 大 小 随 图 片 大 小 而 目 动 调整 。 

口 PictureAlignment: 图 片 的 对 齐 方 回 。 

口 PictureSizeMode: 图 片 在 控件 中 的 缩放 、 裁 勇 方式 ， 请 参考 16.5.3 节 相 关内 容 。 

下 面 的 实例 实现 在 窗 体 上 放置 一 个 Image 控件 ， 再 放置 两 个 按钮 ， 一 个 用 来 加 载 图 片 ， 
男 一 个 用 来 清空 图 片 。 

源 代码 : 实例 文档 63.xlsm/UserForm1 


Private Sub CommandButtonl CLICK 
Me.JImagel .Picture = LoadPicture (ThisWorkbook.Path & 

End Sub 

Private Sub CommandButtonz2 CLICK 





Me.Imagel.Picture = LoadPicture(™") 
End Sub 


代码 分 析 : ExcelLogo.jpg 是 预先 准备 好 的 图 
片 。 第 5 行 代 人 码 清空 控件 中 的 图 像 ， 只 需要 Load- 
Picture("") 即 可 。 

窗 体 运行 效果 如 图 16-80 所 示 。 

在 实际 编程 中 ， 可 以 在 窗 体 上 放置 多 个 Image 
控件 ， 完 成一 些 大 型 的 任务 。 本 书 配 套 资 源 图 16-80 加 载 和 清空 Image 控件 中 的 图 片 
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中 InageMso7345 Userform.xlsm 就 是 利用 TabStrip 控 件 和 Image 控件 制 作 的 ， 效 果 如 
图 16-81 所 示 。 
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图 16-81 ”大量 使 用 Image 控件 的 效果 图 
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16.21 RefEdit 控件 


Excel VBA 的 窗 体 中 ， 可 以 使 用 RefEdit (单元 格 选 择 ) 控件 来 辅助 选择 单元 格 区 域 。 该 
控件 不 可 以 使 用 在 非 模 态 窗 体 中 。 

包含 RefEdit 控件 的 窗 体 局 动 后 ， 用 鼠标 单 击 RefEdit 控件 ， 窗 体会 最 小 化 ， 等 用 户 选 
择 动作 完成 后 ， 窗 体 恢 复原 始 大 小 。 此 时 RefEdit 控件 的 Value 属性 将 获取 刚刚 选中 的 单元 
格 地 址 。 

下 面 的 实例 实现 在 窗 体 上 放置 一 个 RefEdit 控件 和 一 个 命令 按钮 ， 命 令 按钮 的 功能 是 用 
来 确定 单元 格 区 域 ， 并 且 对 该 区 域 的 格式 进行 设 定 。 

源 代 码 : 实例 文档 65.xlsm/UserForm1 


1 Private Sub CommandButtonl Clickt{) 

之 Dim TI As Range 

3. Set rg = Range (Me.RefEditl .Value) 
4 rg.NumberFormat = "0.00" 

i rg.Font.Italic = True 

6. End Sub 


窗 体 在 运行 时 的 效 末 如 图 16-82 所 示 。 

单 击 窗 体 上 的 “设置 格式 ”按钮 ， 会 看 到 工作 表 中 数据 格式 发 生 改 变 。 

在 实际 编程 过 程 中 ， 可 以 使 用 InputBox 田 数 来 代 蔡 RefEdit 控件 ，InputBox 使 用 起 来 更 
方便 。 
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图 16-82 使 用 RefEdit 控件 选择 单元 格 
下 面 的 实例 使 用 InputBox 来 实现 单元 格 选取 ， 在 窗 体 设计 模式 时 ， 仅 仅 放 和 人 一 个 命令 
按钮 即 可 。 
源 代 码 : 实例 文档 65.xlsm/UserForm2 


1 
加 
| 
4 
5 
6 
下 
日 
9 





1. Private Sub CommandButtonl Clickt) 

a On Error GoTo Errl 

J Dim Ig As Range 

4. Set rg = Application.InputBox("™ 请 选择 数据 区 域 : "， Type :=8) 
ys MsgBox " 你 选择 的 地 址 是 : " & Ig.Address (Ffalse, False) 

6 。 rg.Interior.Color = vbhRed 

下 Exit Sub 

8. ErrTl: 

9 . MsgBox " 没有 选中 任何 区 域 。" 


10. End Sub 


代码 分 析 : 第 4 行 代 但 指定 InputBox 的 Type 参数 为 8， 意 思 是 可 以 选择 单元 格 区 域 ， 
而 不 是 往 里 输入 文本 。 如 采用 户 选 择 了 区 域 ， 并 且 单 击 “ 确 定 ” 按 钮 ， 那 么 将 区 域 填充 为 
红色 。 

如 果 用 户 没有 选区 域 ， 或 者 单 击 “ 取 消 ” 按 钮 ， 会 出 错 ， 因 此 进行 了 错误 处 理 。 

窗 体 局 动 后 ， 单 击 “ 选 择 区 域 ” 按 钮 ， 效 末 如 图 16-83 所 示 。 
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图 16-83 ”使 用 InputBox 选择 单元 格 区 域 


16.22 ”遍历 窗 体 上 的 控件 


窗 体 在 运行 期 间 ， 可 以 过 有 历 窗 体 上 所 有 控件 的 信息 ， 如 采 窗 体 上 控件 的 类 型 只 有 一 种 ， 
例如 所 有 控件 的 类 型 都 是 文本 框 ， 那 么 控件 变量 就 可 以 声明 为 MSForms.TextBox。 如 采 窗 体 
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上 含有 多 种 类 型 的 控件 ， 变 量 只 能 声明 为 MSForms.Control。 

下 面 的 实例 实现 窗 体 在 设计 期 间 放 和 3 个 文本 框 和 一 个 命令 按钮 ， 单 击 命令 按钮 会 日 动 
调整 3 个 文本 框 的 大 小 和 位 置 。 

窗 体 设 计 期 间 效果 如 图 16-84 所 示 。 

“日 动 调整 ”按钮 的 事件 代码 如 下 。 

源 代码 : 实例 文档 64.xlsm/UserForm1 


1 Private Sub CommandButtonl Click!{) 

过 Dim ct As MSForms.Control 

3 Dim 1 As Integer 

工 For Each ct In Me.Controls 

es Ift TypeName (ct) = "TextBox" Then 
6 i= i+ 1 

1 ct.Move 20, 40 * i, 100, 30 
8 End If 

9 Next ct 

10. End Sub 


代码 分 析 : 第 $ 行 代码 使 用 TypeName 获取 控件 的 类 型 ， 代 码 的 含义 是 只 有 控件 属于 文 
本 框 才 发 生 Move 操作 。 使 用 变量 i 的 作用 是 为 了 让 3 个 文本 框 上 下 间隔 分 开 ， 防 止 重 闭 。 
窗 体 运行 后 ， 单 击 “ 自 动 调整 ”按钮 后 效果 如 图 16-85 所 示 。 





图 16-84 ” 窗 体 预先 放置 一 些 控件 图 16-85 上 自动 更 改 控件 属性 
除了 有 目 动 调整 控件 属性 外 ， 还 可 以 在 运行 期 间 目 动 增加 、 删 除 控件 。 


16.22.1 运行 期 间 动 态 增加 控件 


窗 体 在 运行 期 间 ，UserForm.Controls 集合 对 象 ， 具 有 Add、Clear、Remove 等 方法 ， 用 
于 管理 控件 。 

动态 增加 控件 ， 难 点 在 于 新 控件 事件 过 程 的 设计 。 

下 面 的 实例 中 ， 窗 体 设 计 视 图 中 窗 体 上 不 放置 任何 控件 ， 在 窗 体 的 启动 事件 中 目 动 添 
加 一 个 文本 框 和 一 个 命令 按钮 。 为 了 单 击 这 个 命令 按钮 能 够 有 响应 ， 需 要 用 到 类 模块 。 为 
VBA 工程 插入 一 个 类 模块 ClsEvent， 编 写 如 下 代码 。 

源 代码 : 实例 文档 64.xlsm/ClsEvent 


4 Public WithEvents C As MSForms.ComandButton 
2. Private Sub C Click!) 

3 UserForm2?2.Controls ("Tl1") .Text = Now 

一 End Sub 
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代码 分 析 : 第 1 行 代码 声明 了 一 个 具有 事件 过 程 的 命令 按钮 对 象 C。 按 钮 C 的 单 击 事件 
让 文本 框 Tl 的 文本 改 为 当前 时 间 。 

然后 编写 UserForm2 的 启动 事件 过 程 。 

源 代码 ， 实例 文档 64.xlsm/UserForm2 


] Private MyEvent As New ClsEvent 

2. Private Sub UserForm Tnitialize() 

3 Dim txt As MSForms.TextBox, cmd As MSForms.CommandButton 
4. Me.Controls.Clear 

3 Set txt = Me.Controls.Add ("Forms. TextBox.1™, “Tl1™") 

6. txt .Move 20, 30, 100, 25 

7 txt -Text = ”新 文 符 框 ” 

8 Set cmd = Me.Controls.Add ("Forms.CommandButton.1™", "Cl1") 
9. cmd.Move 20, 60, 100, 25 

10. cmd.Caption = ™ 新 按钮 和 

1]11. Debug.Print ™ 窗 体 上 的 控件 总 数 : ” Me.Controls.Count 

Le Set MyEvent.cC = cmd 


13. End sub 


代码 分 析 : 第 1 行 代码 中 的 MyEvent 是 类 模块 的 实例 
化 。 第 4 行 代码 清空 窗 体 上 的 所 有 控件 。 第 $ 行 代 码 自 动 增 
加 一 个 文本 框 ， 名 称 为 T1。 第 6 行 代码 重新 规定 文本 框 的 大 
小 和 位 置 。 第 8 ~ 10 行 代码 新 增 一 个 命令 按钮 。 第 11 行 代 
码 打 印 窗 体 控件 总 数 ， 结 果 是 2。 第 12 行 代码 把 类 模块 中 的 





事件 赋予 新 按钮 。 
接 下 来 运行 UserForm2 ， 会 看 到 出 现 了 一 个 文本 框 和 按 
钮 ， 单 击 按钮 ， 文 本 框 内 容 发 生 改 变 ， 如 图 16-86 所 示 。 图 16-86 窗 体 运行 后 创建 控件 


16.22.2 ”运行 期 间 动态 删除 控件 


在 窗 体 运行 期 间 ， 使 用 UserForm.Controls.Remove 方法 可 以 删除 使 用 代码 添加 上 的 控 
件 ， 不 能 删除 设计 期 间 放 上 去 的 控件 。 

下 面 的 实例 中 和 窗 体 设计 期 间 在 窗 体 上 放置 两 个 命令 按钮 ， 第 一 个 按钮 的 功能 是 动态 增加 
两 个 文本 框 控 件 ， 第 二 个 按钮 的 功能 是 动态 删除 其 中 一 个 文本 框 。 两 个 按钮 的 Click 事件 过 
程 如 下 。 

源 代码 ， 实例 文档 64.xlsm/UserForm3 


Private Sub CommandButtonl CLICK 
Me.Controls.Add “Forms. TextBox.1™", “Tl1" 
Me.Controls{("T1") .Move 20, 30, 100, 25 
Me.Ccontrols.Add "Forms. TextBox.1™"™, “T2"™ 
Me.Controls({("T2") .Move 20, 60, 100, 25 
End Sub 

Private Sub CommandButtonz2 Clickt) 

Me.Ccontrols.Remove "Tl1" 
End Sub 
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代码 分 析 : Remove 方法 后 面 的 参数 是 控件 的 名 称 字 
从 串 。 

窗 体 运行 后 效果 如 图 16-87 所 示 。 

以 上 讲述 了 窗 体 在 运行 期 间 ， 可 以 用 代码 增加 、 删 除 控 
件 ， 但 是 这 些 改动 不 会 保存 在 窗 体 中 ， 当 窗 体 凶 载 后 ， 还 是 
保持 设计 期 间 的 控件 。 





图 16-87 ”自动 删除 控件 


16.23 - 啊 应 鼠标 单 击 的 事件 


窗 体 和 大 多 数控 件 都 支持 鼠标 的 Click 和 DblClick 事件 ， 如 果 要 用 到 鼠标 细致 的 操作 行 
为 ， 还 需要 了 解 MouseDown、MouseUp 和 MouseMove 事件 。 

一 般 的 鼠标 具有 左 键 、 右 键 和 中 键 (鼠标 深 轮 )， 这 三 个 键 都 可 以 按 下 并 弹 起 。 此 外 ， 
还 可 以 配合 键盘 的 【 Ctrl 外 Shift 外 Alt 】 一 起 操作 。 

当 忌 标 在 控件 上 按 下 键 时 触发 MouseDown 事件 ， 当 松 开 鼠标 键 时 和 触发 MouseUp 事件 ， 
当 鼠 标 在 控件 上 移动 时 触发 MouseMove 事件 。 

MouseDown 事件 的 完整 声明 是 : 


MouseDown (ByVal Button As Integer, BYVal Shift As Integer, ByVal x As 3S1InglLe， 
ByVval Y AS Single) 


参数 说 明 如 下 。 

DD Button: 返回 鼠标 的 键 ， 按 下 左 键 返 回 1， 按 下 右键 返回 2， 按 下 中 键 返 回 4。 

D Shift : 返回 辅助 按键 ， 按 下 鼠标 的 同时 按 下 【 Ctrl 】 键 该 参数 为 2， 按 下 【 Shift ] 键 
返回 1， 按 下 【 Alt 】 键 返回 4， 如 果 按 下 了 多 个 辅助 键 则 是 其 加 和 。 

口 X: 鼠标 光标 在 控件 中 的 水 平 位 置 。 

D 口 Y: 鼠标 光标 在 控件 中 的 垂直 位 置 。 


注意 , X 和 YY 的 参照 物 是 控件 ， 而 不 是 窗 体 。 也 就 是 说 当 鼠 标 单 击 控件 的 左上 角 时 ，X 
和 YY 都 是 0。 


MouseUp 、MouseMove 事件 的 参数 列表 与 MouseDown 完全 相同 。 
以 上 三 个 事件 在 大 部 分 控件 中 均 适 用 。 下 面 以 按钮 和 文本 框 为 例 ， 说 明 上 述 三 个 事件 的 
用 法 。 


16.23.1 判断 鼠标 按键 
下 面 的 例子 实现 当 鼠 标 在 命令 按钮 上 按 下 鼠标 右键 时 ， 隐 藏 文本 框 ; 当 松 开 鼠 标 右键 
时 ， 显 示 文 本 框 。 


源 代 码 : 实例 文档 66.Xlsm/UserForm 1 


1l. Private Sub CommandButtonl MouseDown (ByVal Button As Integer，BYVal Shift 
As Integer, ByVal XX As Single, ByVal YY As Single) 
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-a If Button = 2 Then 

Me.TextBoxl .Visible = False 

4. End If 

D3. End Sub 

6. Private Sub CommandButtonl MouseUp (ByVal Button As Integer, ByVal Shift As 
Integer, ByVal X As Single, ByVal YY As Single) 

Ee I Button = 2 Then 

8. Me.TextBoxl .Visible = True 

号 End If 


10. End sub 

代码 分 析 : 上 上述 代 码 分 为 MouseDown 和 MouseUp 两 个 事件 ,第 2 行 代码 Button=2 的 
意思 是 只 有 按 下 的 是 鼠标 右键 ，If 条 件 语句 才 成 立 。 

这 个 例子 说 明 MouseDown 和 MouseUp 的 区 别 : 一 个 是 按 下 鼠标 ， 另 一 个 是 松 开 鼠标 。 


16.23.2 ”判断 键盘 辅助 键 
在 鼠标 事件 中 ， 通 过 判断 Shift 参数 ， 可 以 获知 用 户 按 下 的 是 键盘 的 哪 一 个 辅助 键 。 
下 面 这 个 实例 实现 在 文本 框 中 左手 按 住 【 Shift ] 键 、 右 手 单 击 鼠 标 ， 文 本 框 背 景色 


源 人 代码， 实例 文档 66.xlsm/UserForm2 


1l. Private Sub TextBoxl MouseDown (ByVal Button As Integer, ByVal Shift AS 
Integer, ByVal X AS Single, ByVval Y As Single) 


之 Select Case Shift 

3 Case 1 " 按 住 了 Shift 
一 Me.TextBoxl .BackColor = vbhBlue 

5 Case 2 ' 按 住 了 了 Ctrl 
6. Me.TextBoxl .BackColor = VvbRed 

7 Case 4 ' 按 住 了 Alt 

8 Me.TextBoxl .BackColor = vbhGreen 

有 End Select 

10. End Sub 


代码 分 析 : 本 例 只 根据 Shift 参数 进行 判断 ， 因 此 当 用 户 按 住 【 Ctrl 】 键 的 同时 ， 无 论 
单 击 的 是 鼠标 的 左 键 、 右 键 、 中 键 中 的 任意 一 个 ， 都 会 让 文本 框 变 红 。 


16.23.3 “判断 单 击 位 置 


当 用 鼠标 在 按钮 上 单 击 时 ， 不管 单 击 到 按钮 的 什么 位 置 ， 只 要 单 击 上 , 一 定 触发 Click 
事件 。 但 是 如 采 要 根据 单 击 按钮 的 位 置 不 同 ， 做 不 同 的 处 理 ， 束 需要 用 到 MouseDown 事件 
中 的 X、Y 参数 。 

下 面 的 实例 实现 将 命令 按钮 Caption 设置 为 多 行文 本 ， 用 鼠标 单 击 按钮 上 不 同位 置 ， 妃 
加 到 文本 框 中 的 内 容 是 不 同 的 。 

首先 在 窗 体 上 搬 人 一 个 按钮 ， 把 该 按钮 的 宽度 和 高 度 设置 为 一 样 的 数值 ， 使 其 成 为 正方 
形 按钮 。 


加 载 中 


请 耐心 等 待 或 者 刷新 重 试 


MA 
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16.23.4 ”移动 妃 标 的 事件 


当 鼠 标 在 控件 上 方 移动 时 ， 和 触发 MouseMove 事件 ， 哪 怕 是 很 微小 的 移动 ， 也 会 触发 该 
事件 过 程 。 

以 下 实例 实现 当 鼠 标 在 按钮 上 面 挪动 时 ， 按 钮 的 标题 文字 为 鼠标 的 坐标 值 ; 如 采 按 住 鼠 
标的 任何 键 挪动 ， 窗 体 上 的 红色 标签 和 蓝 色 标 签 的 交叉 点 ， 恰 好 在 鼠标 的 位 置 。 

在 窗 体 上 放置 一 个 宽 160、 高 100 的 按钮 控件 ， 并 把 按钮 标题 改 为 空 字符 串 。 接 着 放 入 
一 个 标签 控件 ,设置 其 背景 色 为 红色 ， 高 度 为 2， 宽 为 1600， 和 按钮 水 平方 加 对 齐 。 再 放 人 
一 个 标签 控件 ,设置 至 景色 为 蓝 色 ， 局 为 100， 宽 为 2， 和 按钮 竖 百 方 回 对 章 。 

窗 体 设计 视图 如 图 16-89 所 示 。 

然后 编写 命令 按钮 的 MouseMove 事件 。 

源 代码 : 实例 文档 66.xlsm/UserForm4 


1. Private Sub CommandButtonl MouseMove (ByVal Button As JInteger, ByVal Shift 
As Integer, ByVal XxX AS Single, BYVal Y As Single) 


之 Ift Button = 0 Then 

3 Me.CommandButtonl.Ccaption = XX & ”区 工 

4 Else 

= Me.Label2.Left = Me.CommandButtonl.Left + XX 
6 Me.Labell.Top = Me.CommandBRButtonl.Top + Y 

1 End If 

8 End Sub 


代码 分 析 : 第 2 行 代码 中 ，Button=0 表示 未 按 鼠 标 键 ， 只 是 挪动 鼠标 ， 就 在 按钮 中 显示 
鼠标 的 当前 位 置 。 

如 果 按 住 鼠 标 挪动 ， 则 自动 移动 两 个 标签 控件 位 置 ， 从 而 在 鼠标 光标 处 出 现 一 个 十 字 
架 ， 如 图 16-90 所 示 。 


116. 4, BS. 4 








图 16-89 ”设计 期 间 图 16-90 ”借助 MouseMove 事件 移动 控件 


理解 和 窗 体 和 控件 各 种 用 法 ， 能 大 幅度 提高 作品 的 质量 。 本 书 配套 资源 中 UserForm- 
Demo.xlsm 是 一 个 用 户 窗 体 和 控件 的 展示 作品 ， 请 读者 参考 。 


16.24 “使 用 附加 控件 


VBA 的 和 窗 体 中 ， 除 了 可 以 使 用 15 种 内 置 控 件 以 外 ， 还 可 以 使 用 其 他 附加 控件 ， 从 而 进 
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一 步 丰 是 和 强化 窗 体 的 功能 。 

在 控件 工具 箱 右 下 角 空 日 处 右 击 
图 16-91 所 示 。 

在 “附加 控件 ”对 话 框 中 ， 勾 选 需要 的 控件 复 选 枉 ， 就 可 以 把 该 控件 放 到 工具 箱 中 ， 如 
图 16-92 所 示 。 





， 在 弹出 的 快捷 菜单 中 选择 “附加 控件 ”命令 ， 如 





口 Microsoft Terminal Services Client Contro|l = 
四 Microsoft Teclbar Control 6.0 (SPG) 
OD Microsoft Toolbar Control, version 5,0 (SP 
固 Microsoft TreeVlew Control 6,0 [SP6) 
DOD Microsoft TreeView Control, version 5.0 (SF 
四 Microsoft UpDown Control 6.0 (SP4) 
OD Mcrosoft UpDown Control, version 5.0 (SP 
Actihvew? | | lee 
内 置 控件 ss 因 Microsoft WinSock Control, version 6,0 (SP 
加 :5 D MMC IconControl class [ 国 
器 MIMCCtr| class 
0D MS TV Video Control 


DO MSChartWiz.SubWizard 时 不 
OD MSDTHostCtr| Class 厂 只 显示 所 选项 [S) 
«pm Lane 


Microsoft Web Browser 
位 置 CIWindows\system32weframe.dll 











图 16-91 使 用 附加 控件 图 16-92 ” 勾 选 附加 控件 


实际 上 ， 诸 如 CommonDialog 、DataGrid 、Treeview 这 些 控 件 ， 在 VB6 中 完全 文 持 ， 编 
程 思路 和 技术 上 和 VB6 完全 一 样 。 因 此 本 童 只 演示 一 个 WebBrowser 控件 在 VBA 中 的 用 法 
即 可 ， 甚 他 高 级 控件 暂 不 讨论 。 

要 想 在 VBA 的 窗 体 上 使 用 WebBrowser 控件 ， 需 要 在 附加 控件 列表 中 勾 选 Microsoft 
Web Browser 复 选 框 ， 然 后 把 工具 箱 中 的 图 标 拖 到 用 户 窗 体 上 即 可 。 

WebBrowser 控件 可 以 用 来 浏览 网 页 、 本 机 图 片 文件 。 

下 面 的 实例 实现 在 窗 体 上 插入 一 个 文本 框 作为 网 页 的 地 址 栏 ， 再 插入 一 个 WebBrowser 
控件 ,然后 插入 两 个 按钮 :“ 浏 览 本 地 网 页 ”和 “浏览 本 地 图 片 "， 用 来 显示 本 机 网 页 文件 以 
及 图 片 。 

源 代码 : 实例 文档 67.xlsm/UserForm1 





1 Private Sub CommandButtonl] Clickt) 

Me .WebBrowserl.Navigate ThisWorkbook.Path & ™\UBB.htm" 
本 End sub 

4. Private Sub CommandButton2 Click{() 


-3 Me .WebBrowserl.Navigate ThisWorkbook.Path & "\adosqlwizard.gif" 
6. End Sub 
1 Private Sub TextBoxl KeyDown (ByVal Keycode As MSForms.ReturniInteger, ByVal 
Shift As Integer) 
Ift KeyCode = vbhReyReturn Then 


‘DO OD 


Me .WebBrowserl .Navigate Me.TextBoxl .Text 
1 心 。 End I 
ll1l. End Sub 


代码 分 析 : 地 址 栏 文 本 框 的 keyDown 事件 的 作用 是 : 当 用 户 输 入 网 址 后 按 下 [ Enter ] 
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键 ， 就 让 WebBrowser 控件 去 打开 网 址 。 两 个 命令 按钮 的 作用 是 用 控件 显示 本 地 网 页 和 本 地 
图 片 。 

窗 体 运 行 时 的 效果 如 图 16-93 所 示 。 在 地 址 栏 输入 URL 后 按 【 Enter 】 键 ， 窗 体 上 显示 
网 页 内 容 。 


httpiiivba. mahoupao. net 


保 为 首 喉 收藏 本 站 


| V4 家 园 天 地 


论坛 
请 输入 搜索 内 容 


竹 ;论坛 
全 日 :0 | 昨日 :0 | 帖子 : 374 | 会员 : 3246 | 区 名 新 会员 : 8gusopy 


浏 上 本 Ht 页 | 5 本 Ha | 
图 16-93 VBA 窗 体 中 使 用 WebBrowser 控件 
如 采 单 击 “ 训 览 本 地 图 片 ” 按 钮 ， 则 窗 体 上 出 现 adosqlwizard.gif 这 个 本 地 图 片 。 





习题 


1、 窗 体 上 插入 一 个 文本 框 和 一 个 按钮 ， 文 本 框 的 MultiLine 属性 设置 为 Tue， 用 于 显 
示 一 首 古诗 。 请 设计 按钮 控件 的 MouseDowa 事件 ， 当 用 鼠标 左 键 单 击 该 按钮 时 ， 文 本 框 内 
容 为 左 对 齐 ; 当 用 鼠标 右键 单 击 该 按钮 时 ， 文 本 框 内 容 为 右 对 章 ， 如 图 16-94 所 示 。 











图 16-94 习题 1 效果 图 
2. 工作 表 Sheetl 中 是 我 国 部 分 省 份 、 日 治 区 、 和 直辖市、 特别 行政 区 及 城市 列表 ， 省 、 
日 治 区 、 和 下 辖 市 、 特 别 行政 区 名 称 位 于 A 列 ， 城 市 名 单 水 平 排列 ， 如 图 16-95 所 示 。 
请 在 用 户 窗 体 上 放置 一 个 组 合 框 和 一 个 列表 框 ， 窗 体 启 动 过 程 中 日 动 把 省 、 日 治 区 、 下 
辖 市 、 特 别 行政 区 名 称 添加 到 组 合 框 中 ， 当 单 击 组 合 框 中 任 一 条 目 时 ， 列 表 框 中 显示 所 选 省 
份 、 日 治 区 、 下 辖 市 、 特 别 行政 区 的 城市 列表 。 效 果 如 图 16-96 所 示 。 
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国 
石家庄 
山西 省 本 库 太 
内 蒙古 目 沿 区 呼 和 洁 特 
辽宁 省 熏 遍 疆 


站 Do 3 


Wo 一 


中港 


资阳 





图 16-96 习题 2 效果 图 


3. 仍然 基于 第 2. 题 数据 表 ， 新 建 一 个 窗 体 ， 放 人 一 个 MultiPage 多 页 控件 。 然 后 在 窗 
体 的 启动 事件 中 为 多 页 控件 自动 增加 页 ， 并 且 每 页 中 自动 增加 以 城市 命名 的 复 选 框 。 窗 体 运 
行 后 ， 用 鼠标 切换 到 任意 一 页 ， 都 能 看 到 该 省 、 自 治 区 、 直 辖 市 、 特 别 行政 区 的 城市 名 称 。 
效果 如 图 16-97 所 示 。 


河北 省 | 山西 省 :内 蒙古 自 镁 区 辽宁 省 | 吉林 省 | 黑龙江 省 | 江苏 省 | 浙江 省 | 安徽 省 | 福建 省 | 江西 省 | 山东 省 | 河南 省 | 湖北 省 | 湖南 背 | 广 未 省 | 广西 省 | 海 小 
区 呼和浩特 区 呼 悦 由 这 区 所 藉 诡 庆 峰 厅 乌 海 万 通辽 万 社 未 雪 斯 ” 慷 乌 兰 察 布 ” 民 马 总 淖 评 





图 16-97 习题 3 效果 图 


第 17 章 


自 定 义工 具 栏 






关于 Office 2003 版 及 其 之 前 的 版 本 ， 微 软 Office 各 组 件 的 应 用 程序 一 直 都 采用 工具 栏 
( Commandbar) 的 方式 作为 界面 的 主要 组 成 部 分 。 虽 然 从 2007 版 开始 ， 使 用 功能 区 方式 代 
蔡 工 具 栏 方式 作为 主 界面 ， 但 是 在 VBA 编程 方面 仍然 可 以 对 工具 栏 进 行 操作 。 

传统 的 工具 栏 方式 具有 直观 、 容 易 操 作 等 优势 ， 在 Offce VBA 编程 方面 占据 着 重要 地 位 。 

除了 Office 各 应 用 程序 以 外 ，VBE、Visual Basic 6、AutoCAD 等 也 都 采用 的 是 工具 栏 
方式 。 也 就 是 说 ， 使 用 Office VBA 开发 以 上 组 件 中 的 搬 件 ， 离 不 开 自 定义 工具 栏 方面 的 知 
识 和 技术 。 

本 章 主 要 于 绕 工 具 栏 Commandbar 对 象 科 工具 栏 控件 CommandBarControl 对 象 展开 讨 
论 。 虽 然 在 任何 一 个 Offce 版 本 都 能 进行 工具 栏 的 日 定义 设计 ,但 为 了 更 好 地 理解 和 掌握 工 . 
具 栏 的 特性 和 行为 ， 本 章 主 要 操作 在 中 文 版 Excel 2003 中 进行 。 

Office 工具 栏 和 命令 控件 的 对 象 错 绽 复 杂 ， 下 接 全 究 其 VBA 编程 往往 难以 理解 。 因 此 
在 讲述 这 方面 的 编程 之 前 ， 先 回顾 一 下 基础 知识 。 


17.1 工具 栏 基础 知识 


工具 栏 是 一 种 命令 控件 的 容器 ， 在 Excel 2003 中 ， 最 上 面 的 菜单 叫 作 应 用 程序 的 主 菜 
单 ， 下 面 默 认可 见 的 是 “常用 ”工具 栏 和 “格式 ”工具 栏 。Excel 内 置 工具 栏 有 上 百 个 ,， 通 
常情 况 下 ， 具 有 类 似 功 能 的 命令 控件 集中 在 一 起 ， 放 在 同一 个 工具 栏 中 。 

工具 栏 从 类 型 上 可 以 分 为 以 下 三 类 。 

( 1) 菜单 栏 : 一 个 应 用 程序 只 能 有 一 个 菜单 栏 ， 菜单 栏 一 般 固定 地 停 徘 在 Excel 2003 的 
上 面 ,但 是 可 以 用 鼠标 把 菜单 栏 挪动 到 其 他 位 置 ， 如 图 17-1 所 示 。 


注意 : 工作 表 菜 单 栏 的 右上 角 没 有 用 于 关闭 工具 栏 的 按钮 ， 这 是 因为 工作 表 菜单 栏 
不 可 隐藏 。 
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图 17-1 FExcel 2003 荣 单 栏 


(2) 工具 栏 : 也 可 以 称 为 一 般 工 具 栏 ， 例 如 “常用 ”工具 栏 、“ 格 式 ” 工 具 栏 、“ 公 式 审 
核 ” 工 具 栏 都 是 一 般 工 具 栏 ， 如 图 17-2 所 示 。 





插入 习 ) 格 忒 血 ] 工具 立 ) ”数据 血 ) 窗口 煌 ”帮助 加 



































图 17-2 一 般 工 具 栏 
每 一 个 一 般 工 具 栏 的 右上 角 都 有 “关闭 ”按钮 ， 用 于 关闭 工具 栏 。 关 闭 工 具 栏 的 实质 就 
是 隐藏 工具 栏 。 
如 采 要 显示 其 他 工具 栏 ， 可 以 在 Excel 中 选择 “视图 ”一 “工具 栏 ”命令 ， 在 工具 栏 
条 目前 面倒 选 ， 束 可 以 显示 出 来 。 反 之 ， 去 挥 条 目前 面 的 对 勾 ， 束 可 以 关闭 /隐藏 工具 栏 。 
如 末 要 对 工具 栏 进行 更 详细 的 设 定 ， 单 击 最 下 面 的 “日 定义 ”按钮 (在 Excel 中 选择 “ 工 
具 ” 一 “ 目 定 义 ”命令 亦 可 )， 在 弹出 的 “上 自 定义 ”对 话 框 中 进行 设 定 ， 如 图 17-3 所 示 。 
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图 17-3 自 定 义工 具 栏 的 命令 
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工作 表 菜单 栏 和 一 般 工 具 栏 都 可 以 通过 鼠标 拖 动 的 方式 改变 工具 栏 的 位 置 ， 工 具 栏 的 售 
靠 方式 有 顶端 停靠 、 底 部 停靠 、 左 侧 停靠 、 右 侧 停靠 和 浮动 共 5 种 方式 ， 如 图 17-4 所 示 。 


区 档 式 全 工 且 6 禾 独 责 口 册 和 助 吕 硅 履 阁 季 帮助 的 问题 
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图 17-4 工具 栏 的 停 菲 方式 
(3) 碟 键 亲 单 : 这 类 工具 栏 也 可 以 叫 作 弹出 式 工具 栏 ，Excel 中 所 有 通过 右 击 弹出 的 快 
捷 灯 单 ， 都 属于 这 一 类 工具 柱 。 
一 般 情 况 下 这 类 工具 栏 是 不 可 见 的 ， 只 有 在 特定 对 象 上 右 击 ， 或 者 调用 ShowPopup 方 
法 才能 弹出 ， 例 如 单元 格 右键 菜单 、 工 作 表 标 签 菜 单 等 ， 如 图 17-5 所 示 。 
加 Hicrosoft Ezcel — Bookl 














从 下 拉 列 甫 中 选择 昂 ). . 
添加 些 视点 忆 ) 
创建 列表 ()... 





图 17-5 ”右键 菜单 
右键 菜单 不 可 关闭 / 隐藏 ， 也 不 可 改变 出 现 的 位 置 ， 只 能 出 现在 鼠标 右 击 位 置 附近 。 
以 上 无 论 哪 一 种 工具 栏 ， 工 具 栏 中 容纳 的 都 是 工具 栏 控 件 。 工 具 栏 控件 是 OffGce 独 有 
的 ， 有 其 目 己 的 一 套 VBA 模型 。 
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17.1.1 使 用 目 定 义 对 话 框 


在 Excel 中 选择 “工具 ”一 “日 定义 ”命令 ， 弹 出 “ 目 定 义 ” 对 话 框 ， 通 过 使 用 “ 目 定 义 ” 
对 话 框 ， 可 以 对 Excel 的 工具 栏 、 控 件 进行 详细 设 定 。 
三 个 选项 卡 ， 如 图 17-6 所 示 。 


“工具 栏 ” 选 项 卡 的 功能 是 显示 /隐藏 工具 栏 、 via Be 
Yeb 





新 建 目 定义 工具 栏 、 重 命名 工具 栏 、 删 除 工 具 栏 和 
附加 工具 栏 。 


注意 :“ 工 具 栏 ”选项 卡 中 列 出 的 工具 栏 只 是 
Excel 种 用 的 一 些 工 具 栏 ， 并 非 Excel 所 有 内 置 
工具 栏 。 





图 17-6 自 定义 工具 栏 的 对 话 框 


“命令 ”选项 卡 的 功能 是 把 Excel 内 置 的 命令 拖 放 到 工具 栏 中 ， 例 如 在 左 侧 “类 别 ” 列 
表 框 中 选择 “工具 ”选项 ， 在 右 侧 “命令 ”列表 框 中 选择 “ COM 加载 项 ”选项 ， 用 鼠标 
拖 动 该 项 到 Excel 的 其 他 工具 栏 中 ,关闭 “日 定义 ”对 话 杠 后， 就 可 以 使 用 该 命令 了 了 ， 如 
图 17-7 所 示 。 

在 “选项 ”选项 卡 中 ， 可 以 对 工具 栏 的 显示 方式 进行 设 定 ， 如 图 17-8 所 示 。 





工具 栏 @) | 命令 C) [选项 @) | 工具 栏 @ | 命令 CC) | 送 项 @i | 
府 工 具 栏 中 添加 新 命令 ， 介 择 类 别 并 格 命 令 从 此 对 话 框 拖 放 至 工具 个 性 化 菜单 和 工具 栏 


类 别 (@); 癌 分 两 排 显 示 “ 常 用 ”工具 栏 和 “格式 ”工具 栏 8) 




















始终 显示 整个 菜单 如 
最 标 指针 短暂 停留 后 显示 完整 菜单 
本 轩 沫 单 和 工具 栏 惯用 状 指 到 ) 
其 地 
口 太 图标 中 ) 


全 部 重 算 列 出 字体 名 称 时 显示 该 字体 的 实际 外 观 还 ) 
司 控件 工具 箱 显示 关于 工具 栏 的 屏幕 提示 并 ) 


更 中 所 选 内 容 如) * | | 重 排 命 全 总 )，.， 菜单 的 打开 方式 各) , 「 (系统 默认 值 | 








图 17-7 拖 动 内 置 命 令 到 工具 栏 中 图 17-8“ 自 定义 ”对 话 框 之 “选项 ”选项 卡 


17.1.2 手工 万 式 进 行 工 具 栏 设计 


通过 “上 自 定义 ”对 话 框 的 “工具 栏 ” 选 项 不， 可 以 对 内 置 工 具 栏 进行 维护 ， 也 可 以 对 后 
期 创建 的 目 定 义工 具 栏 进 行 管理 和 维护 。 

17.1.2.1 工具 栏 控件 的 复制 、 移 动 和 删除 

打开 Excel 的 “上 自 定义 ”对 话 框 后 ， 处 于 工具 栏 和 控件 的 自 定 义 状 态 ， 不 能 对 工作 表 和 
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单元 格 进行 编辑 ， 如 图 17-9 所 示 。 


| 工具 栏 四 | 请 字 此 | 选项 中) | 


Tm 迁 择 二 中 于 将 前 仿 以 此 对 话 扯 卸 交 至 工具 





图 17-9 ”上 自 定 义工 具 栏 模式 

在 这 个 状态 下 ， 任 意 两 个 工具 栏 中 的 控件 可 以 用 鼠标 拖 动 ， 例 如 可 以 把 “公式 审核 ” 工 
有 具 栏 中 的 控件 移动 到 “第 用 ”工具 栏 中 。 

如 末 是 用 鼠标 拖 动 控件 ， 则 该 控件 在 原 工 具 栏 中 看 不 到 了 。 如 有 末 是 按 住 【 Ctrl 】 键 的 同 
时 拖 动 控件 ， 则 是 把 该 控件 复制 一 份 ， 移 动 到 目标 工具 栏 中 。 

如 果 把 工具 栏 中 的 控件 拖 动 到 单元 格 区 域 ， 那么 相当 于 删除 了 该 控件 。 

通过 以 上 方法 ， 还 可 以 更 改 探 件 在 工具 栏 中 的 位 置 ， 例 如 把 “第 用 ”工具 栏 的 “新 建 ” 
按钮 ， 移 动 到 该 工具 栏 的 末尾 。 


注意 : 在 不 打开 “ 自 定 义 ” 对 话 框 的 状态 下 ， 也 可 以 进行 控件 的 移动 操作 ， 方 法 是 
用 左手 按 住 【 Alt 】 键 ， 然 后 用 鼠标 拖 动 控件 即 可 。 


17.1.2.2 ”改变 工具 栏 控件 的 样式 

打开 Excel 的 “ 自 定 义 ” 对 话 框 ， 在 工具 栏 的 控件 上 右 击 ， 弹 出 控件 的 设计 汪 单 ， 如 
图 17-10 所 示 。 

通过 该 右键 菜单 ， 可 以 对 控件 的 很 多 属性 进行 更 改 。 可 以 更 改 的 内 容 如 下 。 

口 重新 设置 : 即 重 置 ， 把 控件 恢复 为 出 三 状态 。 

口 删除: 从 工具 栏 中 删 掉 控件 。 

D 命名 : 更 改 控件 的 标题 文字 。 

D 图 像 : 设置 控件 的 图 标 。 

口 样式 : 分 为 总 是 只 用 文字 、 在 羔 单 中 只 用 文字 、 图 像 与 文本 两 者 都 显示 3 种 样式 。 
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口 开始 一 组 : 





在 控件 前 面 出 现 一 条 分 隔 线 。 














吝 志 | 按钮 图 像 民 ) 
粘 唔 近 乔 图像 全) 


在 工 且 栏 中 添加 新 牛人 守 ， 索 择 间 别 并 桂 评 守 以 此 对 语 慌 挤 训 至 工 且 
关 别 [GY: 


息 是 只 用 谈 宇 位 ) 
在 菜单 中 只 用 如 证 半 ] 
图 惕 与 喜 示 包 ] 





图 17-10 使 用 控件 的 设计 菜单 
口 分 配 超 链接 : 单 击 该 控件 后 ， 超 链接 到 其 他 网 址 、 文 件 。 
口 指定 宏 : 单 击 该 控件 后 ， 调 用 VBA 中 的 过 程 。 
下 面 对 “ 第 用 ”工具 栏 的 “打开 ”按钮 ， 进 行 目 定义 设置 : 首先 把 标题 改 为 “打开 文件 ， 
然后 更 改 图 标 为 “ 首 乐 "， 样 式 更 改 为 “图 像 与 文本 ,人 义 选 “开始 一 组 ” 复 选 框 ， 指 定 宏 为 
标准 模块 中 是 Sub Test1。 设 计 期 间 效 果 如 图 17-11 所 示 。 




















村 配 超 链 接 必 ) 
指定 室 员 . 





图 17-11 更 改 按 钮 的 各 个 属性 


关闭 “ 自 定义 ”对 话 框 后 ， 单 击 “ 打 开 ” 按 钮 ， 不 会 打开 Excel 文件， 而 是 去 执行 
VBA 中 的 过 程 。 

上 面 讲 述 的 是 基于 原 有 内 置 控 件 进 行 自 定义 。 还 可 以 在 工具 栏 中 创建 一 个 新 按钮 ， 方 法 
是 在 “ 自 定义 ”对 话 杠 中， 切换 到 “命令 ”选项 卡 ， 在 “类 别 ” 列 表 框 中 选择 “ 宏 ” 选 项 ， 
在 右 侧 “命令 ”列表 框 中 选择 “ 自 定 义 按 钮 ”选项 ， 然 后 把 该 按钮 拖 放 到 工具 栏 中 进行 设计 
即 可 ， 如 图 17-12 所 示 。 
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图 17-12 创建 新 按钮 


17.1.2.3 内置 工 具 栏 的 重 置 

在 上 自 定 义工 具 栏 期 间 ， 对 内 置 工具 栏 中 的 控件 进行 了 修改 、 新 增 、 删 除 操作 ， 如 采 要 恢 
复 为 出 厂 状 态 ， 就 得 重 置 。 

打开 Excel 的 “ 自 定 义 ” 对 话 框 ， 选 中 需要 重 置 的 内 置 工具 栏 后 ， 单 击 “ 重 新 设置 ” 按 
钮 ， 在 弹出 的 对 话 框 中 单 击 “确定 ”按钮 即 可 ， 如 图 17-13 所 示 。 
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17-13 ”内 置 工 具 栏 的 重 置 


17.1.2.4 自 定 义工 具 栏 的 增加 

在 Excel 的 “ 自 定 义 ” 对 话 框 中 ， 单 击 “ 新 建 ” 按 钮 ， 在 弹出 的 “新 建 工 具 栏 ” 对 话 框 
中 输入 新 工具 栏 的 名 称 后 ， 单 击 “ 确 定 ”按钮 ， 如 图 17-14 所 示 。 

此 时 新 建 了 没有 任何 控件 的 空 工 具 栏 ， 但 是 可 以 从 “工具 栏 ” 列 表 框 中 看 到 它 。 
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工具 栏 中 把 一 些 经 常用 的 控件 拖 动 到 刚刚 新 建 的 工具 栏 中 ， 如 





接着 ， 从 其 他 内 加 
氏 17-15 所 示 。 











上 | 工具 栏 四 辣 令 怠 ) | 选 项 外 | 


‖ 工具 栏 &): 








重新 世 置 中 1 


附加 ... 














图 17-14 新 建 工 具 栏 图 17-15 ”实现 效果 

创建 自 定义 工具 栏 后 ， 关 闭 Excel 后 下 次 重启 ,该 工具 栏 还 在 。 单 击 “ 自 定义 ”对 话 框 
中 的 “删除 ”按钮 可 以 把 自 定义 工具 栏 删除 。 

综 上 所 述 ， 工 具 栏 分 为 内 置 工具 栏 和 自 定义 工具 栏 。 内 置 工具 栏 可 以 重 置 ， 不 可 删除 ; 
白 定 义工 具 栏 可 以 删除 ,不 可 重 置 。 

通过 “日 定义 ”对 话 框 ,不 能 对 右键 茉 单 进行 日 定义 。 例 如 ， 通 过 手工 的 方式 不 能 对 
Excel 单元 格 右键 集 单 中 的 控件 进行 增删 。 

不 论 是 哪 一 种 工具 栏 ， 都 可 以 容纳 内 置 控件 和 自 定义 控件 。 按 钮 是 最 常见 的 工具 栏 
控件 。 

17.1.2.5 ”和 目 定 义工 具 栏 的 附加 

通常 情况 下 ， 工 具 栏 和 控件 的 设置 是 应 用 程序 级 别 的 改动 ， 也 就 是 说 ， 自 定义 工具 栏 技 
术 和 工作 短文 件 是 没关系 的 。 

但 是 ，Excel 提供 了 一 种 附加 工具 栏 到 工作 竹中 的 方式 ， 可 以 把 用 户 创建 的 自 定 义工 具 
栏 保 存 于 工作 海中 ， 工 作 短 一 打开 就 出 现 对 应 的 工具 栏 。 

下 面 的 实例 中 首先 在 Excel 中 打开 “实例 文档 01.xls”， 然 后 在 “ 目 定 义 ” 对 话 杠 中 单 击 
“附加 ”按钮 ， 弹 出 “附加 工具 栏 ”对 话 框 ， 把 需要 附加 的 工具 栏 复 制 到 右 侧 ， 如 图 17-16 
所 示 。 

接着 ， 单 击 “ 确 定 ” 按 钮 ， 并 关闭 “日 定义 ”对 话 框 ,保存 并 关闭 工作 和 泗 文件 。 

不 管 Excel 应 用 程序 还 有 没有 “我 的 收藏 ”工具 栏 ， 以 后 每 次 打开 “实例 文档 01.xls ”， 
都 会 看 到 这 个 工具 栏 。 也 就 是 说 ， 工 具 栏 已 经 保存 到 Excel 文件 中 。 








注意 : 对 于 存储 于 工作 竹中 的 工具 栏 ， 即 使 该 工作 每 已 经 关闭 了 ， 工 具 栏 也 不 会 随 
之 消失 ， 这 还 需要 用 VBA 来 控制 。 
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图 17-16 为 工作 秒 附 加 工具 栏 


17.1.3 ” 目 定 义工 具 栏 的 仓储 位 置 


Excel 对 工具 栏 和 控件 的 各 种 改动 信息 ， 存 储 于 Excel 启动 路 径 下 的 .xlb 文件 中 。 可 以 
运行 下 面 的 过 程 ， 目 动 打开 该 文件 夹 ， 如 图 17-17 所 示 。 


1.。 Sub OpenXLB() 
ps Shell "Explorer.exe ™" & Replace (Application.StartupPath, ™\XLSTART", ™"™", 
Compare:=vbTextCompare), vbhbNormalFocus 


3. End Sub 


运行 上 述 过 程 后 ， 快 速 打开 工具 栏 配置 文件 所 在 位 置 。 其 中 ，Excelll.xlb 文件 就 是 用 于 
存储 Excel 2003 工具 栏 信息 的 。 


和 Erzcel 加 回 图 
立 件 正 】 ” 闹 辑 下 | ”查看 Ww 收 项 全 工具 民 帮助 而) 寺 
人 FEE -全 :让 Pol 上 文件 到 | 国 - 


地 址 D) [下 人 “Documents ard Settinzs\rmeifta-xp hoplication Da rrosoft Excel ba 转 到 
芯 小 ”类型 | 慷 卜 日 期 


玄 证 和 立 几 夷 性 劳 | 玄 件 去 2017-1-22 23:20 


Excelll. xlb 57 HE Microsoft Excel... 2017-T-24 18:11 


玉音 创 娃 一 个 新 让 福 去 
| Ex eell12. sb 61 EE Micresoft Fxeel,.. 2017-4-28 16:15 


:a | 
人 





图 17-17 ”保存 工具 栏 信 息 的 Excel 文件 


如 果 内 置 工 具 栏 被 破坏 严重 ， 或 者 创建 的 元 余 目 定义 工具 栏 和 有 目 定 义 控 件 太 多 ， 就 可 以 
和 完 退 出 Excel， 然 后 把 Excelll.xlb 文件 删除 ， 下 次 局 动 Excel 时 会 目 动 创建 一 个 .xlb 文件 ， 
从 而 快速 把 Excel 的 界面 恢复 为 出 三 状态 。 

以 上 是 Office 工具 栏 方面 的 基础 知识 ， 下 面 重点 讲述 通过 编程 的 方式 来 操作 和 控制 
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Fxcel 工具 栏 。 


17.2 工具 栏 的 VBA 模型 


Application 应 用 程序 对 象 下 面 ， 用 CommandBars 集合 对 象 来 表示 Excel 的 所 有 工具 栏 ， 
而 其 单数 形式 CommandBar 则 表示 其 中 的 一 个 工具 栏 。 每 个 CommandBar 对 和 象 下 都 有 Com- 
mandBarControls 集合 对 象 ， 用 来 表示 该 工具 栏 中 的 所 有 控件 。 单 数 形 式 CommandBarCon- 
trol 表示 其 中 的 一 个 控件 。 工 具 栏 对 象 模型 示意 图 如 图 17-18 所 示 。 


Application 应 用 程序 对 象 








CommandBar 对 象 
CommandBarControls 集 合 对 象 
CommandBarControl 对 象 


图 17-18 ”工具 栏 对 象 模型 示意 图 


通过 上 面 的 模型 图 可 以 看 出 ， 单 数 形式 CommandBar 对 象 以 及 CommandBarControl 对 
象 是 学 习 人 研究 的 重点 


17.3 CommandBar 对 佘 


Excel 所 有 工具 栏 ， 使 用 CommandBars 集合 对 象 来 表示 。 因 此 ， 可 以 通过 裔 历 的 方式 ， 
列 出 Excel 所 有 的 工具 栏 。 

下 面 的 过 程 遍历 所 有 工具 栏 的 重要 属性 。 

源 代 码 : 实例 文档 02.xls/CommandBar 对 象 


1 Sub Testl]{() 

pa Dim cb As CommandBar 

EN Dim 1 As Integer 

二 ActiveSheet .UsedRange.ClearContents 

3 ActiveSheet.Range ("Al:F1") .Value = Array(" 工具 栏 名 称 "，" 本 地 名 称 "，" 序号 "， 
" 类 型 "，" 控件 个 数 "，" 内置 ") 

6 i = 1 

1. For Each cb In Application.CommandBars 

8. i =1i+1 

9. Range ("A & 1).Value = cb.Name 

10. Range("B™ & 1).Value = cb.NameLocal 

11. Range ("CcC™ & 1).Value = cb.Index 

pa Range("D™ & 1).Value = cb.Type 

1] 3. RaTndge ( 下” & 1).Value = cb.Controls.Count 

1 4. Range ("FEF™ & 1).Value = cbh.BuiltIin 
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1 5 。 Next cb 
16. End Sub 


代码 分 析 : 对 象 变量 cb 是 一 个 工具 栏 对 象 ， 每 遍历 一 个 工具 栏 ， 整 型 变量 i 就 自 增 
第 7 ~ 14 行 代码 把 每 个 工具 栏 的 属性 写 人 到 单元 格 中 。 
上 述 过 程 运 行 后 ， 工 作 表 中 的 一 部 分 运行 结果 如 图 17-19 所 示 。 
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图 17-19 遍历 工具 栏 的 属性 


如 果 要 具体 引用 其 中 一 个 工具 栏 ， 既 可 以 用 工具 栏 的 名 称 来 引用 ， 也 可 以 用 序号 来 引 
用 ,但 是 不 能 用 本 地 名 称 来 引用 。 
CommandBar 对 象 属于 Office 类 库 ， 所 以 在 声明 变量 时 ， 前 面 可 以 加 上 Office 的 前 级 。 
下 面 的 过 程 测试 了 两 种 不 同 的 方法 来 引用 有 具体 的 工具 栏 。 
源 代 码 : 实例 文档 02.xls/CommandBar 对 象 


1 Sub Test2{) 

2 Dim cb As Office.CommandBar 

3 Set cb = Application.CommandBars("Sstandard") 
一 Debug.Print cb.NameLocal 

i Set cb = Application.CommandBars (6) 

6 Debug.Print cb.NameLocal 

1 Set cb = Application.CommandBars(" 格式 “ 

8 Debug.Print cb.NameLocal 

9 End Sub 


代码 分 析 : 第 3 行 代 码 使 用 内 置 工具 栏 的 名 称 Standard 来 引用 工具 栏 ， 打 印 结果 为 “常用 ”。 
第 5 行 代 人 码 使 用 索引 来 引用 Excel 的 第 6 个 工具 栏 ， 打 印 结果 为 “图 表 ”。 
第 7 行 代码 试图 用 本 地 名 称 来 引用 工具 栏 ， 但 是 运行 出 错 。 


17.3.1 CommandBar 重要 属性 


17.3.1.1 名 称 和 本 地 名 称 
微软 Office 是 一 个 多 国语 言 的 大 型 办 公 套 件 ， 工 具 栏 的 名 称 都 采用 英文 ， 不 论 哪 一 国 的 
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Office 版 本 ， 名 称 (Name) 属性 都 是 唯一 的 。 而 本 地 名 称 (NameLocal) 属性 则 是 根据 Office 
的 界面 语言 来 决定 的 。 因 此 在 VBA 编程 中 ， 很 少 用 到 NameLocal 属性 。 


17.3.1.2 ”索引 序号 

Excel 的 每 一 个 工具 栏 都 有 一 个 唯一 编号 ， 这 个 编号 可 以 用 工具 栏 的 Index 属性 来 获取 ， 
该 属性 是 只 旋 属 性 ， 不 能 在 编程 过 程 中 修改 工具 栏 的 编号 。Index 属性 的 作用 通 稼 是 用 来 引 
用 工具 栏 。 





17.3.1.3 ”类 型 

工具 栏 的 类 型 用 Commandbar 对 象 的 Type 属性 来 描述 。Type 属性 的 取 值 为 Office.Mso- 
BarType 中 的 常量 之 一 。 

D msoBarTypeMenuBar: 工作 表 有 某 单 位， 该 枚 举 第 量 等 价 于 1。 

吕 msoBarTypeNormal: 一 般 工 具 柱 ， 该 枚 举 第 量 等 价 于 0。 

D msoBarTypePopup: 弹出 式 某 单 ， 该 枚 举 稼 量 等 价 于 2。 

所 以 ， 根 据 Type 的 结果 ， 就 可 以 判断 一 个 工具 栏 是 哪 一 个 类 型 的 。 

17.3.1.4 ”工具 栏 的 所 有 控件 

引用 工具 栏 中 所 有 控件 ， 需 要 访问 CommandBar 对 象 的 Controls 属性 ， 该 属性 返回 类 
型 为 CommandBarControls 。 

下 面 的 实例 用 来 获得 “常用 ”工具 栏 中 的 控件 总 数 。 

源 代码 : 实例 文档 02.xls/CommandBar 对 象 


1 Sub Test31{) 

之 Dim cts As Office.CommandBarControls 

3 Set cts = Application.CommandBars ("Standard™") .Controls 
4 MsgBox cts.Count 

3 End Sub 


17.3.1.5 ”工具 栏 的 内 置 属性 

CommandBar 对 和 象 的 BuiltIn 属性 用 来 判断 工具 栏 是 内 置 的 ， 还 是 用 户 目 己 创 建 的 ， 返 
回 布 尔 值 的 只 读 属 性 。 

假如 要 遍历 所 有 非 内 置 工具 栏 ， 就 可 以 利用 BuiltIn 属性 来 选择 性 遍历 。 

源 代码 : 实例 文档 02.xls/CommandBar 对 象 


1. Sub Test41{) 

pa Dim cb As CommandBar 

For Each cb In Application.CommandBars 
4. If cb.BuiltIin = False Then 

2 Debug.Print cb.Name 

6. End If 

i. Next cb 

8. End sub 


运行 上 述 程序 后 ， 在 立即 窗口 打印 出 所 有 用 户 目 定义 的 工具 栏 名 称 。 
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17.3.1.6 ”工具 栏 的 保护 属性 

CommandBar 对 象 的 Protection 属性 ， 用 来 设置 工具 栏 的 停靠 、 位 置 行为 。 该 属性 的 可 
取 值 为 Office.MsoBarProtection 中 的 枚 举 值 ， 如 表 17-1 所 示 。 如 果 同 时 使 用 多 个 枚 举 值 ， 用 
加 号 连接 即 可 。 


表 17-1 Office.MsoBarProtection 枚 举 常量 表 


枚 举 利 量 人 描 述 
msoBarNoChangeDock 1 不 可 改变 停靠 
msoBarNoChangeVisible 8 不 可 改变 可 见 性 
msoBarNoCustomize 不 可 自 定义 
msoBarNoHorizontalDock 不 可 水 平 停靠 
msoBarNoMove 不 可 移动 
msoBarNoProtection 0 不 加 任何 限制 
msoBarNoResilze 不 可 变更 尺寸 
msoBarNoVerticalDock 不 可 垂直 停靠 


运行 下 面 的 代码 ， 可 以 把 常用 工具 栏 设 置 为 : 

口 不 可 日 定义 (打开 “日 定义 ”对 话 框 后 ,不 可 修改 该 工具 栏 中 的 控件 )。 
口 不 可 水 平 停 菲 (不 可 徘 项 端 或 压 部 停 菲 ,但 可 以 同 左 、 问 右 侧 停 徘 )。 
口 不 可 变更 尺寸 (不 能 用 鼠标 拖 住 工具 栏 边缘 改变 其 大 小 和 行 数 )。 

源 代码 实例 文档 02.xls/CommandBar 对 象 


LL Sub Testo() 

2 Dim cb As Office.CommandBar 

3 Set cb = Application.CommandBars("Standard") 

4 cb.Protection = Office.MsoBarProtection.msoBarNoCustomize + 
ms3oBarNoHorizontalDock + msoBarNoResize 


5. End Sub 


运行 上 述 过 程 后 ， 庶 者 可 以 在 Excel 中 感受 一 下 “第 用 ”工具 栏 的 行为 发 生 了 哪些 变化 。 
如 果 要 恢复 工具 栏 的 默认 行为 ， 就 把 其 Protection 属性 重 设 为 0 ( 即 msoBarNoProtection=0 ) 。 


17.3.2 CommandBar 重要 方法 


17.3.2.1 内 置 工具 栏 的 重 置 

使 用 CommandBarReset 方法 ， 可 以 把 内 置 工具 柱 重 置 。 所 谓 重 置 就 是 恢复 到 Excel 的 
初始 状态 。 即 使 是 内 置 工 具 栏 ， 也 人 允许 用 户 去 改动 其 控件 ， 所 以 ， 使 用 Reset 方法 可 以 快速 
把 工具 栏 恢复 。 

Application.CommandBars("Standard").Reset， 就 能 够 把 “第 用 ”工具 栏 重 置 。 


注意 : 非 内 置 工 具 栏 不 能 应 用 Reset 方法 。 
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17.3.2.2 ”和 上 自 定义 工具 栏 的 删除 
和 内 置 工 具 栏 相反 ， 目 定义 工具 栏 不 能 重 置 ， 但 是 能 删除 。 
Application.CommandBars(" 我 的 收藏 ").Delete 就 能 够 把 日 定义 工具 柱 删 除 。 


注意 : 不 能 删除 内 置 工具 栏 。 


17.3.2.3 ”查找 控件 

如 有 果 知 道 一 个 控件 在 工具 栏 中 的 索引 位 置 ， 或 者 已 知 控件 的 标题 文学 ， 可 以 用 Com- 
mandBar.Controls(i) 来 引用 第 1 个 控件 ， 或 者 用 CommandBarControls(" 打开 由来 引用 标题 
为 “打开 ”的 控件 。 

很 多 情况 下 ， 既 不 知道 索引 也 不 知道 标题 ， 那 么 可 以 根据 控件 的 其 他 属性 来 查找 。 查 找 
控件 主要 有 以 下 几 种 方法 。 

DCommandbars.FindControls: 从 所 有 工具 栏 中 查找 符合 条 件 的 控件 ， 返回 多 个 控件 。 

DD Commandbars.FindControl: 从 所 有 工具 栏 中 查找 符合 条 件 的 一 个 控件 。 

DCommandBarFindControl: 从 一 个 工具 栏 中 查找 符合 条 件 的 一 个 控件 。 

FindControls 和 FindControl 的 查找 参数 列表 是 一 样 的 ，FindControls 方法 的 完整 声明 是 : 


FindControls (Type, ID, Tag, Visible,Recursive) 


参数 说 明 如 下 。 

D Type: 用 来 规定 查找 的 控件 类 型 。 

DID: 控件 的 内 置 编号 

D Tag: 控件 的 标记 文本 。 

口 Visible: 可 见 性 。 

口 Recursive: 是 否 在 子 荣 单 中 进一步 查找 。 

以 上 各 个 参数 ， 可 以 选择 使 用 。 

下 面 的 实例 用 于 查找 Excel 所 有 工具 栏 中 的 所 有 组 合 框 类 型 控件 ， 例 如 字体 和 名称 或 字体 
大 小 控件 ， 就 是 一 种 组 合 框 控件 。 

由 于 查找 范围 是 所 有 工具 栏 ， 返回 的 结 采 是 一 个 集合 ， 不 是 单个 控件 ， 所 以 在 对 象 的 再 
明 方 式 上 要 多 加 注意 。 

源 代 码 : 实例 文档 03.xls/Commandbar 的 方法 


1。 Sub Testl() 
, Dim cts As Office.CommandBarControls, ct As Office.CommandBarComboBox 
和 Set cts = Application.CommandBars.FindControls (Type:=Office.MsoControlType. 
msoControlComboBox) 
It cts Is Nothing Then 
MsgBox " 没 找到 该 类 的 控件 " 
Else 
MsgBox "找到 该 类 控件 的 个 数 是 ; " & cts.Count 


For Each ct In cts 


区 ~ En 已 
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i Debug.Print ct.Type, ct.Caption, ct.Parent.Name 
10. Next ct 
11. End If 


1l2. End Sub 


代码 分 析 : 第 3 行 代 码 中 ， 对 象 变量 cts 用 来 获取 查找 到 的 上 所 有 组 合 框 控件 。 第 8 ~ 10 
| 每 一 个 找到 的 组 合 框 控件 ， 并 打印 该 控件 的 类 型 、 标 题 、 所 属 工 具 栏 的 名 称 。 
过 程 的 运行 结果 如 图 17-20 所 示 。 


显示 比例 (&Z): Standard 
字体 (&F): Formatting 
字号 (&F): Formatting 
图 表 对 象 必 CChart 


宇 你 德 环 引用 (8N)， Circular Reference 
显示 比例 必 Z) :Drganization Chart 


图 17-20 这 有 历 所 有 组 合 框 类 型 的 控件 


下 面 的 实例 用 来 查找 “格式 ”工具 栏 上 的 “加 粗 ” 按 钮 。 
源 代 码 : 实例 文档 03.xls/Commandbar 的 方法 





1 Sub Test2{) 

2 Dim cb As Office.CommandBar 

3 Dim bt As Office.CommandBarButton 

4. Set cb = Applicatijon.CommandBars ("Formatting") 

全 Set bt = cb.FindControl (Type:=Office.MsoControlType.msoControlButton, 
ID:=1]113) 


本 IE bt Is Nothing Then 

7. MsgBox " 没 找到 该 ID 的 控件 " 
8. Else 

-mn MsgBox bt.Caption 

10. End Iff 


ll1. End Sub 


代码 分 析 : 由 于 查找 范围 只 是 在 “格式 ”工具 栏 上 ， 所 以 使 用 CommandBarFindControl 
方法 。 第 4 行 代 但 CommandBars("Formatting") 表示 Excel 的 “格式 ”工具 栏 。 

第 5 行 代码 中 ，FindControl 方法 中 的 Type 参数 规定 为 按钮 控件 ,ID 为 113。 

运行 上 述 代 码 ， 结 采 如 图 17-21 所 示 。 

如 条 把 上 述 过 程 中 的 ID 修改 为 23， 册 次 运行 代码 ， 将 会 microsoft Excel 区 
nae ete gingee ME Gan) 
上 的 “打开 ”按钮 ， 从 “格式 ”工具 栏目 然 是 找 不 到 “打开 ”按钮 。 

如 条 要 在 所 有 工具 栏 中 查找 某 一 控件 ， 可 以 使 用 Application. 图 17-21 返回 “ 品 粗 " 
FindControl 方法 。 按钮 的 标题 

源 代码 : 实例 文档 03.xls/Commandbar 的 方法 





1. Sub Test3() 

; Dim bt As Office.CommandBarButton 
Set bt = Application.CommandBars.FindControl (Type:=Office.MsoControlType. 
3oCcontrolButton, ID:=113) 

4. It bt Is Nothing Then 
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5 MsgBox " 没 找 到 该 ID 的 控件 " 

6 Else 

i. MsgqBox bt.Caption & " " & bt.Parent.Name 

8 End I 

3 End Sub | 蜂王 下 全 Eq 
代码 分 析 : 注意 第 3 行 代码 是 在 所 有 工具 栏 中 查找 一 个 控件 。 a 


第 7 行 代 码 在 对 话 框 中 显示 控件 的 标题 、 控 件 所 属 工具 栏 的 名 称 。 
上 述 过 程 的 运行 结果 如 图 17-22 所 示 。 

17.3.2.4 ”自动 弹出 右键 菜单 

三 种 工具 栏 中 ， 只 有 右键 灯 单 这 种 类 型 的 工具 栏 能 够 使 用 ShowPopup 方法 弹出 。 
产 代 码 : 实例 文档 03.xls/Commandbar 的 方法 





1 Sub Test4{) 

2 Dim cb As Office.CommandBar 

3 Set cb = Application.CommandBars ("Ply") 
4 ch.ShowPopup 300, 200 

3 End Sub 


代码 分 析 : CommandBars("Ply") 是 工作 表 标 签 的 右键 菜单 ， er 
第 4 行 代码 的 作用 是 在 300 200 处 弹出 该 菜单 。 如 果 该 方法 后 不 尘 定 全 部 工作 表 68) 
带 参 数 ， 则 在 鼠标 所 在 位 置 弹出 菜单 。 

运行 上 述 代 码 ， 工 作 表 中 明 动 弹出 了 右键 菜单 ， 如 图 17-23 
所 示 。 





17.4 CommandBarControl 对 人 参 


对 于 一 个 工具 栏 ， 它 里 面 所 有 的 控件 用 CommandBar.Controls 集合 对 象 表示 ， 该 集合 的 
类 型 为 CommandBarControls。 其 中 的 每 一 个 控件 ， 是 一 个 CommandBarControl 类 型 的 对 象 。 

但 控件 的 类 型 是 多 种 多 样 的 ， 有 按钮 、 组 合 框 、 标 签 、 文 本 框 、 列 表 框 等 。 描 述 这 些 控 
件 的 类 型 ， 可 以 是 具体 的 对 象 类 型 ， 也 可 以 用 通用 的 CommandBarControl 类 型 。 

如 果 已 经 事先 知道 控件 的 类 型 ， 则 声明 对 象 时 ， 用 具体 的 对 象 类 型 。 反 之 ， 如 果 控 件 类 
型 不 是 一 种 ， 则 用 CommandBarControl 作为 对 象 的 类 型 。 

下 面 的 实例 引用 Excel 的 “格式 ”工具 栏 中 第 一 个 控件 ， 该 控件 是 字体 组 合 框 控件 。 

源 代 码 : 实例 文档 04.xls/ 控件 对 象 


1 Sub Testl]{() 

之 Dim cc As Office.CommandBarComboBox 

Ss Set c = Application.CommandBars ("Formatting") .Controls (1) 
4 MsgBox c.Caption 

3 End Sub 


代码 分 析 : 第 2 行 代码 中 ， 对 象 变 量 c 事先 声明 为 组 合 框 控件 ， 用 的 是 具体 的 对 象 类 型 。 
第 3 行 代码 CommandBars(“Formatting ”).Controls(1) 表示 格式 工具 栏 中 的 第 一 个 控件 ， 


478 Office VBA 开发 经 典 一 一 基础 入 门 卷 


也 就 是 字体 名 称 组 合 框 ， 如 图 17-24 所 示 。 


sDft Exccl] 守 例 立 冰 U3.x1s 
医 下 立 具 四。 蝙 辐 下 视图 扣 。 插 入 G) 格式 中 工具 数据 种) 窗口 00) 帮助 名 





有 华文 中 宁 
上 癌 SB2312 
EE 求 书 














图 17-24 引用 工具 栏 中 的 控件 
上 述 过 程 可 以 把 第 2 行 代码 更 改 为 Dim c As Office.。 pppoe 
CommandBarControl， 因 为 CommandBarControl 能 够 表 | stmta 3 
示 任 何 类 型 的 控件 。 i 
但 是 ,声明 的 类 型 绝对 不 能 和 有 具体 的 对 象 不 一 致 ， 例 
如 把 第 2 行 代码 改 为 Dim c As Office.CommandBarButton,， eel no)| | 
重新 运行 上 述 过 程 则 会 出 现 异常 ， 如 图 17-25 所 示 。 图 17-25 ”控件 类 型 不 匹配 





17.4.1 ”遍历 工具 栏 中 所 有 控件 信息 


在 工具 栏 和 控件 设计 过 程 中 ， 了 解 工具 栏 以 及 工具 栏 中 所 有 控件 的 属性 具有 很 重要 的 意 
义 。 下 面 的 实例 遍历 Excel 的 “格式 ”工具 栏 中 的 所 有 控件 。 
源 代码 : 实例 文档 04.xls/ 控件 对 旬 


1] Sub Test2z{() 

之 Dim cCc As Office.CommandBarControl 

3 Debug.Print ™ 控件 标题 "，" 类 型 "ID",， "Index",， " 内 置 " 

4. For Each C In Application.CommandBars( "Formatting") .Controls 
3 Debug.Print c.Caption, c.Type, Cc.ID, c.Index, c.BuiltIin 
6 Next Cc 

1 End sub 


代码 分 析 : 由 于 “格式 ”工具 栏 中 的 控件 种 类 不 是 一 种 ， 所 以 循环 变量 c 只 能 声明 为 
ComimandBarControl。- 


第 4 ~ 6 行 代码 ， 在 立即 窗口 打印 每 个 控件 的 属性 ， 如 图 17-26 所 示 。 
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百分比 样式 (&P) 


图 17-26“ 格 式 ” 工 具 栏 中 所 有 控件 的 属性 
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至 此 ， 已 经 讲述 阴历 Excel 所 有 工具 栏 ， 以 及 授 历 工具 栏 中 所 有 


知 - 识 点 是 本 章 最 重要 的 内 容 合 。 


作者 开发 的 OfficeCommandbarDesiener ( 见 
文 两 个 遍历 原理 制作 的 。 


图 17-28 )， 就 是 依据 这 
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图 17-28 OfficeCommandbarViewer 界面 


尤其 


及 工具 栏 、 控 件 的 VBA 


是 借助 OfficeCommandbarViewer 可 以 清晰 地 看 到 应 用 程序 工 
引用 方式 。 


| 
可 5| 用 :Application, Cormandbarstd), ControlsilT), Controlst2 纪 对 = 用 : 1 ati | , 加 杠 广 By ,Comntrol 寺 


工具 栏 的 组 织 结构 ， 以 
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可 以 从 本 书 配 套 资 源 下 载 到 以 上 两 个 工具 ， 文 件 名 分 别 为 OfficeCommandbarDesigner 
20170202.rar 和 OfficeCommandbarViewer20171005.rar。 


17.4.2 ”控件 的 属性 


17.4.2.1 1ID 和 Index 

微软 Office 把 所 有 的 内 置 控 件 (不 是 工具 栏 ) 都 设置 了 一 个 编号 ， 这 个 编号 ID 是 唯一 
不 变 的 ， 通 过 ID 就 可 以 唯一 确定 一 个 内 置 控件 。 

例如 ， 使 用 Application.CommandBars.FindControl(ID:=2520).Caption， 就 可 以 返回 “新 
建 (&N)， 因 为 “新 建 ” 按 钮 的 ID 就 是 2520。 

而 mdex 是 指 一 个 控件 在 所 属 工具 栏 中 的 位 置 ， 最 前 面 的 控件 的 Index 是 1。 工 具 栏 中 
的 控件 个 数 是 确定 的 ， 即 使 有 个 别 控件 的 Visible 是 False， 但 还 属于 工具 栏 的 一 个 控件 。 如 
果 控 件 的 前 方 插入 了 其 他 控件 ,或 者 控件 前 面 的 控件 被 删除 ， 都 会 重新 排 号 。 

例如 ,“ 和 常用 ”工具 栏 中 的 “保存 ”按钮 处 于 第 3 个 位 置 ， 如 图 17-29 所 示 。 





图 17-29“ 常 用 ”工具 栏 中 的 “保存 ”按钮 


那么 ，Application.CommandBars("Standard").Controls(" 保存 (&S)").Index 这 个 语句 返回 
3。 如 采 在 前 面 插入 了 其 他 控件 ， 所 有 控件 重新 编号 。 假 如 在 “打开 ”按钮 的 前 面 插 入 本 一 
个 其 他 控件 ， 上 述 VBA 语句 返回 的 结果 就 变 为 4， 如 图 17-30 所 示 。 


Ei 














Bm Ns NY Me es RN A 雹 丰 |100 
图 17-30 ”控件 前 插入 其 他 控件 


注意 : 有 些 控件 可 以 用 VBA 设置 其 可 见 性 为 False， 那 么 肉眼 从 工具 栏 看 不 到 隐藏 
的 控件 ， 但 是 这 些 控件 仍然 占据 一 个 位 置 。 


17.4.2.2 ”控件 的 类 型 
使 用 控件 的 Type 属性 来 获取 类 型 ， 返 回 结果 是 一 个 Office 类 库 的 MsoControlType 枚 举 
币 量 。 篆 用 控件 的 名 称 和 类 型 并 量 如 表 17-2 所 示 。 


表 17-2 Office 工具 栏 常 用 控件 的 名 称 和 类 型 常量 


控件 等 价 整 型 值 
按 包 
组 合 入 4 
列表 框 3 
文本 和 2 
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经 表 
控 件 类 型 
EE 
了 


Type 属性 不 仅 可 以 检测 控件 的 类 型 ， 而 且 为 工具 栏 添加 自 定 义 控 件 时 也 需要 用 到 Type 
属性 。 

下 面 的 实例 实现 打印 “格式 ”工具 栏 中 所 有 组 合 框 控件 的 标题 。 

源 代 码 : 实例 文档 04.xls/ 控件 对 和 象 








1 Sub Test31{) 

之 Dim C As Office.CommandBarControl 

For Each cc In Application.ComandBars ("Formatting") .Controls 

4. If c.Type = Office.MsoControlType.msoControlComboBox Then 
Debug.Print c.Caption 

6 End If 

i Next c 

8 End Sub 

运行 以 上 代码 ， 立 即 窗口 打印 结果 如 图 17-31 所 示 。 图 17-31 打印 工具 栏 中 
可 以 看 出 只 有 两 个 控件 是 组 合 框 类 型 的 。 所 有 的 组 合 框 类 型 控件 


17.4.2.3 ”控件 标题 、 提 示 语 和 标记 

控件 的 Caption 属性 表示 控件 的 标题 文字 ， 而 ToolTipText 属性 则 是 鼠标 移动 到 控件 上 
方 时 的 提示 语 。 这 两 个 属性 部 是 可 读 写 的 。 

通过 VBA 引用 工具 栏 中 的 一 个 控件 的 方法 有 两 个 : 一 是 用 控件 的 Index 守 引 序号 ; 二 
是 用 控件 的 Caption 属性 。 

例如 ，Application.CommandBars("Standard").Controls (" 新建 (&N)") 和 Application. 
CommandBars("Standard").Controls(1) 引用 的 是 同一 个 控件 。 


注意 如 采 控 件 的 标题 被 修改 ， 则 不 能 用 原先 的 Caption 来 引用 该 控件 ; 同 理 ， 当 控 
件 的 前 面 插入 或 删除 了 控件 ,不 能 用 原先 的 Index 来 引用 该 控件 。 


设置 ToolTipText 属性 时 ， 当 鼠标 在 控件 附近 时 ， 可 以 看 到 一 句 提 示 语 。 例 如 ， 执 行 如 
下 代码 : 


Application.CommandBars("Standard") .Controls(" 新 建 (&N)") .TooltipText = ™ 单 击 我 


可 以 新 建 工作 簿 " 
当 妇 标 移动 到 “新 建 ” 按 钮 时 ， 出 现 提 示 语 ， 如 图 17-32 所 示 。 

此 外 ，ToolTipText 属性 还 有 一 个 作用 是 创建 超 链 接 。 下 面 的 实例 把 “常用 ”工具 栏 的 
“新 建 ”按钮 修改 了 若干 属性 ， 使 得 单 击 该 按钮 时 并 不 新 建 工 作 短 ， 而 是 在 浏览 器 中 打开 搜 
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图 17-32 设置 控件 的 提示 语 


源 代码 : 实例 文档 04.xls/ 控件 对 象 


1. Sub Test4() 

wa Dim NM As Office.CommandBarButton 

全 Set N = Application.CommandBars{("SsStandard") .Controls(”" 新 建 (&N)") 
4. With N 

Ss .TooltipText = "http://www.sohu.com.cn" 

6. -Caption = ™ 楼 狐 网 " 

Fe .HyperlinkType = masoCommandBarButtonHyperlinkOopen 

8 。 End With 

9. End Sub 


运行 上 述 代 人 码 后 ， 结 果 如 图 17-33 所 示 。 









图 17-33 ” 单 击 控件 超 链 接 到 网 页 


控件 还 有 一 个 Tag 标记 属性 ， 该 属性 通常 情况 下 没什么 作用 ， 但 是 今后 用 到 工具 栏 的 封 
装 时 ， 会 用 到 该 属性 。 


下 面 的 实例 设置 “新 建 ”按钮 的 Tag 属性 ， 并 在 对 话 框 中 调 出 。 
源 代码 : 实例 文档 04.xls/ 控件 对 象 


1 Sub Testo{() 

2 Dim N As Office.CommandBarButton 

: Set N = Application.CommandBars("SsStandard") .Controls(" 新 建 (&N)™") 

4. With N | 本 
< .Tag = "New Book"™ 





6 MsgBox " 该 控件 的 标记 是 : " & UCase(.Tag) 
二 六 End With 
8 End Sub 
图 17-34 返回 控件 的 
上 述 过 程 的 运行 结果 如 图 17-34 所 示 。 Tag 属性 


17.4.2.4 可 用 性 与 可 见 性 


该 控件 的 标记 是 : HEW BOOK 


工具 栏 中 的 控件 的 Enabled 属性 设 为 False， 控 件 变 为 灰色 不 可 用 ; 设置 Visible 属性 为 
False 则 完全 隐藏 控件 。 


以 下 实例 把 “新 建 ”按钮 茶 用 ， 但 显示 该 按钮 。 
源 代码 : 实例 文档 04.xls/ 控件 对 旬 


1. sub Test6() 
A Dim N As Office.CommandBarButton 
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3 Set NM = Application.CommandBars("Sstandard") .Controls(" 新 建 (&N) ") 
4. With N 

i .Enabled = False 

6 .Visible = True 

1 End With 

8 End Sub 


运行 上 述 过 程 后 ， 该 控件 不 可 单 击 。 如 果 Visible 设 为 False， 则 隐藏 该 控件 ， 虽 然 隐 
藏 ， 但 是 该 控件 仍然 是 工具 栏 中 的 一 员 。 


17.4.2.5 ”按钮 的 样式 和 控件 分 组 线 

一 个 按钮 控件 由 标题 文字 和 图 标 构 成 ， 外 观 上 可 以 显示 其 一 , 或 者 二 者 都 显示 。 控 件 的 
样式 风格 由 控件 的 Style 属性 决定 。 第 用 的 样式 枚 举 并 量 如 下 。 

DD msoButtonIconAndCaption: 显示 图 标 和 标题 ， 图 标 在 左 ， 标 题 在 右 。 

口 msoButtonCaption: 只 显示 标题 。 

口 msoButtonIcon: 只 显示 图 标 。 

D msoButtonIconAndCaptionBelow: 显示 图 标 和 标题 ， 图 标 在 上 ， 标 题 在 下 。 

下 面 的 实例 对 “常用 ”工具 栏 的 前 8 个 控件 的 样式 进行 设 定 。 

源 代码 : 实例 文档 04.xls/ 控件 对 象 


1]. Sub TestyI() 


之 。 Application.CommandBars ("Standard") .Controls (1) .Style = Office.MsoButtonSstyle. 
msoButtonIconAndCaption 

3 Application.CommandBars ("Standard") .Controls (2) .Style = Office.MsoButtonSstyle. 
msoButtonIconAndCaption 

4. Application.CommandBars ("Standard") .Controls (3) .Style = Office.MsoButtonstyle. 
msoButtonCaption 

hs Application.CommandBars ("Standard") .Controls (4) .Style = Office.MsoButtonSstyle. 
msoButtonCaption 

局 。 Application.CommandBars ("Standard") .Controls (5) .Style = Office.MsoButtonSstyle. 
msoButtonlcon 

1. Application.CommandBars ("Standard") .Controls (6) .style = Office.MsoButtonStyle. 
msoButtonlcon 

8. Application.CommandBars ("Standard") .Controls (7) .style = Office.MsoButtonSstyle. 
msoButtonIconAndCaptionBelow 

-站 Application.CommandBars ("Standard") .Controls (8) .Style = Office.MsoButtonSstyle. 


msoButtonIconAndCaptijonBelow 
10. End sub 


运行 上 述 过 程 后 ， 结 果 如 图 17-35 所 示 。 





图 17-35 ”设置 按钮 的 图 标 和 标题 文字 对 齐 方式 
控件 前 面 的 竖 线 是 分 组 线 ， 可 以 通过 设置 BeginGroup 属性 来 实现 。 
运行 下 面 的 过 程 ， 可 以 在 第 2 和 第 3 个 控件 的 前 面 出 现 竖 线 。 

源 代 码 : 实例 文档 04.xls/ 控件 对 象 


1. Sub Test8 () 
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pa Application.CommandBars("Standard") .Controls{(2) .BeginGroup = True 
全 Application.CommandBars("Standard") .Controls(3) .BeginGroup = True 
4. End Sub 


上 述 过 程 运行 后 , “常用 ”工具 栏 的 效果 如 图 17-36 所 示 。 





图 17-36 ”控件 前 显示 分 组 线 


17.4.2.6 回调 国 数 

单 击 Excel 的 内 置 控件 会 啊 应 内 置 功能 。 对 于 用 户 创 建 的 日 定义 控件 ， 必 须 修改 设 定 其 
OnAction 属性 ， 去 链接 到 VBA 中 的 宏 过 程 。 否则 ， 控 件 不 起 作用 。 

不 论 是 内 置 控件 还 是 日 定义 控件 ， 均 可 设置 OnAction 属性 。 

下 面 的 实例 禁用 “ 篆 用 ”工具 栏 中 的 “打开 ”按钮 的 内 置 功能 ， 使 得 单 击 该 按钮 时 ， 目 
动 执行 标准 模块 exam 下 面 的 Msg 过 程 。 

源 代 码 : 实例 文档 04.xls/ 控件 对 和 象 


1。 Sub Test9() 
pe Application.CommandBars("Standard") .Controls(2) .OnAction = "exam.Msg" 
3。 End Sub 


17.4.2.7 返回 和 设置 按钮 的 勾 选 状态 
Excel 中 的 按钮 控件 ， 有 按 下 和 弹 起 两 种 状态 。 例 如 ,“ 视 图 ”一 “编辑 栏 ”命令 ， 勾 选 


时 前 面 会 打 勾 ， 再 例如 “格式 ”工具 栏 中 的 “加 粗 ” 按 钮 ， 单 击 一 下 该 按钮 ， 会 呈现 按 下 状 
态 ， 如 图 17-37 所 示 。 


icrpepEls Excel] 一 实例 文档 04.- ls 


”数据 了 0) 窗口 如 ” 才 助 山 ) 


页 眉 和 页 脚 ii)..， 
批注 已 ) | 
视图 管理 器 (0)... 













































































显示 比例 多 ).. . 
图 17-37 按钮 控件 的 两 种 状态 
对 于 内 置 的 按钮 控件 ， 只 能 获取 人 勾 选 状态 ， 不 能 更 改 其 勾 选 状态 。 
下 面 的 实例 用 来 获取 “加 粗 ” 按 钮 的 状态 。 
源 代码 : 实例 文档 04.xls/ 控件 对 象 


1. Sub Testl10t() 
Dim N As Office.CommandBarButton 
Set N = Application.CommandBars("Formatting") .Controls(™" 加 粕 (&B)}™) 


i 3 
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I 本 .State = Offce .MsoButtonsState .msoBULLonDown Then 


MsgBox " 该 按钮 处 于 按 下 状态 。 om 


MsgBox " 该 按钮 处 于 弹 起 状态 。" 
End 工 工 
End Sub 


= 
5 
0. Else 
| 
8 
9 
对 于 目 定 义 的 按钮 控件 ， 还 可 以 用 代码 预先 设 定 其 状态 。 下 面 的 实例 ,， 往 “格式 ”工具 
栏 的 最 左 侧 增加 一 个 自 定义 按钮 ， 并 设置 其 为 按 下 状态 。 
源 代码 : 实例 文档 04.xls/ 控件 对 象 


1。 Sub Testl1l1()} 


pa Dim N As Office.CommandBarButton 

了 Set NM = Application.CommandBars("Formatting") .Controls.Add (Type:= 
msoControlButton, Before:=1) 

4. With N 

5. -Caption = ” 网 格 线 ji 

6b. .Faceld = 381 

二 .Style = msoButtonIconAndCapt1ion 

8 . .State = msoButtonDown 

a End With 


10. End Sub 


上 述 过 程 运行 后 ， 结 果 如 图 17-38 所 示 。 





图 17-38 ”处于 按 下 状态 的 目 定 义 按钮 
如 果 把 上 述 过 程 中 的 CommandBars("Formatting") 完 
改 为 CommandBars("Cell0)， 并 且 把 FaceID 所 在 名 注释 
掉 ， 再 次 运行 ， 会 看 到 Excel 单元 格 右键 菜单 中 多 了 一 
个 勾 选 了 的 按钮 ， 如 图 17-39 所 示 。 


17.4.2.8 ”设置 控件 的 图 标 


二 设置 单元 格格 式 呈 ).. 


Excel 的 每 一 个 内 置 控件 都 有 一 个 唯一 的 ID 编号 ， 从 下 拉 列 表 中 选择 世 ) 
和 添加 此 视点 由 ) 
并 且 每 一 个 ID 都 相应 的 一 个 图 标 与 之 对 应 .不论 是 内 置 | 下 se 


控件 ， 还 是 用 户 目 定义 的 控件 ， 都 可 以 设置 和 更 改 图 
标 ( FaceID )。 控 件 的 FaceID 属性 是 一 个 1 ~ 10 000 - | 
的 整数 。 图 17-39 ”单元 格 右键 菜单 添加 按钮 
下 面 的 实例 把 “打开 ”按钮 的 图 标 更 改 为 “加 粗 ” 按 钮 的 图 标 。 
Excel 的 “加 粗 ” 按 钮 的 了 D 是 113， 因 此 可 以 执行 如 下 语句 : 





-让 是 赔 i 安 列 表 


Application.CommandBars ("standard") .Controls ("打开 ") .FaceId = ]13 
或 者 


Application.CommandBars ("Standard") .Controls{" 打 开 ").FaceId = Application. 
CommandBars ("Formatting") .Controls ("加 粕 (&B)") .ID。 


488 Office VBA 开发 经 典 一 一 基础 入 门 卷 


更 改 图标 后 的 效果 如 图 17-40 所 示 。 





图 17-40 把 “打开 ”按钮 的 图 标 更 改 为 B 


总 之 ， 默 认 情 况 下 ，ID 和 FaceID 是 一 一 对 应 的 ,但 是 ID 是 内 置 属性 ， 不 可 更 改 ， 而 
FaceID 则 可 任意 更 改 。 

在 工具 栏 和 控件 开发 过 程 中 ， 经 第 需要 查询 图 标 ， 本 书 配套 资源 中 的 FaceIDs V2 
ryueifu.xls， 文 件 中 有 以 10 个 目 定 义工 具 栏 呈现 的 图 标 查询 需 ， 如 图 17-41 所 示 。 
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图 17-41 图 标 查询 器 
除了 直接 规定 FaceID 属性 来 更 改 图 标 外 ， 还 可 以 使 用 CopyFace 和 PasteFace 来 实现 图 
标的 共享 。 
下 面 的 过 程 首先 复制 “倾斜 ”按钮 的 图 标 ， 然 后 粘贴 给 “打开 ”按钮 。 
源 代码 : 实例 文档 04.xls/ 控件 对 条 





1 Sub Test131() 

2 Dim btl As Office.CommandBarButton, bt2 As Office.CommandBarButton 

3 Set btl1 = Application.CommandBars ("Formatting") .Controls (" 倾斜 (&I)m) 
4. btl1.CopyFace 

Set bt2 = Application.CommandBRars ("Standard") .Controls (打开 ") 

6. bt2.PasteFace 

1 End Sub 


运行 上 述 过 程 后 ,“ 打 开 ” 按 钮 的 图 标 和 “ 倾 矢 ”按钮 的 图 标 一 样 了 。 
如 条 要 使 用 电脑 中 的 日 定义 图 片 作为 图 标 ， 则 需要 事先 把 图 片 插 人 到 工作 表 中 ， 复 制图 
片 后 ， 再 应 用 PasteFace 方法 。 
下 面 的 过 程 把 工作 表 上 的 一 个 图 片 作为 “打开 ”按钮 的 图 标 。 
源 代 码 : 实例 文档 05.xls/ 自 定义 图 标 





1。 Sub Testl () 
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pr Sheetl.Shapes (1) .Copy 
: Application.CommandBars ("Standard") .Controls( 打开") .PasteFace 
4. End Sub 


代码 分 析 : 第 2 行 代码 把 一 个 Shape 对 象 复制 ， 然 后 粘贴 给 “打开 ”按钮 ， 效 果 如 
17-42 所 示 。 


8 式 各 ) 工具 他 数据 种 窗口 血 ] 帮助 0 
Wk) 











图 17-42” 自 定义 图 片 作 为 图 标 


与 上 述 过 程 相反 ， 控 件 的 图 标 还 可 以 复制 到 工作 表 中 。 
源 代码 : 实例 文档 05.xls/ 自 定义 图 标 


1]. Sub Test2() 


pa Application.CommandBars("Standard") .Controls (3) .CopyFace 
3 Sheet2.Range ("B2") .Activate 

4. Sheet2.Paste 

i With Sheet2 .Shapes (1) 

6 .Left = .TopLeftcCell.Left 

1 -Top = .TopLeftCell.Top 

8. -Width = .TopLeftCell .Width 

Ys . Height = .TopLeftCell.Height 

10. End With 


ll1l. End Sub 


代码 分 析 : 第 2 行 代码 复制 “保存 ”按钮 的 内 置 图 标 。 第 4 行 代码 把 图 标 复制 到 B2 单 
元 格 附 近 。 第 5 ~ 10 行 代码 调整 图 形 的 大 小 和 位 置 ， 目 的 是 为 了 让 图 标 大 小 和 单元 格 大 小 
一 致 。 

运行 上 述 代 码 ， 工 作 表 中 效果 如 图 17-43 所 示 。 





图 17-43 ”把 控件 的 图 标 复制 到 工作 表 中 


17.4.3 ”控件 的 方法 


17.4.3.1 ”向 工具 栏 中 添加 控件 
无 论 是 哪 一 种 类 型 的 工具 栏 ， 都 允许 回 其 中 添加 内 置 控件 或 目 定 义 控 件 ， 也 允许 删除 其 


488 Office VBA 开发 经 典 一 一 基础 入 门 卷 


中 的 控件 。 
往 工具 栏 中 添加 控件 的 语法 是 : 


CommandBar.Controls.Add (Type, ID, Parameter,Before, Temporary) 


控件 添加 成 功 后 ， 返 回 一 个 CommandBarControl 对 和 象 。 

参数 说 明 如 下 。 

口 Type : 新 控件 的 类 型 。 可 以 为 下 列 MsoControlType 各 量 之 一 : msoControlButton、 
msoControlEdit、msoControlDropdown 、msoControlComboBox 或 msoControlPopup。 

DID: 内 置 控件 的 唯一 编号 。 

DD Before: 新 控件 的 添加 位 置 。 如 有 果 不 设置 此 参数 ， 则 默认 添加 控件 到 最 后 。 

下 面 的 实例 创建 一 个 目 定 义工 具 栏 ， 然 后 问 该 工具 栏 中 添加 不 同类 型 的 控件 。 

源 代 码 : 实例 文档 17.xls/ 添加 控件 


1。 Sub Testl () 

到 On Error Resume Next 

3. Dim cmb As Office.CommandBar 

4. Dim pop As Office.CommandBarPopup 

i Dim bt As Office.CommandBarButton 

6. Dim combo As Office.CommandBarComboBox 

1. Dim drop As Office.CommandBarControl 

8. Dim txt As Office.CommandBarControl 

人 Application.CommandBars ("Everything") .Delete 

10. Set cmb = Application.CommandBars.Add (Name:="Everything", Position:= 
msoBarFloating, temporary:=True) 

11. Set pop = cmb.Controls.Add (Type:=Office.MsoControlType.msoControlPopup) 

12. pop -Caption = " 子 菜 单 " 

13。 Pop.Controls.Add ID:=2920 新 建 按钮 

14. pop.Controls.Add ID:=3 ' 打开 按钮 

1 pop.-.Controls.Add ID:=23 ' 保存 按钮 

16. Set bt = pop.Controls.Add (Type:=0ffice.MsoControlType.msoControlButton, Before:=2) 

11. With bt 

18. .Caption = "用 户 按钮 ! " 

9: -Faceld = 2950 

0. .Style = msoButtonlIconAndCaption 

ls .OnAction = "m.Msg" 

22。 End With 

a Set combo = cmb.Controls.Add (Type:=Office.MsoControlType.msoControlComboBox) 

24. With combo 

-A -Caption 一 " 星期" 

bs .AddItem "Monday™" 

ls .AddItem "Tuesday" 

as .AddItem "Wednesday™" 

A .AddItem "Thursday”" 

30. -AddItem "Friday", 3 

: -AddItem "Saturday", 1 

Bj .ListIndex = 3 

BS .OnAction = "m.Msg" 

34. End With 

Bp Set drop = cmb.Controls.Add (Type:=Office.MsoControlType.msoControlDropdown) 


36. With drop 
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37 。 .Caption = "Office 版 本 " 
38. -AddItem "2003"™ 

39. .AddItem "2007"™ 

40. .AddItem "2010" 

41. .AddItem "2013" 

42. .AddItem "2016" 

43. .ListIndex = 2 

44. .OnAction = "m.Msqg”" 
495. End With 

46. Set txt = cmb.Controls.Add {Type:=Office.MsoControlType.msoControlEdit) 
47. With txt 

48. -Caption = " 住址: 要 

49. .Text = "北京 市 朝阳 区 " 
J0. .OnAction = "m.Msg" 
二 End With 

as cmb.Visible = True 


3933. End sub 


代码 分 析 : 第 10 行 代码 创建 一 个 名 称 为 Everything 的 浮动 工具 栏 ， 第 11 ~ 12 行 代码 
添加 一 个 子 菜单 控件 ,第 13 ~ 15 行 代码 向 子 菜单 中 添加 3 个 内 置 控 件 。 

第 16 ~ 22 行 代码 继续 向 子 菜单 中 添加 一 个 用 户 自 定义 按钮 但 是 把 该 按钮 
个 位 置 。 

第 23 ~ 33 行 代码 向 工具 栏 添加 一 个 组 合 框 控件 ， 并 为 组 合 框 添加 条 目 。 

第 35 ~ 45 行 代码 向 工具 栏 添加 一 个 下 拉 框 控件 ， 并 为 下 拉 框 添加 条 目 。 

第 46 ~ 51 行 代码 向 工具 栏 添加 一 个 文本 框 控件 ， 设 置 其 标题 和 文本 内 容 。 

以 上 所 有 控件 的 回调 函数 都 使 用 了 Msg 过 程 ， 该 过 程 的 内 容 如 下 。 

源 代 码 : 实例 文档 17.xls/m 


1。 Public Sub MsdI() 
之 。 MsgBox Application.CommandBars.ActionControl.Caption 
3. End sub 


代码 分 析 : 不 论 哪 一 个 控件 ， 都 在 对 话 框 中 返回 活动 控件 的 标题 。 
运行 上 述 Testl 过 程 ， 结 果 如 图 17-44 所 示 。 
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图 17-44 创建 自 定义 工具 栏 和 上 自 定义 控件 
从 本 例 可 以 看 出 ， 添 加 用 户 目 定义 控件 时 ， 必 须 指定 Type 属性 ， 因 为 该 属性 决定 新 控 
件 是 哪 一 类 。 如 采 要 添加 内 置 控件 ， 只 需要 设 定 ID 信 即 可 。Before 属性 可 以 变更 控件 出 现 
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的 位 置 序 号 。 


子 亲 单 控件 CommandBarPopup 本 刁 是 一 种 控件 ， 但 是 它 又 可 以 容纳 其 他 的 控件 。 


注意 : 添加 的 内 置 控件 无 须 设 定 OnAction 属性 ， 因 为 内 置 控件 本 身 就 有 内 置 功能 。 
如 果 另 行 指定 OnAction 属性 ， 会 覆盖 本 身 的 功能 。 


17.4.3.2 ”删除 控件 


删除 控件 非常 简单 ， 只 需要 调用 Delete 方法 即 可 。 
下 面 的 实例 ， 把 Excel 单元 格 右键 菜单 中 从 第 6 个 控件 到 最 后 的 控件 都 删除 。 也 就 是 只 


剩 下 前 5 个 控件 。 


For Each C In Application.CommandBars("Cell")}) .controls 


复制 人) 
粘贴 EF) 


源 代码 : 实例 文档 06.xls/ 控件 的 方法 

1] Sub Testl{() 

之 Dim cc As Office.CommandBarControl 
3 

4 Ift c.Index > 一 6 Then 

全 c.Delete 

6 End If 

1 Next cc 

8 End Sub 


运行 上 述 过 程 后 ， 在 单元 格 中 右 击 ， 会 看 到 右键 沫 单 变 短 了 ， 


如 图 17-45 所 示 。 


17.4.3.3 移动 、 复 制 控件 

Office 工具 栏 允 许 同一 个 控件 出 现在 不 同 的 工具 栏 中 ，Excel VBA 中 使 用 控件 的 Move 
和 Copy 方法 实现 控件 的 移动 和 复制 。 以 上 两 个 方法 的 参数 都 是 两 个 ， 分 别 规定 目标 工具 栏 
和 在 目标 工具 栏 中 的 位 置 。 

下 面 的 过 程 ， 把 “常用 ”工具 栏 的 “打开 ”按钮 移动 到 “格式 ”工具 栏 ， 并 旦 位置 设置 
为 2。 然 后 把 “和 常用 ”工具 栏 中 的 “格式 刷 ” 按 钮 复制 到 “格式 ”工具 栏 中 ， 置 于 最 后 。 

源 代码 : 实例 文档 06.xls/ 控件 的 方法 


1]. Sub Test2() 


Application 
Application 
EP Application 
Application 


.CommandBarst(" 
.CommandBarst(" 
.CommandBarst(" 


.CommandBarst(" 


选择 性 类 贴 监 )，. ， 





图 17-45 控件 的 删除 


standard") .Controls(nm 打开 ") .Move Bar := 
Formatting"), Before:=2 
standard") .Controls ("格式 刷 (&F)") .Copy Bar:= 


Formatting"), Before:=Application.CommandBars 


("Formatting™") .Controls.Count 


4. End Sub 


运行 代码 后 , “和 常用 ”工具 栏 中 的 “打开 ”按钮 看 不 到 了 ， 如 图 17-46 所 示 。 
17.4.3.4 内 置 控件 重 置 
内 置 控件 如 果 被 重新 指定 了 OnAction 回调 男 数 ， 则 会 屏蔽 本 身 的 内 置 功 能 。 这 种 情况 
下 ， 可 以 用 控件 的 Reset 方法 重 置 功能 。 
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图 17-46 ”控件 的 复制 和 移动 


17.4.3.5 执行 控件 的 命令 

调用 控件 的 Execute 方法 ， 可 以 目 动 执行 命令 ， 
而 无 须 单 击 控件 。 

“常用 ”工具 栏 中 有 一 个 “图 表 癌 导 ” 按 钮 ， 运 行 
下 面 这 人 名 代码 : 

Application.CommandBars ("standard") .Controls 
(" 图 表 向 导 (&C) ") .Execute 
会 日 动弹 出 图 表 回 导 对 话 框 ， 如 图 17-47 所 示 。 

对 于 目 定 义 控 件 ， 也 可 以 用 Execute 方法 目 动 调 2 
用 OnAction 中 的 回调 晒 数 。 图 17-47 图 表 向 导 对 话 框 





17.4.4 控件 的 事件 


具 栏 控件 中 ， 按 钮 和 组 合 框 探 件 文 持 事 件 编程 。 以 前 讲 过 ， 设 定 OnAction 属性 后 ， 
单 击 控件 可 以 响应 该 属性 规定 的 VBA 过程 。 如 果 是 在 VB6 或 其 他 编程 语言 设计 工具 栏 时 ， 
就 不 能 使 用 OnAction， 因 为 OnAction 只 能 调用 VBA 中 的 过 程 。 
下 面 的 实例 改写 “和 帝 用 ”工具 樟 中 “新 建 ”按钮 的 功能 。 
自 完 在 VBA 中 插入 一 个 类 模块 ， 重 命名 为 ClsButtonEvent， 然 后 在 该 类 模块 中 输入 如 
下 代码 。 
源 代码 : 实例 文档 07.xls/ClsButtonEvent 


1。 Public WithEvents BT As Office.CommandBarButton 
2. Private Sub BT Clickl(ByVal Ctrl As Office.CommandBarButton, CancelDefault As 
Boolean) 
CancelDefault = True 
If Ctrl.Tag = "Monday”" Then 
MsgBox "星期 一 " 


MsgBox ™ 未 知 控件 
End If 


对 
4 
5 
6 。 Else 
1 
8 
9 End Sub 


代码 分 析 : 模块 顶部 声明 的 BT 是 一 个 带 有 事件 过 程 的 工具 栏 控 件 。 
BT _Click 过 程 就 是 单 击 控件 时 的 事件 过 程 ， 其 中 参数 Ctrl 就 是 控件 日 身 ，CancelDefault 
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设置 为 True， 表 示 屏 蔽 本 号 功 能 。 
第 4 ~ 8 行 代 码 ， 当 控件 的 标记 为 Monday 时 ， 就 返回 星期 一 。 
接 下 来 在 一 个 标准 模块 中 输入 如 下 内 容 。 
源 代码 : 实例 文档 07.xls/ 控件 的 事件 


1] Dim evt As New ClsButtonEvent 

2 Sub Testl{() 

3 Dim Xinjian As Office.CommandBarButton 

4. Set Xinjian = Application.ComandBars("Standard") .Controls{" 新 建 (&N}™) 
器 Xin]jian.Tag = “Monaday- 

6 Set evt.BT = Xin]jian 

1 End Sub 


代码 分 析 : 模块 项 部 的 evt 是 一 个 类 模块 的 实例 ， 第 6 行 代码 把 “新 建 ” 按 钮 赋 给 实例 
中 的 按钮 。 

运行 Testl 过 程 ， 单 击 “ 常 用 ”工具 栏 的 “新 建 ” 按 钮 ， 会 弹出 一 个 “星期 一 ”的 对 话 
框 ， 而 不 是 新 建 一 个 工作 篷 。 

综 上 所 述 ， 如 采 只 在 Excel VBA 中 编写 
代码 封装 ， 就 需要 学 会 使 用 控件 的 事件 。 

下 面 介 绍 一 下 组 合 框 控件 的 事件 编程 。Excel 的 “格式 ”工具 栏 的 第 一 个 控件 是 字体 名 
称 组 合 框 。 当 选择 任意 一 种 字体 时 ， 单 元 格 内 容 的 字体 会 随 之 变化 。 下 面 来 改写 其 功能 。 

在 VBA 中 插入 一 个 类 模块 ， 重 命名 为 ClsComboBoxEvent， 然 后 在 该 类 模块 中 输入 如 
下 代码 。 


源 代 码 : 实例 文档 08.xls/ClsComboBoxEvent 





旦 序 ， 会 使 用 OnAction 属性 即 可 。 如 果 要 进行 


1。 Public WithEvents Combo As Office.CommandBarComboBox 

2. Private Sub Combo Change (ByVal Ctrl As Office.CommandBarComboBox) 
3. MsgBox " 你 选择 了 : " & Ctrl.Text 

4. End Sub 


代码 分 析 : Combo 是 一 个 具有 事件 过 程 的 组 合 框 控件 ， 下 面 的 Combo Change 过 程 就 
是 组 合 框 的 条 目 更 改 事件 。 

然后 在 标准 模块 中 ， 输 入 如 下 代码 。 

源 代码 : 实例 文档 08.xls/ 控件 的 事件 


1.。 Dim evt As New ClsComboBoxEvent 

2. Sub Testl() 

本 Dim fontname As Office.CommandBarComboBox 
4. Set fontname = Application.CommandBars ("Formatting") .Controls {(" 字体 (&F) :") 
ks Set evt.Combo = fontname 
6. End Sub 


Microsoftit 下 并 CE Ed 


运行 标准 模块 中 的 Testl 过 程 ， 然 后 回 到 Excel 中 ， 选 aa 
择 “ 字 体 ” 对 话 框 中 的 字体 名 称 ， 并 不 会 更 改 单元 格 的 字体 \ : 
格式 ， 而 是 弹出 如 图 17-48 所 示 的 对 话 框 。 图 17-48 改写 内 置 控件 的 功能 
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17.5 创建 目 定 义工 具 栏 


使 用 VBA 编程 ， 既 可 以 在 已 有 的 内 置 工 具 栏 上 进行 控件 的 修改 ， 也 可 以 从 头 创 建 用 户 
专属 的 工具 栏 。 当 然 ， 光 创建 了 工具 栏 还 不 够 ， 必 须 在 工具 栏 上 进一步 添加 控件 才 行 。 所 
以 ， 自 定义 工具 栏 的 学 习 思 路 是 : 

口 创建 工具 栏 ， 设置 工具 栏 的 有 关 属 性 。 

口 在 工具 栏 上 增加 控件 ， 设 置 控件 的 属性 。 特 别 是 要 设置 控件 的 OnAction 属性 ， 否 则 

该 控件 没有 实际 用 人 处。 

但 由 于 工具 栏 和 控件 不 是 工作 禾 文 件 的 一 部 分 ， 用 户 创建 的 工具 栏 和 控件 会 一 耳 出 现在 
Excel 应 用 程序 中 。 为 此 ， 一 般 的 做 法 是 : 在 打开 一 个 工作 短 时 立即 创建 工具 栏 ， 关 闭 工 作 
短 前 自动 删除 工具 栏 。 这 就 需要 用 到 工作 短 的 打开 和 关闭 事件 。 

创建 工具 栏 时 ， 至 关 重 要 的 是 首先 确保 即将 创建 的 工具 栏 的 名 称 未 被 使 用 ， 也 就 是 说 ， 
创建 工具 栏 时 指定 的 名 称 必须 是 目前 不 存在 的 工具 栏 中 。 

删除 工具 栏 时 ， 要 确保 被 删除 的 工具 栏目 前 还 存在 。 也 就 是 说 ， 不 能 删除 不 存在 的 工具 
栏 ， 不 能 多 次 删除 同一 个 工具 栏 。 使 用 工具 栏 的 Delete 方法 删除 工具 栏 后 ， 该 工具 栏 中 的 所 
有 控件 日 动 随 之 删除 。 


17.5.1 创建 菜单 栏 


创建 任何 类 型 的 工具 栏 ， 其 语法 都 是 一 样 的 ， 只 是 参数 设置 略 有 不 同 。 应 用 程序 的 
CommandBars 集合 对 象 的 Add 方法 ， 可 以 为 应 用 程序 新 增 一 个 工具 栏 。 其 完整 的 语法 为 : 


Application.cCcommandBars.Add (Name, Position, MenuBar, Temporary) 


参数 说 明 如 下 。 
DD Name: 新 工具 栏 的 名 称 ， 要 求 该 名 称 未 被 使 用 ， 而 且 必 须 指 定 。 
口 Position: 规定 新 工具 栏 的 初始 停 菲 方式 。 


口 MenuBar : 布尔 值 ， 默 认为 False。 如 果 设 为 True， 则 该 工具 柱 成 为 一 个 应 用 程序 的 
于 单 栏 ， 如 果 存 在 多 个 有 集 单 栏 ， 只 能 有 一 个 处 于 可 见 状 态 。 
口 Temporary : 是 否 临 时 ， 默 认为 False， 也 束 是 永久 工具 栏 。 如 有 果 该 参数 设置 为 True， 
那么 重启 Excel 应 用 程序 后 ， 该 工具 栏 会 日 动 删除 。Temporary 为 False 时， 下 次 局 
动 应 用 程序 还 能 看 到 该 工具 栏 ， 除 非 把 该 工具 栏 删除 。 
本 节 所 讲述 的 创建 菜单 栏 ， 也 就 是 隐藏 Excel 本 号 内 置 的 工作 表 芝 单位， 创建 属于 用 户 
的 集 单 系统 ， 因 此 需要 把 MenuBar 参数 设 为 True。 
下 面 的 实例 创建 以 省 、 自 治 区 、 直 辖 市 、 特 别 行政 区 命名 的 3 个 业 单 栏 ， 然 后 为 每 个 业 
单 栏 中 添加 硅 干 按钮 控件 。 在 标准 模块 中 书写 如 下 创建 某 单 栏 和 控件 的 过 程 。 
源 代码 : 实例 文档 10.xls/ 创建 菜单 栏 


1]. Public MenuBarl] As CommandBar, MenuBar?2 As CommandBar, MenuBar3 As CommandBar 
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之 - 


26. 


-a 
8. 
9 
30。 
31. 
2s 
区 
34. 
3 s 
36. 
31s 
39。 
汪汪 
40 - 
41. 


42. 
43. 
44. 
49. 
46. 
41. 
48. 
49. 
30. 
ds 


Dim bt As Office.CommandBarButton 
Sub CreateMenuBarl) 


Set MenuBarl = Application.CommandBars.Add (Name:=" 黑龙江 ", Position:= 
Office .MsoBarPosition.msoBarTop, MenuBar:=True, Temporary:=True) 
Set bt = MenuBarl.Controls.Add (Type:=Office.MsoControlType.msoControlButton) 
With bt 

.Caption 一 "哈尔滨" 

-Style = msoButtonCaption 

-OnAction = "m.msg" 
End With 


Set bt = MenuBarl.Controls.Add (Type:=Office.MsoControlType.msoControlButton) 
With bt 

.Caption = " 齐齐哈尔 

.Style = ma3oButtonCaption 

.OnAction = "m.msg" 


End With 


Set bt = MenuBarl.Controls.Add (Type:=Office.MsoControlType.msoControlButton) 
With bt 

.Caption = nm 大庆" 

-Style = msoButtonCaption 

.OnAction = "m.msg" 
End With 


Set MenuBar2 = Application.CommandBars.Add (Name:=" 吉林 "， Position:= 
Office .MsoBarPosition.msoBarTop, MenuBar:=True, Temporary:=True) 
Set bt = MenuBar?.Controls.Add (Type:=Office.MsoControlType.msoControlButton) 
With bt 

.Caption = ™ 长 春 四 

-Style = msoButtonCaption 

-OnAction = "m.msg" 
End With 


Set bt = MenuBar?.Controls.Add (Type:=Office.MsoControlType.msoControlButton) 
With bt 

.Caption = " 四 平 " 

.Style = msoButtonCaption 

.OnAction = "m.msg" 


End With 


Set MenuBar3 = Application.CommandBars .Add (Name:=" 辽宁", Position:=Office. 
MsoBarPosition.msoBarTop, MenuBar:=True, Temporary:=True) 
Set bt = MenuBar3.Controls.Add (Type:=Office.MsoControlType.msoControlButton) 
With bt 

.Caption = "沈阳 " 

.Style = msoButtonCaption 

.OnAction = "m.msg" 
End With 
Set bt = MenuBar3.Controls.Add (Type:=Office.MsoControlType.msoControlButton) 
With bt 

.Caption = "鞍山 " 

.Style = ms3oButtonCaption 
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a pe -OnActijion = "m.msg” 

Ds End With 

J4. Set bt = MenuBar3.Controls.Add (Type:=Office.MsoControlType.msoControlButton) 
D3 With bt 

0. .Caption = ee 

Ds -Style = msoButtonCaption 

28. -OnAction = "m.m3sg" 

D9 End With 

00. Set bt = MenuBar3.Controls.Add (Type:=Office.MsoControlType.msoControlButton) 
61. With bt 

02. -Caption = 抚顺“ 

603. .Style = msoButtonCaption 

bd. .OnNnAction = "m.msg" 

65. End With 


66. End Sub 


代码 分 析 : 第 4 行 代码 用 来 创建 一 个 “黑龙 江 ” 菜 单 栏 。 第 5 ~ 10 行 代码 为 该 菜单 栏 
增加 一 个 命令 按钮 控件 ， 该 控件 的 标题 是 “ 喻 尔 演 "， 样 式 是 只 显示 标题 ， 不 显示 图 标 。 单 
击 按 钮 会 啊 应 模块 m 中 的 msg 过 程 。 

第 26 ~ 66 行 代码 是 一 样 的 原理 ,为 省 、 自 治 区 、 直 辖 市 、 特 别 行政 区 增加 控件 。 

运行 上 述 过 程 后 ， 在 Excel 界面 中 看 不 到 任何 的 变化 ,但 是 菜单 栏 已 经 创建 好 了 ， 只 是 
尚未 显示 。 

为 了 能 在 Excel 中 显示 出 菜单 栏 的 样子 ， 还 需要 把 菜单 栏 的 Visible 属性 设置 为 True 才 
行 。 为 此 ， 本 例 依 助 工 作 短 的 工作 表 激 活 事件 ， 当 鼠标 切换 工作 表 时 ， 目 动 切换 主 集 单 。 

下 面 是 工作 秒 的 工作 表 激 活 事件 代码 。 

源 代码 : 实例 文档 10.xls/ThisWorkbook 


1l. Private Sub Workbook SheetActivate (ByVal Sh As Object) 
A If Sh.Index = 1 Then 

3 MenuBarl .Visible = True 

4. ElseIft Sh.Index = 2 Then 

- MenuBar2.Visible = True 

6. ElselIf Sh.Index = 3 Then 

1. MenuBar3.Visible = True 

8. Else 

全 Application.CommandBars ("Worksheet menu bar") .Visible = True 
10. End If 

ll1l. End Sub 


代码 分 析 : MenuBarl 等 是 标准 模块 中 的 公有 变量 ， 因 此 ， 当 切换 到 第 一 个 工作 表 时 ， 
就 设置 MenuBarl 为 可 见 。 

以 上 三 个 号 单 栏 ， 只 要 有 其 中 一 个 可 见 ， 其 他 的 茉 单 栏 都 日 动 隐藏 ， 也 就 是 说 要 保证 
Excel 最 多 有 一 个 主 沫 单 柱 。 

第 9 行 代码 的 意思 是 当 用 鼠标 单 击 到 其 他 工作 表 时 ， 显 示 出 Excel 本 号 的 工作 表亲 
单 栏 。 

此 时 ， 用 鼠标 去 试 着 切换 工作 表 ， 工 作 表 中 的 效果 如 图 17-49 所 示 。 
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到 | EECel 一 实例 交 怎 10. 1s 





图 17-49 不 同 的 工作 表 显 示 不 同 的 全 单 栏 
可 以 看 到 切换 到 工作 表 “ 辽 末 ” 时 ， 沈 单 栏目 动 随 之 切换 ， 单 击 任意 按钮 ， 都 弹出 该 按 
钮 的 标题 ， 如 图 17-50 所 示 。 
其 中 msg 过程 的 代码 如 下 。 
源 代 码 : 实例 文档 10.xls/m 





1.。 Public Sub msg () 
MsgBox Application.CommandBars.ActionControl.Caption & ":" & Application. 
CommandBars.ActiveMenuBar.Name 
3. End Sub 
代码 分 析 : ActionControl 是 指 工 具 栏 中 被 执行 的 按钮 对 象 ， 当 单 击 “ 大 连 ” 按 钮 时 ， 
ActionControl.Caption 就 访问 到 了 按钮 的 标题 。ActiveMenuBar 是 指 Excel 活动 末 单 柱 对 象 。 
当 单 击 “ 齐 齐 哈 尔 ” 按 钮 时 ， 结 果 如 图 17-51 所 示 。 





| EECel E43 


| 上 cel】 E49 


齐 齐 喻 汞 :黑龙 江 





图 17-50 ”运行 结果 3 17-51 运行 结果 4 


17.5.2 ”创建 级 联 菜 单 


17.5.1 下 所 讲 的 实例 虽然 实现 了 目 定 义 沫 单 栏 ， 但 是 每 个 染 单 栏 上 直接 添加 了 按钮 控 
件 。 如 果 要 制作 类 似 于 内 置 沫 单 栏 效 果 的 级 联 沫 单 ， 就 不 能 在 集 单 栏 直接 添加 按钮 。 

Commandbar 对 和 象 除了 可 以 添加 按钮 控件 外 ， 还 可 以 添加 一 种 子 沫 单 控件 
(CommandBarPopup 对 和 象 ) 。 






这 种 子 菜单 与 按钮 一 样 ， 都 属于 控件 ， 但 是 这 种 控件 还 可 以 容纳 其 他 控件 。 也 就 是 说 ， 





CommandBarPopup 对 和 象 属于 工具 栏 中 的 
样 就 实现 了 级 联 菜 单 。 


个 控件 ， 但 还 可 以 在 其 下 面 继续 添加 新 控件 。 这 
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下 面 的 实例 创建 一 个 菜单 栏 ， 该 菜单 栏 下 添加 两 个 子 菜 单 “ 沈 阳 ” 和 “大 连 ”， 然 后 为 
每 个 子 菜单 添加 相应 的 区 县 名 称 按钮 。 
源 代码 : 实例 文档 11.xls/ 创建 级 联 菜单 栏 


1 Sub Testl1() 

2 Dim cmb As Office.CommandBar 

3 Dim pop As Office.CommandBarPopup 

4 Dim bt As Office.CommandBarButton 

mi Application.CommandBars (" 辽宁 ") .Delete 

6 Set cmb = Application.CommandBars.Add (Name:=" 辽宁 ",， Position:=Office. 


MsoBarPosition.msoBarTop, MenuBar:=True, Temporary:=True) 


le Set pop = cmb.Controls.Add (Type:=Office.MsoControlType.msoControlPopup) 
8. pop.Caption 一 "沈阳 " 

+ Set bt = pop.Controls.Add (Type:=0Office.MsoControlType.msoControlButton) 
10. With bt 

11. -Caption = "和 铁 西 区 " 

a -Style = msoButtonCaption 

13.。 End With 

14. Set bt = pop.Controls.Add (Type:=0Office.MsoControlType.msoControlButton) 
15。 With bt 

16. .Caption = “" 和平 区 " 

1 1. .Style = msoButtonCaption 

18. End With 

19 

0. Set pop = cmb.Controls.Add (Type:=Office.MsoControlType.msoControlPopup) 
2z1. pop.Caption = 这 

pa Set bt = pop.Controls.Add (Type:=0Office.MsoControlType.msoControlButton) 
pa With bt 

24. -Caption = "中 山区 " 

ps .Style = msoButtonCaption 

zz0. End With 

i Set bt = pop.Controls.Add (Type:=0Office.MsoControlType.msoControlButton) 
28. With bt 

29. .Caption = 一 "沙河口 区 " 

30. .Style = msoButtonCaption 

31s End With 

32. Set bt = pop.Controls.Add (Type:=Office.MsoControlType.msoControlButton) 
33。 With bt 

34. -Caption = "上 甘井 子 区 " 

了 -Style = msoButtonCaption 

36. End With 

Sis cmb.Visible = True 


38. End Sub 


代码 分 析 : 第 5 行 代码 用 于 删除 已 存在 的 “辽宁 ”工具 栏 ， 如 果 该 工具 栏 存在 ， 则 不 可 
以 添加 以 其 命名 的 新 工具 栏 ， 因 此 必须 删除 。 

特别 注意 第 7 行 代 码 ，pop 是 一 个 子 菜单 控件 对 象 ， 它 的 类 型 是 msoControlPopup ， 子 
末 单 中 的 按钮 控件 要 添加 在 pop 下面， 而 不 是 cmb 的 下 面 。 

第 37 行 代 人 码 用 于 显示 该 末 单 柱 。 

运行 上 述 过 程 后 ， 结 果 如 图 17-52 所 示 。 

如 果 手 工 拖 动 该 菜单 栏 ， 使 其 浮动 在 工作 表 上 面 ， 结 果 如 图 17-53 所 示 。 
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CBO 二 Ecel 二 次 网 六 档 11.xls 





国 Hicrosoft Excel 一 详 便 文档 11.xls 


| | 











图 17-52 创建 级 联 菜单 





17.5.3 ”创建 一 般 工 具 栏 


用 


一 般 工 具 栏 的 MenuBar 属性 为 False。Excel 可 以 同时 显示 多 个 一 般 工 具 栏 ， 例 如 ,“ 常 


大 本 三 


站 


栏 和 “格式 ”工具 栏 都 属于 一 般 工具 栏 。 


下 面 的 实例 实现 在 Excel 中 创建 3 个 一 般 工 具 栏 ， 停 靠 方式 都 是 顶端 停靠 。 
源 代 码 : 实例 文档 12.xls/ 创建 一 般 工 具 栏 


2 


I 
3 
4. 
Ds 
6. 
1. 
8. 


Public MenuBarl] As CommandBar, MenuBar? As CommandBar, MenuBar3 As CommandBar 
Dim bt As Office.CommandBarButton 
Sub CreateNormalBar{() 


On Error GoTo Errl: 
Application.CommandBars (项 龙 江 ") .Delete 
Application.CommandBars ("吉林 ") .Delete 
Application.CommandBars (" 这 宁 ") .Delete 
Set MenuBarl = Application.CommandBars.Add (Name:=" 黑龙 江 ",， Position:= 
Office .MsoBarPosition.msoBarTop, MenuBar:=False, Temporary:=True) 
Set bt = MenuBarl.Controls.Add (Type:=Office.MsoControlType.msoControlButton) 
With bt 

.Caption = " 上 哈尔滨 " 

.FacelId = 2018 

.Style = msoButtonlIconAndCaption 

-OnAction = "m.msg" 
End With 


Set bt = MenuBarl.Controls.Add (Type:=Office.MsoControlType.msoControlButton) 
With bt 

.Caption = " 齐齐哈尔 " 

-Faceld = 2018 

-Style = msoButtonIconAndCaption 

-OnAction = "m.msg" 
End With 


Set bt = MenuBarl.Controls.Add (Type:=Office.MsoControlType.msoControlButton) 
With bt 

.Caption = mn 大庆" 

.Faceld = 2018 

-Style = msoButtonIconAndCaption 

-OnAction = "m.msg" 
End With 


Set MenuBar2?2 = Application.CommandBars.Add (Name:=" 吉林 "， PoOSition:= 


Office.MsoBarPosition.msoBarTop, MenuBar:=False, Temporary:=True) 


34. 
33s 
3 曲 . 
37. 
38. 
39. 
40. 
41. 
42 。 
43 . 
44. 
45 . 
46. 
41. 
48. 
49. 
20. 


ls 
J 
3 
D4. 
a 
De - 
231. 
J9. 
3 
o0. 
ol1. 
G2. 
63. 
064. 
69. 
66. 
oi. 
08. 
69. 
10. 
Ils 
a 
fe 
14. 
13。 
Teo. 
和 本 加 
18. 
19. 
80. 
81. 
82. 
3. 
84. 
89. 
86. 
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Set bt = MenuBar?.Controls.Add (Type:=Office.MsoControlType.msoControlButton) 
With bt 

-Caption = ™ 长 春 

-EaceIQ = 2018 

-Style = msoButtonIconAndCapt1ion 

.OnAction = "m.m3g" 
End With 


Set bt = MenuBar?.Controls.Add (Type:=Office.MsoControlType.msoControlButton) 
With bt 

.Caption = “" 四 平 " 

-FacelId = 2018 

-Style = msoButtonIconAndCapt1ion 

.OnAction = "m.msg" 
End With 


Set MenuBar3 = Application.CommandBars.Add (Name:=" 辽宁 "， Position:= 
Office.MsoBarPosition.msoBarTop, MenuBar:=False, Temporary:=True) 
Set bt = MenuBar3.Controls.Add (Type:=Office.MsoControlType.msoControlButton) 
With bt 

.Caption = "沈阳 " 

-FacelId = 2018 

.Style = msoButtonIlIconAndCapt1ion 

.OnAction = "m.m3g" 
End With 
Set bt = MenuBar3.Controls.Add (Type:=Office.MsoControlType.msoControlButton) 
With bt 

-Caption = “" 靛 山 " 

-FacelId = 2018 

.Style = msoButtonIconAndCapt1ion 

.OnNnAction = "m.msg" 
End With 
Set bt = MenuBar3.Controls.Add (Type:=Office.MsoControlType.msoControlButton) 
With bt 

.Caption = Wi 

-FacelId = 2018 

.Style = msoButtonIconAndCapt1ion 

.OnNnAction = "m.msg" 
End With 
Set bt = MenuBar3.Controls.Add (Type:=Office.MsoControlType.msoControlButton) 
With bt 

-Caption = 抚顺“ 

-FacelId = 2018 

.Style = msoButtonIconAndCapt1ion 


.OnAction = "m.m3g" 
End With 
MenuBarl .Visible = True 
MenuBar2.Visible = True 
MenuBar3.Visible = True 
Exit Sub 


Errl: 


If Err.Number > 0 Then 
Resume Nexxt 
End I 


81. End Sub 
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代码 分 析 : 本 实例 的 关键 代码 与 创建 菜单 栏 的 代码 没什么 两 样 ， 只 是 参数 为 
MenuBar:=False- 

在 创建 工具 栏 之 前 ， 要 先 删 除 已 存在 的 同名 工具 栏 ; 如 末 删 除 不 存在 的 工具 栏 ， 会 出 现 
异 稍 ， 中 断代 码 的 执行 ， 为 此 本 例 采 用 了 错误 处 理 。 

为 了 显示 控件 的 图 标 ， 本 例 的 每 个 按钮 都 设置 了 FaceId 和 Style 属性 。 

第 79 ~ 81 行 代码 是 为 了 显示 每 个 目 定 义工 具 栏 。 运 行 上 述 过 程 ， 结 采 如 图 17-54 
所 示 。 





三流 阳 正 甘 山 大 连 =xmB 


图 17-54 ”同时 创建 多 个 一 般 工 具 栏 


17.5.4 调整 工具 栏 的 位 置 和 大 小 


改变 CommandBar 对 和 象 的 Position 属性 ， 可 以 更 改 工 具 栏 的 停靠 方式 。 如 果 在 Excel 中 
同时 显示 多 个 工具 栏 ， 即 使 都 具有 相同 的 停 徘 方式 ， 也 应 该 有 出 现 位 置 之 分 。 

CommandBar 对 和 象 的 Left、Top、Width 和 Height 属性 ， 用 来 确定 工具 栏 在 Excel 中 的 
位 置 、 宽 度 禹 度 。 其 中 ，Left 是 指 工 具 栏 左 侧 距 离 电 脑 屏幕 左 侧 的 间 跑 ，Top 是 指 工具 栏 
距离 屏 磊 顶端 的 间距 ， 单 位 均 为 像素 。 注 意 ， 参 照 物 并 非 Excel 应 用 程序 。 

当 多 个 工具 栏 都 在 顶端 停靠 时 ， 使 用 RowIndex 属性 来 读 写 工具 栏 所 处 的 行 序 号 ， 此 时 
工具 栏 的 Top 属性 修改 无 效 。 

源 代码 : 实例 文档 12.xls/ 调整 工具 栏 位 置 和 大 小 


1. Sub Testl 1() 
Application.CommandBars (" 是 龙 江 ") .RowIndex = Application.CommandBars 


("Worksheet menu bar") .RowIndex 十 1 


E Application.CommandBars (" 吉林 ") .RowIndex = Application.CommandBars 
(" 黑龙江 ") .RowIndex 


4. Application.CommandBars(" 黑龙 江 ") .Left = 0 
Application.CommandBars (" 辽宁 ") .RowIndex 一 
(" 黑龙江") .RowIndex + 1 


Application.CommandBars 


06. Application.CommandBars("Standard") .RowIndex = Application.CommandBars 
(辽宁 ") .RowIndex + 1 
了 Application.CommandBars ("Formatting") .RowIndex = Application.CommandBars 


("Standard™") .RowIndex + 1 
3838. End Sub 


代码 分 析 : 第 2 行 代 码 的 作用 是 “黑龙 江 ” 工 具 栏 行 序 号 为 工作 表 菜 单 栏 序号 加 1， 也 
就 是 在 其 下 方 。 

第 3 行 代码 的 作用 是 “吉林 ”工具 栏 行 序 号 等 于 “黑龙 江 ” 工 具 栏 的 行 序 号 ， 也 就 是 这 
两 个 工具 栏 同行 显示 。 





第 4 行 代码 的 作用 是 同行 显示 的 前 提 下 ， 把“ 黑龙江” 工具 栏 置 于 最 左 侧 。 
上 述 过 程 运行 后 ， 结 果 如 图 17-55 所 示 。 


: 开 叶 杂记 工 齐 齐 吃 加 工 大庆 对 工 攻 查 工 四 王 
:三 演 阳 工 蔚山 三 太医 三 寺 





图 17-55 ”调整 工具 栏 的 位 置 

当 工 具 栏 的 停 徘 方式 是 浮动 在 工作 表 上 上 时， 可 以 通过 调整 Left 和 Top 属性 来 规定 

栏 的 出 现 位 置 。 
下 面 的 实例 把 “黑龙 江 ” 工 具 栏 与 “吉林 ”工具 栏 左右 水 平 对 齐 、 把 “辽宁 ” 





在 “黑龙 江 ” 工 具 栏 的 正 下 方 。 
源 代码 : 实例 文档 12.xls/ 调整 工具 栏 位 置 和 大 小 


1] Sub Test2() 

Pa Application.CommandBars (" 黑龙 江 ") .Position = msoBarFloating 
3 Application.CommandBars ("吉林 ") .Position = msoBarFloating 
4. Application.CommandBars (" 这 宁 ") .Position = msoBarFloating 


5 Application.CommandBarsl(" 黑龙 江 ") .Left = 100 
6. Application.CommandBars(" 黑龙江 ") .Top = 200 
7 
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Te 
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Application.CommandBars(" 吉林 ") .Left = Application.CommandBars(" 黑龙 江 "). 


Left + Application.CommandBars (" 贰 龙 江 ") .Width 


8. Application.CommandBars (" 吉林") .Top = Application.CommandBars(" 黑龙江") .Top 

人 Application.CcommandBars(”" "Left = Application.CommandBars (" 时 龙 江 ") . 
Left 

10. Application.CommandBars({(”" 可 Top = Application.CommandBars (" 贰 龙 江 ") . 


Top + RApplication-ComnandBars( 里 龙 江 ") .Height 
11-。 End Sub 


运行 上 述 过 程 ， 可 以 看 到 3 个 泽 动工 具 栏 整 


对 于 具 (有 很 多 控件 的 浮动 工具 ee 可 以 更 改 
其 Height 属性 ， 使 得 工具 栏 变 高 变 罕 
下 面 的 代码 创建 一 个 工具 栏 后 ， i 具 栏 中 





EPEermeeeerT 下 骤 山 王 太 二 工 抚 





添加 34 个 按钮 ， 然 后 把 这 些 按钮 重 排 为 4 行 。 图 17.56 “排列 工具 入 


源 代码 : 实例 文档 12.xls/ 调整 工具 栏 位 置 和 大 小 


1 Sub Test31{) 

之 - On Error Resume Next 

3 Dim cmb As Office.CommandBar 

4. Dim bt As Office.CommandBarButton 

< Application.CommandBars("Province") .Delete 

6 Set cmb = Application.CommandBars.Add (Name:="Province", Position:= 


msoBarFloating) 
For 1 = To 34 
8. Set bt = cmb.Ccontrols.Add (Type:=msoControlButton) 


一 -] 
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9. With bt 

10. -Caption = Rangel("A" & 1).Value 
11. -ToOooltipText = Range("B" & 1).Value 
12. -FacelId = 1 

13. .Style = msoButtonIlIconAndCaption 
14. End With 

Ls Next 1 

16. cmb.Visible = True 

17. cmb.Left = 200 

18. cmb.Top = 200 

1 cmb.Height = cmb.Ccontrols(1) .Height * » 





20. End Sub 


代码 分 析 : 第 7 ~ 15 行 代码 利用 循环 批量 添加 按钮 ， 其 中 第 11 行为 控件 添加 提示 语 。 

第 17 ~ 18 行 代码 设置 工具 栏 的 初始 位 置 在 屏幕 的 (200,200) 像素 位 置 。 

第 19 行 代码 是 关键 代码 ， 更 改 工 具 栏 的 高 度 为 第 一 个 控件 的 高 度 的 5 倍 〈 工 具 栏 的 标 
题 文字 占据 一 行 )。 

运行 上 述 过 程 ， 工 具 栏 效果 如 图 17-57 所 示 。 


庆 市 臣 四 | 者 心 西亚 目 直 时 直 瑟 -| 
= 二 生生 和 生生 生生: 


19 = 2 
1" 叫 上 半 官 
和 Fe 
[9 al 





图 17-57 更 改 工具 栏 的 高 度 从 而 改变 控件 行 数 


17.5.5 ”创建 右键 菜单 


右键 菜单 也 是 工具 栏 的 一 种 ， 其 特点 是 控件 上 下 排列 ， 而 一 般 的 工具 栏 中 的 控件 都 是 从 
左 回 右 排列 。 

利用 VBA 上 自动 创建 右键 菜单 时 ， 只 需要 把 Position 参数 设置 为 msoBarPopup 即 可 。 
当 创 建 右键 菜单 完成 后 ,不 能 通过 设置 Visible 属性 来 显示 该 类 型 的 工具 栏 ， 而 是 使 用 
ShowPopup 方法 来 弹出 右键 灯 单 。 

下 面 的 实例 创建 一 个 右键 菜单 HTML， 添 加 的 控件 既 有 按钮 ， 又 有 子 菜单 。 
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源 代 码 : 实例 文档 13.xls/ 创建 右键 菜单 


1 Sub Testl]{() 

2 On Error Resume Next 

3 Dim cmb As Office.CommandBar 

4. Dim pop As Office.CommandBarPopup, pop2 As Office.CommandBarPopup 

2 Dim bt As Office.CommandBarButton 

6 Application.ComandBars ("HTIML") .Delete 

1 Set cmb = Application.CommandBars.Add (Name:="HTML", Position:=Office. 
MsoBarPosition.msoBarPopup, temporary:=True) 

Set bt = cmb.Ccontrols.Add (Type:=msoControlButton) 


号。 With bt 

10. .Caption = “" 添加 到 收藏 夹 (&F)" 

Ls -FacelId = 2018 

pp .Style = msoButtonIconAndCapt1ion 

13s End With 

14. 

13s Set bt = cmb.Controls.Add (Type:=msoControlButton) 
16. With bt 

17. -Caption = "查看 源 文 件 (&V)" 

1 8. -FacelId = 2018 

19. .Style = msoButtonIconAndCapt1ion 

20 . End With 

1 

pp Set pop = cmb.Ccontrols.Add (Type:=msoControlPopup) 
pa With pop 

24. .Caption = " 编码 (&E)" 

Pd End With 

26 

-i Set bt = pop.Controls.Add (Type:=ms3oControlButton) 
28. With bt 

pa .Caption = ™ 自动 检测 " 

30. .Faceld = 2018 

31. -Style = msoButtonIconAndCaption 

E End With 

33. 

34. Set Pop2 = pop.Controls.Add (Type:=msoControlPopup) 
3 With pop2z 

3 -Caption = “" 其 他 …" 

31. End With 

38. 

本 Set bt = pop2.Controls.Add (Type:=msoControlButton) 
40. With bt 

41. -Caption = "日 语 " 

42. -FacelId = 2018 

43. .Style = msoButtonIconAndCaption 

44. End With 

45 . 

46. Set bt = pop2.Controls.Add (Type:=msoControlButton) 
47. With bt 

48. -Caption = ™ 泰语 " 

49. .FacelId = 2018 

“Li .Style = msoButtonIconAndCaption 

5 1. End With 

pe 


D3. Set bt = pop.Controls.Add (Type:=msoControlButton) 
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24. With bt 

55. .Caption = "中文 简体 (GBK) " 

J6. .FacelId = 2018 

+ .Style = ms3oButtonIconAndCaption 

二 本 End With 

sy 

60. Set bt = pop.Controls.Add (Type:=msoControlButton) 
6l1. With bt 

62. .Caption = "Unicode" 

63. -FacelId = 2018 

564. .Style = msoButtonIconAndCaption 

69. End With 

66. 

oj. Set bt = cmb.Controls.Add (Type:=msoControlButton) 
68. With bt 

69. .Caption = "第 查 元 素 " 

10. -Faceld = 2018 

a -Style = msoButtonIconAndCaption 

12. End With 

13. 

14. Set bt = cmb.Controls.Add (Type:=msoControlButton) 
Ei With bt 

16. .Caption = "属性 (&P)" 

了 -Faceld = 2018 

18. -Style = msoButtonIconAndCaption 

Ts End With 


80. End Sub 


代码 分 析 : 第 4 行 代码 用 到 的 对 象 变量 pop 代表 子 菜单 “编码 "，pop2 代表 子 菜单 中 的 
子 菜单 “其 他 …” 

上 述 整 个 过 程 中 ,第 7 行 代码 是 关键 代码 ， 明 确 地 指定 了 Position 参数 是 弹出 式 亲 单 。 

运行 上 述 Testl 过 程 后 ， 工 作 表 中 没 任何 变化 ， 还 需要 再 运行 下 面 的 过 程 ， 让 其 自动 弹出 。 

1。 Sub Test2() 


va Application.CommandBars ("HTML") .ShowPopup 200, 200 
3. End Sub 


此 时 ,会 看 到 在 200 像素 x 200 像素 处 弹出 该 业 单 ， 如 图 17-58 所 示 。 
如 果 用 户 在 单元 格 区 域 右 击 弹 出 该 菜单 ， 还 需要 编写 工作 表 的 BeforeRightClick 事件 。 
在 ThisWorkbook 模块 中 ， 书 写 如 下 事件 过 程 。 


L- Private Sub Workbook SheetBeforeRightcClick(ByVal sh As Object, ByVal Target 
As Range, Cancel As Boolean) 

A Cancel = True 

3 Application.CommandBars ("HTIML") .ShowPopup 

4. End sub 


由 于 这 个 事件 是 工作 禾 级 别 的 ， 因 此 在 该 工作 禾 中 的 任何 一 个 工作 表 中 右 击 ， 都 会 弹出 
HTML 羔 单 ， 而 屏蔽 内 置 的 单元 格 右键 菜单 。 
述 用 法 还 可 以 应 用 于 VBA 的 UserForm 中 ， 当 用 户 在 控件 上 右 击 时 ， 也 可 以 弹出 右 
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下 面 的 实例 实现 在 VBA 工程 中 插入 一 个 用 户 窗 体 ， 然 后 在 窗 体 中 放 入 一 个 文本 框 控 
件 。 程 序 的 意图 是 当 用 户 在 文本 框 中 右 击 时 ， 弹 出 目 定 义 右 键 沫 单 。 

双击 文本 框 控 件 ， 书写 MouseDown 事件 。 

源 代码 : 实例 文档 13.xls/UserForm1 


1l. Private Sub TextBoxl MouseDown (ByVal Button As Integer, ByVal Shift As 
Integer, ByVal xX As Single, ByVal Y AS Single) 

之 If Button = 2 Then 

3 Application.CommandBars ("HTML") .ShowPopup 

4. End If 

3 End Sub 


代码 分 析 : 第 2 行 代码 中 Button = 2 的 意思 是 只 有 右 击 ，If 语句 才 成 立 。 窗 体 运 行 后 ， 
在 文本 框 中 右 击 ， 弹 出 HTML 菜单 ， 如 图 17-59 所 示 。 


UaerForsl 
] 商 口 业 帮助 出) 
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图 17-58 ”单元 格 中 弹出 网 页 右键 菜单 





图 17-59 ”用 户 窗 体 中 文本 框 控件 弹出 自 定义 菜单 


17.6 ” 自 定 义工 具 栏 高 级 技术 


命令 按钮 CommandBarButton 是 目 定 义工 具 栏 中 最 第 用 的 控件 类 型 ， 此 外 ， 子 某 单 控件 
CommandBarPopup、 组 合 框 控件 CommandBarCombobox 、 和 下拉 框 控件 、 文 本 框 控件 都 可 以 
添加 到 工具 栏 中 。 


17.6.1 使 用 组 合 框 控件 





CommandBarCombobox 控件 不 同 于 命令 按钮 控件 ， 这 个 控件 可 以 添加 和 删除 条 目 ， 当 
用 户 从 组 合 框 中 选择 一 个 条 目 时 ,会 调用 该 控件 的 OnAction 属性 指定 的 VBA 过程。 

组 合 框 控件 的 重要 属性 如 下 。 

D ListIndex: 组 合 框 当 前 选中 的 条 目的 索引 ， 未 选中 任何 条 目 时 该 属性 为 0。 

D ListCount: 组 合 框 中 条 目 总 数 。 

D Text: 组 合 框 目前 的 条 目 文 本 。 

D Caption: 组 合 框 的 标题 文学 。 

组 合 框 控件 的 重要 方法 如 下 。 

DD AddItem: 增加 一 个 条 目 。 
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口 Removeltem: 删除 一 个 条 目 。 

下 面 的 实例 创建 一 个 名 为 Office 的 目 定 义工 具 栏 ， 回 工具 栏 中 添加 一 个 组 合 框 控件 ， 然 
后 为 组 合 框 增加 5 个 条 目 。 

源 代 码 : 实例 文档 14.xls/ 使 用 组 合 框 控件 





1 Sub Testl{() 

之 On Error Resume Next 

3 Dim cmb As Office.CommandBar 

4 Dim combol As Office.CommandBarComboBox 

i Application.CommandBars ("Office") .Delete 

6 Set cmb = Application.CommandBars.Add (Name:="Office", Position:=msoBarFloating) 
1 Set combol = cmb.Controls.Add (Type:=Office.MsoControlType.msoControlComboBox) 
8 With combol 

9. .Caption = " 常用 组 件 " 

10. .AddItem "Excel™ 

Ls .AddItem "Word™ 

12. .AddItem "PowerPoint”" 

了 .AddItem "Access" 

14. .AddItem "Outlook" 

1 。 -OnAction = "m.msg" 

16. .ListIndex = 2 

17 。 End With 

18. cmb.Left = 200 

9; cmb.Top = 200 

pd cmb.Visible = True 


21. End Sub 

代码 分 析 : 第 15 行 代码 中 ， 当 用 户 单 击 任何 一 个 条 日， 日 动 调用 VBA 中 的 msg 过 程 。 

第 16 行 代码 中 ， 当 添加 完 所 有 条 目 后 ， 黑 认 选 中 的 条 目 为 第 2 个 ， 也 就 是 黑 认 选中 
Word 。 

下 面 的 代码 是 标准 模块 m 中 的 msg 过 程 。 

源 代码 : 实例 文档 14.xls/m 


1 Public Sub msg() 

2 Dim combol As Office.CommandBarComboBox 

本 Set combol = Application.CommandBars ("Office") .Controls(" 常用 组 件 -3 
4 ActjveCell.Value = combol.ListIndex & ":" & combol.Text 

2 End Sub 


代码 分 析 : 这 个 过 程 是 组 合 框 的 回调 ， 对 象 变 量 combol 
用 来 获取 “和 痢 用 组 件 ” 组 合 框 。 








第 4 行 代码 中 ， 当 选中 任何 一 个 条 目 ， 把 该 条 目的 索引 和 | 的 人 ce 





文本 发 送 给 活动 单元 格 。 | 
运行 上 述 Testl 过 程 后 ， 自 定义 工具 栏 中 出 现 一 个 组 合 框 -一 十 
控件 ， 如 图 17-60 所 示 。 
以 上 是 组 合 框 控件 的 经 典 用 法 。 从 这 个 实例 可 以 看 出 组 合 
框 控 件 不 同 于 子 茉 单 控 件 (CommandBarPopup )， 组 合 杠 中 的 图 17-60 创建 组 合 框 控件 
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内 容 是 字符 串 组 成 的 条 目 ， 而 子 茉 单 控 件 中 的 内 容 是 多 个 控件 。 

此 外 ， 还 可 以 在 工具 栏 中 放 人 一 个 以 上 的 组 合 框 控 件 来 实现 联动 。 下 面 的 实例 基于 单元 
格 区 域 中 事先 设计 的 数据 ， 在 目 定 义工 具 栏 中 加 入 两 个 组 合 框 ， 第 一 个 组 合 框 的 内 容 是 地 区 
名 称 ， 第 二 个 组 合 框 的 内 容 是 对 应 于 第 一 个 组 合 杠 中 区 域 的 所 有 省 、 目 治 区 、 下 辖 市 、 特 别 
行政 区 名 称 。 

当 用 户 改 变 了 第 一 个 组 合 框 中 的 地 区 时 ， 第 二 个 组 合 框 日 动 更 新 列表 。 当 用 户 选 择 第 
二 个 组 合 框 中 任 一 省 、 晶 治 区 、 生 辖 市 、 特 别 行 政 区 ， 在 对 话 框 中 给 出 该 省 、 日 治 区 、 生 辖 
市 、 特 别 行政 区 的 人 口 。 

总 之 ， 该 实例 实现 了 一 个 人 口 查 询 的 功能 。 该 实例 代码 较 长 ， 读 者 可 以 打开 “实例 文档 
14.xls”， 运 行 模块 “联动 组 合 框 ”中 的 Testl 过 程 进行 测试 。 

实际 效果 如 图 17-61 所 示 。 


显示 “ 开 友 工具 ”选项 卡 


打开 VBA 编 辑 器 (VBE) 


插入 标准 模块 





图 17-61 联动 组 合 框 


17.6.2 ”使 用 文本 框 控 件 


往 工 具 栏 中 添加 文本 框 控件 时 ， 需 要 把 控件 的 Type 属性 设置 为 msoControlEdit。 该 控 
件 的 主要 属性 如 下 。 

D Caption: 文本 框 的 注释 标题 。 

D Text: 文本 框 中 的 内 容 ， 可 读 写 。 

口 OnAction: 修改 文本 框 内 容 后 按 下 【 Enter 】 键 做 出 的 回调 。 

口 Width: 文本 框 的 宽度 。 
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下 面 的 实例 各 日 定义 工具 栏 中 添 加 两 个 文本 框 控件 ， 两 个 文本 框 觉 度 不 同 。 然 后 添加 一 
个 “ 重 置 ”按钮 ， 单 击 “ 重 置 ”按钮 会 自动 输入 用 户 名 和 密码 。 
源 代码 : 实例 文档 15.xls/ 使 用 文本 框 控件 


1 
2 
3 
J 
| 
6 
了 


20. 
zi. 
8. 
pe 
了 全 
3 


Sub Testl]() 


On Error Resume Next 
Dim cmb As Office.CommandBar 
Dim TextBoxl As Office.CommandBarControl, TextBox? As Office.CommandBarControl 
Dim bt As Office.CommandBarButton 
Application.CommandBars ("Login") .Delete 
Set cmb = Application.CommandBars.Add (Name:="Login", Position:= 
msoBarFloating) 
Set TextBoxl] = cmb.Controls.Add (Type:=Office.MsoControlType.msoControlEdit) 
With TextBoxl 

-Caption = "用 尸 名 :" 

下 三 天 未 证 天 

-OnAction = "m.Msgl" 

-Width = 100 
End With 
Set TextBox2 = cmb.Controls.Add (Type:=Office.MsoControlType.msoControlEdit) 
With TextBoxz 

.Caption = "密码, " 

-Text = "O00000™ 

-OnAction = "m.Msg2" 

-Width = 60 
End With 
Set bt = cmb.Controls.Add (Type:=Office.MsoControlType.msoControlButton) 
With bt 

-Caption = “" 重 置 " 

.OnAction = "m.Reset™" 

.Faceld = 1016 

-Style = msoButtonIconAndCaption 
End With 
cmb.Left = 200 
cmb.Top = 200 
cmb.Visible = True 


32. End Sub 

代码 分 析 : 第 12 行 代码 指定 了 OnAction 属性 ， 当 用 户 在 文本 框 中 输入 内 容 按 下 
【 Enter 】 键 后 ， 会 自动 调用 模块 m 中 的 Msgl 过 程 。 

模块 m 中 的 代码 如 下 。 

源 代码 : 实例 文档 15.xls/m 


] 
2 
3 
4 
= 
6 
1 
8 
9 
] 


Public Sub Msgl{) 


ActiveCell.Value 


Application.CommandBars ("Login") .Controls (1) .Text 


End Sub 
Public Sub Msg2() 


ActjveCell.Value = Application.CommandBars{("Login") .Ccontrols (2) .Text 


End Sub 
Public Sub Reset{() 


Application.CommandBars("Login") .Controls (1) .Text "admin™ 
Application.CommandBars ("Login") .Controls{(2) .Text = "1234J06" 


0. End Sub 


第 17 章 目 定 义工 具 栏 803 


运行 上 述 Testl 过 程 ， 在 工作 表 界 面 会 看 到 浮动 工 图 icrosoft Excel - 实 阐 文 消 14.=1z 


:加 交 站 篇 昌 四 ”视图 妇 插入 人 格式 0 工具 他 ) 数 失 


具 栏 ， 输 入 任意 用 户 名 按 下 【 Enter 】 键 ， 会 看 到 活动 单 
元 格 的 内 容 发 生 改 变 ， 如 图 17-62 所 示 。 








17.6.3 ”设计 用 户 窗 体 的 菜单 


VBA 的 用 户 窗 体 本 号 不 币 有 且 单 设计 的 功能 ， 但 
是 通过 API 的 方式 ， 可 以 把 Excel 中 的 CommandBar 对 象 吸 附 到 用 户 窗 体 上 。 

到 的 API 卫 数 如 下 。 

D FindWindow: 根据 句柄 或 标题 查找 窗口 或 工具 栏 的 句柄 。 

D SetParent: 窗口 吸附 。 

下 面 的 实例 实现 在 窗 体 局 动 时 ， 目 动 创建 一 个 名 为 Example 的 一 般 工 具 栏 ， 并 在 工具 
栏 中 添加 寿 干 控件 ， 然 后 把 工具 栏 吸附 到 用 户 窗 体 。 当 窗 体 关闭 时 ， 目 动 解 除 吸 附 ， 并 且 把 
目 定 义工 具 栏 删除 。 

在 VBA 工程 中 插入 一 个 用 户 窗 体 ， 在 属性 窗口 中 把 该 窗 体 的 ShowModal 属性 更 改 为 
False， 然 后 双击 窗 体 进入 窗 体 事件 模块 ， 输 入 如 下 代 但 。 

源 代码 : 实例 文档 16.xls/UserForm1 


图 17-62 工具 栏 中 的 文本 框 控件 





1. Private Declare Function FindWindow Lib "user32” Alias "FindWindowA"™" (ByVal 
lpCclassName As String, ByVal lpWindowName As String) As Long 

22. Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, 
ByVal hWndNewParent As Long) As Long 


3. Dim hl As Long, h2 As Long 

4. 

JJ- Private Sub UserForm Initialize (|) 

6. Dim cmb As Office.CommandBar 

ds Dim pop As Office.CommandBarPopup 

8. Dim bt As Office.CommandBarButton 

s Set cmb = Application.CommandBars.Add (Name:="Example", Position:= 
msoBarFloating) 

10. Set pop = cmb.Controls.Add (Type:=msoControlPopup) 

De pop -Caption = “" 文件 {(&gF}" 

12. pop.Controls.Add ID:=2520 . 内 置 新 建 按钮 

13. pop.Controls.Add ID:=23 内 置 打 开 按 钮 

14. pop.Controls.Add ID:=3 ' 内 置 保存 按钮 

有 Set bt = pop.Controls.Add (Type:=ms3oControlButton) 

16. With bt 

1 1/ 。 .BeglinGroup = True 

19. -Caption = "上 骨 见 (&X)" 

19. .Faceld = 2950 

20 - -Style = msoButtonIconAndCaption 

as -OnAction = "m.Bye" 

22. End With 

23. cmb.Controls.Add ID:=30003 ' 内 置 编 辑 子 菜单 

二 全。 cmb.Visible = True 

pa hl = FindWindow (vbhNullstring, Me.Caption) 

26. h2 = FindWindow("MsoCommandBar", "Example™") 


21. SetParent h2, hl 
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28. With Application.CommandBars ("Example") 

as -Top = —20 

30. -Left = 一 上 

31s -Protection = msoBarNoMove + msoBarNoResize + msoBarNoChangeDock 
32. End With 

33. End sub 

34. 

3J. Private Sub UserForm QueryClose (Cancel AS Integer, CloseMode As Integer) 
36. SetParent h2, 0 

31. Application.CommandBars ("Example") .Delete 


38. End Sub 


代码 分 析 : 模块 顶部 是 两 个 API 声明 ,hl 和 h2 长 整 型 变量 用 来 获取 用 户 窗 体 的 句柄 ， 


以 及 自 定 义工 具 栏 的 句柄 。 ge 
第 6 ~ 24 行 代码 完全 是 工具 栏 的 自 定 义 部 分 。 


第 25 ~ 33 行 代 码 用 于 把 工具 栏 吸 附 到 窗 体 上 。 

第 35 ~ 38 行 代码 是 窗 体 的 关闭 事件 ， 用 于 解除 
吸附 ， 并 且 删 除 工 具 栏 。 

窗 体 启动 后 ， 效 果 如 图 17-63 所 示 。 

当 单 击 “ 再 见 ” 按 钮 时 ， 自 动 关 闭 窗 体 。 图 17-63 ”用 户 窗 体 显 示 自 定义 工具 栏 





17.6.4 ”人 忆 历 所 有 FacelD 


在 目 定 义工 具 栏 的 过 程 中 ， 经 凋 用 到 为 命令 按钮 指定 图 标的 问题 。 如 果 事 先 思 有 历 到 所 有 
的 图 标 ， 以 后 册 查 找 时 就 方便 本。 

Excel 有 上 万 个 内 置 控件 ， 如 有 果 把 全 部 控件 追加 到 一 个 工具 栏 ， 一 屏 才 显示 不 全 。 下 面 
的 实例 遍历 1 ~ 1000 的 FaceID。 

源 代 码 : 实例 文档 18.xls/ 遍历 所 有 FacelD 


Sub Testl 1() 
On EIroOr Resume Next 


Dim cmb As CommandBar, bt As CommandBarButton 


Application.CommandBars("FaceID]000"™") .Delete 
Set cmb = Application.CommandBars.Add (Name:="FaceID1l000", Posijtion:= 


msoBarFloating) 


1 
2 
3 
4. Dim i As Long 
5 
6 


fe For 1 = 1 To 1000 

8 Set bt = cmb.Controls.Add (Type:=msoControlButton) 
3 With bt 

10. Captijion = 1 

Ls .Faceld = 1 

La, -Style = msoButtonlIconAndCaptionBelow 
13s -TOOoltipText = "FacelID:™" & 1 

14. End With 

Ls Next 1 

16. cmb.Left = 100 

11. cmb.Top = 100 


18. cmb.Height = cmb.Controls(l1) .Height * 21 
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19. cmb.Visible = True 
20. End Sub 


代码 分 析 : 首先 创建 一 个 浮动 工具 栏 ， 然 后 追加 1000 个 命令 按钮 控件 ， 每 个 控件 的 标 
题 、 图 标 、 提 示 语 都 和 循环 变量 i 建立 关联 。 

第 18 行 代码 的 作用 是 让 1000 个 图 标 分 为 20 行 显示 (标题 占据 1 行 )， 50 个 控件 。 

上 述 过 程 运行 结果 如 图 17-64 所 示 。 


me Ll De 
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FE 济 国 哎 者 = 匡 
四 圭 国 FF 豆 :过 [ 恒 漳 Wa 看 me F 
司 司 国 下 户 深 要 


4 = 司 加 二 加 加 | 





图 17-64 批量 增加 工具 栏 控件 
如 果 要 查看 其 他 范围 的 图 标 ， 把 第 7 行 代 码 中 循环 变量 的 上 下 界 改 动 一 下 即 可 。 


17.6.5 ”提取 Windows 系统 字体 名 称 和 字号 列表 


Excel 的 “格式 ”工具 栏 中 的 “字体 ”名 称 组 合 框 ID 是 1728， 访 问 到 该 控件 后 ， 遍 历 
其 中 的 条 目 即 可 获取 系统 字体 名 称 列表 。 
源 文件 : 实例 文档 18.xls/ 获取 字体 名 称 字号 列表 


1 Sub Testl]{() 

pp Dim combo As Office.CommandBarComboBox 
加 

4 


Dim 1 As Integer 


4. Set combo = Application.CommandBars ("Formatting") .Controls (" 宁 体 (&F) :") 
5 For 1 = 1 To combo.ListCount 
0. Debug.Print i, combo.List (1) . 
hrial Unicode MS 
1 Next 1 正 寻 性 
8 End Sub 


代码 分 析 : 循环 变量 i 从 1 到 组 合 框 条 目 总 数 ， 依 次 人 过 
历 ， 在 立即 窗口 打印 序号 和 条 目 内 容 。 运 行 后 立即 窗口 的 一 
部 分 结果 如 图 17-65 所 示 。 

如 果 要 获取 字号 列表 ， 只 需要 把 第 4 行 代码 中 的 。 图 17.55 通过 Exeel 字体 名 和 
Controls(" 字体 (&F):") 改 为 Controls(" 字号 (&F):") 即 可 。 组 合 框 获取 系统 字体 


ONDA 
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17.7 Excel 高 版 本 的 工具 栏 设计 


ga dene 不 再 使 用 工具 栏 和 控件 作为 界面 ， 而 是 采用 功能 区 ,但 

具 栏 的 VBA 对 象 仍然 可 以 继续 使 用 。 对 于 用 VBA 创建 的 日 定义 工具 栏 和 控件 ，Excel 
A 有 具 栏 命令 “ 目 定 义 
工具 栏 ”三 个 组 ， 如 图 17-66 所 示 。 


9? 特 陈 符号 。 如 北京 | 友人 御 - 
| 北京 $$ 北京 


芋 单 命令 ”| 械 具 栏 富 叙 





图 17-66 Excel 2013 的 “加 载 项 ”选项 卡 


口 荣 单 命令 : 在 内 置 的 工作 表 华 单 栏 (Worksheet Menu Bar) 上 增加 的 控件 ， 显 示 在 “ 半 
单 命 令 ” 组 中 。 
D 工具 栏 命 令 : 在 内 置 的 其 他 一 般 工 具 柱 (例如 “和 常用"“ 格 式 ” 工 具 栏 ) 上 增加 的 控件 ， 
显示 在 “工具 栏 命令 ”组 中 。 
口 自 定 义工 具 栏 : 用 户 创建 的 日 定义 工具 栏 ， 显示 在 “上 自 定 义工 具 栏 ”组 中 。 
如 果 在 Excel 的 内 置 右键 菜单 (例如 Cell、Column 、Ply 等 ) 上 加 入 了 了 控件， 仍然 显示 
于 右键 全 单 中 。 


17.7.1 增加 菜单 命令 


增加 在 Worksheet Menu Bar 内 置 工具 栏 中 的 命令 ， 一 律 显示 在 “这 单 命令 ”组 中 。 

下 面 的 过 程 为 该 内 置 工具 栏 增 加 一 个 子 沫 单 ， 该 子 亲 单 中 增加 3 个 按钮 。 然 后 为 内 置 工 
具 栏 增加 一 个 直属 按钮 “北京 市 ”。 

源 代 码 : 实例 文档 79.xlsm/ 菜单 命令 


1 Sub Testl{() 

2 Dim cmb As Office.CommandBar 

3 Dim pop As Office.CommandBarPopup 

4. Dim bt(1 To 4) As Office.CommandBarButton 

2 Set cmb = Application.CommandBars ("Worksheet Menu Bar"™) 
6. Set pop = cmb.Controls.Add (Type:=msoControlPopup) 

a pop.Caption = " 东北 地 区 " 

8 Set bt(1) = pop.Controls.Add (Type:=msoControlButton) 

9 With bt(1) 


10. -Caption = " 黑龙江" 

11. .Faceld = 210 

12. -Style = msoButtonIconAndCaption 

LL -OnAction = "m.Msg" 

14. End With 

1 Set bt(2) = pop.Controls.Add (Type:=msoControlButton) 


16. With bt (2) 


17 .Caption = "吉林 " 

18. -FacelId = 210 

Lh -Style = msoButtonIconAndCaption 

0. -OnAction = "m.Msqg" 

21. End With 

Pap Set bt(3) = pop.Controls.Add (Type:=msoControlButton) 
23。 With bt (3) 

24. -Caption ==“ 居 守 " 

pa .FacelId = 210 

之 昌 。 .Style = msoButtonIconAndCaption 

i -OnAction = "m.Msg" 

28. End With 

29; Set bt(4) = cmb.Controls.Add (Type:=msoControlButton) 
30. With bt (4) 

31. .Captidgn = " 业 京 种 " 

二 .Faceld = 210 

EE .Style = msoButtonIlIconAndCaption 

34. .OnAction = "m.Msg" 

35 。 End With 

30. cmb.Visible = True 


31. End Sub 


运行 上 述 过 程 ，Excel 2013 中 的 “加 载 项 ”选项 卡 的 “菜单 





图 17-67 Excel 2013 中 的 菜单 命令 


17.7.2 增加 工具 栏 命令 
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令 ” 组 如 图 17-67 所 示 。 


增加 在 其 他 内 置 工具 栏 中 的 控件 ， 显 示 于 “工具 栏 命令 ”组 中 。 只 需要 把 17.7.1 节 第 5 
即 可 ， 如 图 17-68 所 示 。 


行 代 码 中 的 Worksheet Menu Bar 改 为 Standard， 有 再次; 


开关 揪 六 
” 特殊 符号 三 db 区 -> 
东北 地 区 - 《4 北京 市 


| 北京 市 
节 单 膏 信 ”工具 栏 帝 令 


图 17-68 ”Excel 2013 中 的 工具 栏 命令 


17.7.3 ”创建 自 定义 工具 栏 


有 一 = 一 


运作 


视图 


开发 T 具 


加 载 项 





如 果 用 VBA 创建 了 全 新 的 工具 栏 ， 然 后 放 人 了 一 些 控件 ， 那 么 


工具 栏 ” 组 中 。 


这 个 工具 栏 显示 于 “日 
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下 面 的 实例 创建 一 个 名 为 Custom 的 自 定义 工具 栏 ， 然 后 为 该 工具 栏 增加 3 个 子 菜单 ， 
每 个 子 菜 单 中 增加 一 个 按钮 。 
源 代 码 : 实例 文档 79.xlsm/ 自 定义 工具 栏 


1. Sub Testl () 

了 On Error Resume Next 
3 Dim cmb As Office.CommandBar 

4. Dim pop(l1 To 3) As Office.CommandBarPopup 

与 < Dim bt(1 To 3) As Office.CommandBarButton 

本 Application.CommandBars ( "Custom ) .Delete 

Fi Set cmb = Application.CommandBars.Add (Name:="Custom") 
8。 Set pop(l1) = cmb.Controls.Add (Type:=msoControlPopup) 


9. pop (1) .Caption = "文件 (&gF})" 

10. Set bt(l1) = pop{(l1) .Controls.Add (Type:=msoControlButton) 
11。 With bt (1) 

让 -Caption = ”打开 【SO) = 

13. .Faceld = 23 

14. -Style = msoButtonIconAndCaption 

1 3. -OnAction = "m.Msqg" 

16. End With 

17 。 

18. Set Pop (2) = cmb.Controls.Add (Type:=msoControlPopup) 
19. pop (2) .Caption = "查看 (&V)" 

20. Set bt(2) = pop{(2) .Ccontrols.Add (Type:=msoControlButton) 
a With bt (2) 

pr .Caption = 一" 源 代 码 (&M})" 

-a .Faceld = 109 

24. .Style = ma3oButtonIconAndCaption 

ds .OnAction = "m.Msg" 

226. End With 

2s 

28. Set pop(3) = cmb.Controls.Add (Type:=msoControlPopup) 
29. pop (3) .Caption = 一 帮助 (&H)" 

30 - Set bt(3) = Pop(3) .Controls.Add (Type:=msoControlButton) 
31. With bt (3) 

3 .Caption = 天 于 【ER 

了 .Faceld = 921 

34. .Style = msoButtonlIconAndCaption 

es .OnAction = "m.Msg" 

36. End With 

31. cmb.Visible = True 


38. End Sub 


运行 上 述 过 程 后 , Excel 2013 的 “加 载 项 ”一 “ 自 定义 工具 栏 ” 中 效果 如 图 17-69 所 示 。 


开始 ” 手 和 页 面 布局 公式 数 居 ”审阅 视图 。 开发 了 I 具 加载 项 
* 特 夺 符 号 ”东北 地 区 -” 襄 性 ”查看 ~ 帮 动 - 
东北 地 区 - | 北京 市 打开 上 


#| 北京 市 
菜单 帝 守 ”| 工具 术 帘 令 白 定 空 工具 栏 


II 





图 17-69 “Excel 2013 中 的 自 定 义工 具 栏 
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17.7.4 ”显示 Excel 2003 经 曲 菜 单 


Excel 有 一 个 内 置 菜单 (Built-in Menus)， 可 以 把 这 个 工具 栏 中 的 常用 子 菜单 复制 到 新 建 
的 工具 栏 中 ， 从 而 实现 在 高 级 Excel 版 本 中 看 到 Excel 2003 的 经 典 荣 单 系 统 。 
源 代 码 : 实例 文档 79.xlsm/ 经 典 菜 单 


1 Sub Testl]{() 

2 On Error Resume Next 

3 Dim cmb As Office.CommandBar 

4 Dim Vv As Variant 

a Application.CommandBars("Classic") .Delete 

6 Set cmb = Application.CommandBars.Add (Name:="Classic") 

1 For Each vw In Array (0, 1, 4, 8, 10, 13, 18, 23, 21/, 28) 

8 Application.CommandBars ("Built-in Menus") .Controls (Vv) .Copy cmb 
号 。 Next Vv 

10. cmb.Visible = True 


ll1i. End Sub 


运行 上 述 过程 ， 经 典 3 





页 面 布 局 ”公式 。 数据 ”审阅 。 视图 开发 T 上 县 加 载 顶 

， 特 天 符 号 。 东北 地 区 - 文件 ”编辑 ”视图 " | 驻 疯 司 格式 - 工具 - 数据 - 窗口 - 帮助 > 
东北 地 区 ”人 | 北京 市 播 人 单元 格 {EE).. 
8 北京 市 行 (R) 

菜单 病 信 工具 柱 稍 入 到 个 
5 | : [工本 
图 委 (H).. 
特 故 符 三 [0 


ID DO 一 | HE DC 





图 17-70 “显示 Excel 2003 经 由 荣 单 


习题 


1. 在 Excel 2003 中 ,在 “格式 ”工具 栏 的 最 后 添加 一 个 日 定义 按钮 ， 该 按钮 的 标题 厂 
对 齐 ，FaceID 为 2950，OnAction 属性 为 Right。 创 建 该 按钮 后 ， 单 击 该 按钮 使 得 所 选单 元 
格 内 容 右 对 齐 ， 效 果 如 图 17-71 所 示 。 





国 icrosoft Excel — Bookl 
] . 视图 人 8) 插入 (格式 (0) 工具 代数 据 (0 窗口 如。 帮助 各 
Wn We * fa -| 障 三 -站 让 | 岗地 10% 而 四 


zt2 -|B I TUT| 于 至 | 导 | 玫 | 较 %_ ， 菩 闻 | 棕 诈 | 这 -入 己 右 对 齐 必 
| 





图 17-71 习题 1 图 
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2. 在 Excel 2003 中 ， 重 新 创建 一 个 新 工具 栏 ， 名 称 为 NewBar， 然 后 把 “ 负 用 ”工具 栏 
的 前 5 个 控件 移动 到 NewBar 工具 栏 中 ， 实 现 效 果 如 图 17-72 所 示 。 以 上 操作 均 通 过 VBA 


国 了 icrosoft Excel 一 BoogE1TL.Y1s 


0) 窗口 帮助 
了 100% 器 闻 量 第 用 工具 栏 


.| BO | 2 i saan A 
3 罗 6 | | =" = 





17-72 ”习题 2 
3. 更 改 单元 格 右键 全 单 中 所 有 控件 的 图 标 为 笑脸 (FaceID 为 2950)， 效 果 如 图 17-73 所 示 。 























< 部 切 民 ) 
复制 人) 

肖 粘 吊 (E) 

肖 选择 性 粘贴 (8)... 
骨 质 入 CD)... 

= 册 隆 血 )... 

3 语 阶 内 容 二 ) 

















2 插入 批注 血 ) 


明 妈 直 单元 格格 却 到 ).. . 
由 从 下 拉 列 表 中 选择 (EK)... 
“由 添加 监视 点 出 ) 

创建 列表 从)... 

肖 超 谤 接 0)... 

2 别 卉 [ 安 列 表 











17-73 “习题 3 图 





VBA 代码 保存 于 Excel 的 工作 泗 文 件 中 ， 如 果 想 经 常 使 用 写 好 的 VBA 代码 ， 就 必须 打 
开 这 些 工 作 短 ， 这 样 就 导致 Excel 中 多 出 了 不 该 出 现 的 工作 短 界 面 。 

Excel 的 加 载 安 (Addin) 是 由 工作 和 泗 男 存 而 成 ， 当 加 载 宏 处 于 加 载 状态 时 ， 用 户 可 以 使 
用 里 面 的 VBA 功能 ,但 是 在 Excel 中 并 不 呈现 加 载 宏 的 界面 。 换 句 话 说 ， 加 载 宏 就 是 一 个 
作用 范围 为 整个 应 用 程序 的 一 个 插件 。 由 于 Excel 加 载 宏 具有 不 呈现 工作 表 和 单元 格 界 面 、 
作用 范围 广 等 优势 ， 把 VBA 作品 加 工 成 加 载 宏 具有 非常 重要 的 作用 和 意义 。 

也 有 个 别 的 加 载 宏文 件 扩展 名 是 .xll 或 其 他 的 ， 这 些 都 是 用 其 他 开发 语言 制作 的 。 本 章 
主要 讲述 工作 短 转 存 的 加 载 宏 的 制作 和 使 用 。 


18.1 Excel 加 载 宏 对 话 框 


Excel 加 载 宏 对 话 框 列 出 了 当前 应 用 程序 中 的 所 有 加 载 宏 ,下面 讲述 如 何 调 出 “加 载 宏 ” 
对 话 框 。 

Excel 的 各 个 版 本 者 提供 有 “加 载 宕 ”对 话 框 。 对 于 Excel 2013， 有 如 下 4 种 方法 调 出 
“加 载 宏 ”对 话 框 。 

1. Excel 选项 

在 “Excel 选项 ”对 话 框 中 ,切换 到 “加 载 项 ”选项 卡 ， 在 下 部 的 “管理 ”下 拉 列 表 框 
中 选择 “Excel 加 载 项 ”选项 ， 单 击 “ 转 到 ”按钮 ， 如 图 18-1 所 示 。 

单 击 “ 确 定 ” 按 钮 ， 弹 出 “加 载 安 ”对 话 框 ， 如 图 18-2 所 示 。 

2. 功能 区 

在 Excel 中 显示 出 功能 区 中 的 “开发 工具 ”选项 卡 后 ， 选 择 “开发 工具 ”一 “加 载 
项 ”一 “加 载 项 ”命令 ， 也 可 弹出 “加 载 宏 ”对 话 框 。 
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图 18-1 转 到 Excel 加 载 宏 对 话 框 图 18-2“ 加 载 宏 ”对 话 框 


3. 工具 栏 按钮 方式 
早期 版 本 中 ,“ 加 载 项 ”控件 的 ID 是 943， 所 以 可 以 运行 下 面 的 VBA 代码 自动 执行 对 
话 框 。 


Application.CommandBars.FindControl (ID:=943) .Execute 


4. 对 话 框 方式 
“加 载 宏 ”对 话 框 也 是 Excel 内 置 对话 框 之 一 ， 运 行 如 下 代码 自动 显示 “加 载 宏 ”对 话 框 。 


Application.Dialocogs (xlDialogAddinManager) .Show 


Excel 加 载 宏 对 话 框 中 ,“ 可 用 加 载 宏 ”列表 框 中 每 个 加 载 宏 前 面市 有 一 个 复 选 框 ， 当 该 
复 选 框 处 于 勾 选 状态 时 表示 处 于 加 载 状 态 ， 否 则 是 和 印 载 状态 。 其 中 ,分 析 工 具 库 、 规 划 求 解 
加 载 项 、 欧 元 工具 等 都 是 微软 Excel 日 市 加 载 宏 。 

对 话 框 右 侧 的 “浏览 ”按钮 用 来 快速 找到 磁盘 中 的 加 载 宏 文件 ， 一旦 加 载 7 一 个 文件 ， 
后 续 基 本 不 需要 再 次 浏览 该 文件 ， 会 自动 记忆 文件 位 置 。 

对 话 框 右 侧 的 “自动 化 ”按钮 一 般 用 来 加 载 动态 链接 库 中 的 上 日 定义 限 数 。 


18.2 -加载 宏 可 以 包含 的 内 容 


加 载 安 文件 由 一 般 的 工作 短文 件 另存 而 成 ， 所 以 ， 工 作 竹 中 能 写 哪 些 VBA 功能 ， 制 作 
出 的 加 载 安 就 有 哪些 功能 。 

提供 给 用 户 的 加 载 宏 不 能 纯粹 是 代码 ， 需 要 使 用 其 他 元 系 作 为 交互 界面 。 但 由 于 加 载 宏 
文件 的 工作 表 和 单元 格 区 域 都 是 隐藏 不 可 见 的 ， 所 以 不 适合 使 用 工作 表 控 件 、 工 作 表 事件 作 
为 界面 的 构成 元 素 。 
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18.2.1 ”过程 和 快捷 键 


加 载 安 的 实质 就 是 让 用 户 在 其 他 工作 短 中 调用 加 载 安 中 的 代码 和 功能 。 过 程 是 程序 设计 
的 单位 ， 如 采 不 想 为 加 载 宏 制作 复兴 的 界面 ， 可 以 考虑 为 过 程 设置 快捷 键 。 

为 宏 指 定 快捷 键 有 如 下 两 种 方式 。 

DD Application.MacroOptions: 安 选 项 。 

口 Application.OnKey: 热 键 。 

下 面 的 实例 为 加 载 宏文 件 中 的 Msg 过 程 设 定 快捷 键 。 

在 Excel 2013 中 新 建 一 个 工作 短 ， 在 其 VBA 工程 插入 一 个 标准 模块 ， 重 命名 为 m。 在 
模块 中 写 入 如 下 代码 。 


源 代 码 : ExcelAddin20170803.xlam/m 





1 Public Sub Msg II) 

之 MsgBox Now 

3. End Sub 

4 Public Sub Testl{) 

Application.MacroOptions Macro:="Msg", Description:=" 过 程 测 试 "， 
ShortcutKey:="yJ" 

6. End Sub 


代码 分 析 : 运行 Testl 过 程 是 为 上 面 的 Msg 过 程 设 置 快捷 键 ，ShortcutKey:="J" 表示 按 
下 快捷 键 【 Ctrlitshift+ry 】 就 会 日 动 执行 Msg 过 程 。 如 采 设 置 为 ShortcutKey:="j" 则 表示 按 
下 快捷 键 【 CtrlHj 】。 


注意 : 通过 修改 宏 选 项 为 过 程 指定 的 快捷 键 ， 是 永久 的 ， 即 使 把 加 载 项 和 凶 载 ,或 者 
重启 Excel 应 用 程序 ， 该 快捷 键 仍然 记忆 。 


把 刚才 新 建 的 工作 短 另 存 为 加 载 安 ， 在 Excel 中 按 下 【 F12 ] 键 ， 显示 “ 男 存 为 ”对 话 
框 ， 在 “保存 类 型 ”下 拉 列 表 杠 中， 选择 “Excel 加 和 载 宏 (*.xlam)， 如 图 18-3 所 示 。 


bicrosoft Excel ,,, 








图 18-3 ”工作 短 另 存 为 加 载 宏 
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在 对 话 框 中 输入 加 载 宏 的 名 称 ， 单 击 “ 保 存 ” 按 钮 即 可 。 

如 果 加 载 宏 用 在 Excel 2003 以 下 版 本 ,保存 类 型 请 选择 “Excel97-2003 加 载 宏 (.xla》”。 

另存 完成 后 ， 在 Excel 界面 并 不 能 看 到 该 加 载 宏 ,在 VBA 工程 中 也 没有 任何 痕迹 。 这 
是 因为 加 载 宏 文件 虽然 制作 成 功 了 ,但 还 需要 加 载 才 可 以 进行 编辑 和 使 用 。 

因此 ， 打 开 Excel 的 “加 载 项 ”对 话 杠 ， 单 击 “ 浏 览 ” 按 钮 , 找 ”gE 
到 刚刚 另存 的 xlam 格式 文件 ， 确 保 文 件 被 勾 选 ， 单 击 “ 确 定 ” 按 钮 
即 可 _ 2017/8/3 15:39:18 

此 时 在 任意 一 个 工作 夭 、 工 作 表 中 按 下 快捷 键 【 Ctrl+Shiftty 】， 
会 弹出 当前 时 间 对 话 框 ， 如 图 18-4 所 示 。 

加 载 宏 处 于 加 载 状态 时 ， 可 以 在 VBA 中 看 到 该 加 载 宏 的 工程 ， 图 18-4 按 下 快捷 键 
如 果 未 设置 工程 密码 ， 则 像 其 他 工作 短 一 样 ， 可 以 查看 和 修改 代码 。 调用 加 载 宏 中 的 过 程 





注意 : 加 载 宏 进行 加 载 或 凶 载 操作 ， 必 须 确保 Excel 中 至 少 有 一 个 可 见 的 工作 短 。 如 
果 一 个 工作 短 也 没 打 开 ， 则 不 能 进行 加 载 宏 的 加 载 和 缉 载 。 


下 面 的 实例 使 用 Onkey 方法 为 过 程 Msg2 设置 快捷 键 。 
源 代码 : ExcelAddin20170803.xlam/m 


1 Public Sub Msg2{) 

2 MsgBox Application.UserName 

3 End Sub 

4. Public Sub Test21{) 

可 Application.OnRey "{F6}", ”了 .MsG2 
6 End Sub 


运行 Test2 过 程 后 ， 为 m 模块 中 的 Msg2 过 程 设置 快捷 键 为 【 F6 ]。 

使 用 OnkKey 设置 的 快捷 键 ， 当 重启 Excel 应 用 程序 后 ， 快 捷 键 无 效 ， 需 要 重 设 。 

为 了 能 让 加 载 宏一 加 载 快 捷 键 就 立即 生效 ,需要 使 用 加 载 宏文 件 的 加 载 和 地 载 事件 来 日 
在 加 载 宏 文件 的 VBA 工程 中 ,编辑 ThisWorkbook 模块 的 代码 ， 编 写 如 下 两 个 事件 


源 人 代码: ExcelAddin20170803.xlam/ThisWorkbook 





Private Sub Workbook AddinInstall{) 
Application.OnRey "{F6O6}", "m.Msg2" 

End Sub 

Private Sub Workbook AddinUninstall() 
Application.OnRKey "{F6}", ™™ 

End Sub 


代码 分 析 : Workbook_AddinInstall 是 工作 簿 的 加 载 宏 安装 事件 ， 当 一 个 加 载 宏 由 印 载 状 
态 变 更 为 加 载 状态 时 触发 该 事件 。 


Tn 
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相反 ，Workbook AddinUninstall 是 加 载 宏 的 和 凶 载 事件 。 在 本 例 中 ， 当 季 载 加 载 宏 时 ， 
释放 快捷 键 [【 F6 ]】。 

输入 完 上 述 事件 代 人 码 后 ， 按 下 快捷 键 【 Ctrl+ts 】 你 存 加 载 安 。 因 为 加 载 宏 被 修改 后 ， 如 
果 不 主动 保存 文件 ， 则 伸 载 或 者 退出 Excel 时 ， 系 统 不 会 提示 是 否 保存 。 

当 加 载 宏 被 凤 载 ，Excel 会 日 动 天 闭 加 载 宏 文件 。 

加 载 宏 文件 在 加 和 载 时 触发 的 事件 依次 是 Workbook AddinInstall、Workbook Open。 

加 载 宏 在 番 载 时 触发 的 事件 顺序 是 Workbook AddinUninstall、Workbook BeforeClose。 





18.2.2 自 定 义 国 数 


工作 短 中 的 目 定 义 盟 数 的 作用 范围 是 该 工作 短 中 的 工作 表 ; 加 载 宏 中 的 日 定义 函数 ， 作 
用 范围 则 是 应 用 程序 中 的 所 有 工作 簿 中 的 工作 表 ， 因 此 作用 范围 更 大 。 

下 面 的 实例 在 加 载 宏 的 标准 模块 在 中 书写 一 个 用 于 计算 普通 话 等 级 划分 的 图 数 。 

源 代 码 : ExcelAddin20170803.xlam/f 


1 Public Function ScoreRank (Score As JInteger) As String 
之 If Score >= 91 Then 

3 ScoreRank = "一 级 甲 等 " 

二 ElselIf Score >= 92 Then 

hs ScoreRank = "一 级 乙 等 " 

6 Elself Score >= 81 Then 

7 ScoreRank = "二 级 甲 等 " 

8 Elself Score >= 80 Then 

9 ScoreRank = "二 级 乙 等 " 


10. ElselIf Score >= /0 Then 

i ScoreRank = "三 级 甲 等 " 

Ys Elself Score >= 6U Then 

13. ScoreRank = "三 级 乙 等 " 

14. Else 

15. acoreRank = ™ 不 及 格 ! 村 =ScoreRank (E32) 
16. End If 


lj. End Function 


代码 分 析 : 该 阴 数 的 参数 为 分 数 ， 结 果 返 回 一 
个 字符 串 。 

编写 函数 完毕 后 ,保存 加 载 宏 文件 。 在 任意 一 
个 工作 表 中 输入 一 些 成 绩 ， 使 用 ScoreRank 也 数 来 
计算 划分 ， 如 图 18-5 所 示 。 

可 以 看 出 ,使 用 自 定义 函数 轻松 完成 了 一 个 复 
杂 的 任务 ， 该 函数 可 以 用 于 当前 应 用 程序 中 的 任意 ”图 18-5 在 工作 表 中 使 用 加 载 宏 中 的 
工作 表 。 自 定义 函数 





18.2.3 用户 窗 体 
加 载 宏 中 ， 也 可 以 使 用 用 户 窗 体 和 控件 ,设计 好 窗 体 和 控件 后 ， 在 合适 的 代码 位 置 显 示 
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窗 体 即 可 。 此 处 不 再 举例 。 
18.2.4 工具 栏 和 控件 


如 有 条 是 制作 Excel 2003 用 的 加 载 宕 ,使 用 工具 栏 和 控件 作为 加 载 宏 的 界面 是 非常 不 错 
的 选择 。 

下 面 的 实例 实现 在 Excel 2003 中 新 建 一 个 工作 禾 ， 把 该 工作 秒 男 存 为 加 载 宏 
ExcelAddin20170804.xla， 如 图 18-6 所 示 。 


保存 位 置 [) :| 已 ) 宝宝 |@-BIQ x GB- IAV- 


DChess DTreevi ewEditor 
DcelcOoMddin [UseAFI 
器 ExeelSudoku 

Dnr3Player 

Dfficehssistant 
DorfficeConmandbarDesiener201T70202 

DOfficeC ommandbarVi ewer 

DOfficeFawvorite 

OT2003f0rB ord 

DRibboninlEditor20170116 

DRunllacro 

辐 39LinExcel 简 易 版 

号 submit 


el hddi nlTORd la 
Ra wo 
图 18-6 另存 为 Excel 2003 加 载 宏 


然后 选择 “工具 ”一 “加 载 宏 ”命令 ， 在 弹出 的 对 话 框 中 浏览 到 加 载 宏 文件 并 进行 加 载 。 

由 于 是 用 空白 工作 泗 转 存 的 加 载 安 ， 所 以 Excel 没有 任何 界面 上 的 变化 。 

打开 VBA 编辑 器 ， 为 加 载 宏 的 VBA 工程 插入 一 个 标准 模块 ， 重 命名 为 m。 输入 如 下 3 
个 普通 过 程 。 


源 代码 : ExcelAddin20170804.xla/m 








1。 Public menu As Office.CommandBarPopup, bt(l1 To 4) As Office.CommandBarButton 

2. Public ct As Office.CommandBarButton 

3. Public Sub CreateUI1{) 

4. Dim 1 As Integer 

Ys Set menu = Application.CommandBars ("Worksheet menu bar") .Controls.Add 
(Type:=msoControlPopup, Before:=2) 

6 menu.Caption = "压缩 (&2)" 

1 For 1 = 1 To 4 

38. Set bt(I) = menu.Controls.Add (Type:=msoControlButton) 

9 With bt (i) 

10. -Caption = 1 

11. .Faceld = i * 100 

之 : .Style = msoButtonIlIconAndCaption 

13。 .OnAction = "" 

14. End With 

1 Next 1 

16. menu.Visible = True 

11. Set ct = Application.CommandBars ("Pictures Context Menu") .Controls.Add 


(Type:=msoControlButton, Before:=1) 
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1]8. With ct 

19. -Caption = " 对 齐 到 单元 格 " 

20. .Faceld = 1195 

1. .Style = msoButtonIlIconAndCapt1ion 
pa .OnNnAction = "m.Align" 

3 End With 


24. End Sub 

25. Public Sub DeleteUI (|) 

20. Application.CommandBars("Worksheet menu bar") .Reset 
二。 Application.CommandBars("Pictures Context Menu") .Reset 
28. End sub 

29. Public Sub Align{) 


30. Dim sp As Excel.Shape, rg As Excel .Range 

31. Set sp = Application.Selection.ShapeRange.Item(l) 
Ep Set rg = 3p.TopLefttCell 

33. With sp 

34. Left = Ig.Left 

3 -Top = Ig.Top 

36. End With 


31. End Sub 


代码 分 析 : 第 3 行 代 码 中 CreateUI 过 程 用 来 创建 目 定义 界面 。 第 5 ~ 16 行 代码 为 工作 
表亲 单 栏 插入 一 个 子 菜 单 “ 压 缩 ”"， 然 后 为 该 子 菜 单 插入 4 个 命令 按钮 。 

第 17 ~ 24 行 代码 为 图 片 的 右键 菜单 中 插入 一 个 命令 按钮 ， 并 把 该 按钮 放 在 菜单 中 最 项 
部 。 该 按钮 啊 应 模块 中 的 Align 过 程 。 

第 25 ~ 28 行 代码 的 作用 是 删除 自 定 义 界面 ， 把 两 个 内 置 菜 单 重 置 。 

第 29 ~ 37 行 代码 为 Align 过 程 ， 作 用 是 把 所 选 图 片 恰 好 对 齐 到 左上 角 的 单元 格 。 

为 了 让 加 载 宏 在 一 加 载 就 创建 日 定义 界面 、 一 季 载 就 删除 日 定义 界面 ， 需 要 使 用 事件 过 
程 来 实现 自动 化 。 

在 ThisWorkbook 事件 模块 输入 如 下 代码 。 

源 代 码 : ExcelAddin20170804.xla/ThisWorkbook 


1 Private Sub Workbook AddinInstall() 
pa m.CreateUIlI 
3. End Sub 
4 Private Sub Workbook AddinUninstall () 
2 m.DeleteUIlI 
6 End Sub 
代码 分 析 : 当 加 载 宏 被 加 载 时 ， 立 即 创建 日 定 义 亲 单 ; 当 加 载 宏 被 凶 载 时 ， 删除 目 定义 
齐 面 。 
价 人 和 人 上述 代 人 码 并 保存 加 载 宏 ， 邮 载 并 重新 加 载 ， 效 采 如 图 18-7 所 示 。 
在 任意 工作 表 中 插入 一 幅 图 片 ， 右 击 该 图 片 ， 可 以 在 右键 菜单 中 看 到 “对 章 到 单元 格 ” 
按钮 ， 如 图 18-8 所 示 。 
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国 Wicrosoft Exccl - 
ER 视图 外) Ee 客 式 | 工具 并 ) 数据 恬 ) 究 口 章 ) 帮助 邮 


指定 宏 QH)... 
堪 设置 图 片 格式 (I)... 





























图 18-7 加 载 宏 中 的 自 定义 工具 栏 图 18-8 加载 宏 中 的 自 定 义 右键 菜单 


18.2.5 ” 目 定 义 功能 区 


Excel 2007 以 上 版 本 更 适合 使 用 目 定 义 功能 区 来 呈现 用 户 的 上 月 定义 功能 。 
本 章 暂 不 讨论 自 定义 功能 区 方面 的 知识 。 


18.2.6 ”事件 过 程 


由 于 加 载 宏文 件 的 工作 多 界面 被 隐藏， 因此 加 载 安 的 工作 海 、 工 作 表 的 事件 过 程 几 乎 不 

利用 。 然 而 ， 使 用 类 模块 创建 事件 ， 从 而 使 得 在 加 载 安 中 可 以 为 所 有 工作 清和 工作 表 创 
建 事 件 。 

下 面 的 实例 制作 一 个 加 载 突 ， 当 加 载 宏 处 于 加 载 状 态 时 ， 用 鼠标 切换 其 他 工作 适中 的 工 
作 表 时 ，Excel 的 状态 栏 会 自动 更 新 信息 。 

在 Excel 2013 中 新 建 一 个 工作 竹 ， 把 该 工作 泗 为 存 为 20170805.xlam 加 载 宏 文件 。 然 后 
加 载 该 文件 ， 在 其 VBA 工程 中 插入 一 个 类 模块 ， 重 命名 为 ClsEvent， 在 该 类 模块 中 输入 如 
下 代码 。 

源 代码 : ExcelAddin20170805.xlsm/ClsEvent 
1 Public WithEvents App As Excel .Application 
2 
3 Private Sub APP SheetActivate (ByVal Sh As Object) 
4 App.StatusBar = Sh.Parent.Name & ":" & Sh.Name 
5. End Sub 
6 
1 Private Sub Class Initialize!) 

8 
9 


Set App = Application 
End Sub 


1L11- Private Sub Class Terminate () 
12. App.StatusBar = False 

1 Set App = Nothing 

14. End Sub 
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代码 分 析 : 第 1 行 代码 声明 了 一 个 高 有 事件 过 程 的 Application 对 象 。 

第 3 ~ 5 行 代码 是 工作 表 激 活 事 件 ， 当 任 一 工作 表 被 激活 时 ， 在 状态 栏 显 示 工 作 表 所 在 
工作 禾 的 名 称 、 工 作 表 的 名 称 。 

第 7 ~ 9 行 代 码 为 类 模块 初始 化 时 ， 上 月 动 完成 类 的 实例 化 ，App 对 象 变量 与 当前 Excel 
应 用 程序 关联 。 

第 11 ~ 14 行 代码 ， 当 类 模块 被 释放 时 ， 重 置 Excel 状态 栏 。 

由 于 类 模块 在 使 用 时 需要 实例 化 ， 因 此 本 例 当 加 载 安 处 于 加 载 状 态 时 ， 目 动 实例 化 ， 因 
此 ， 在 加 载 安 的 ThisWorkbook 模块 输入 如 下 代码 。 

源 代码 : ExcelAddin20170805.xlsm/ThisWorkbook 


Dim Instance As ClsEvent 

Private Sub Workbook AddinInstall() 
Set Instance = New ClsEvent 

End Sub 


Private Sub Workbook AddinUninstall() 
Set Instance = Nothing 
。 End Sub 


代码 分 析 : 当 加 载 宏一 加 载 ， 就 把 ClsEvent 这 个 类 模块 实例 化 为 变量 Instance。 
为 了 测试 该 加 载 安 ， 可 以 先 秋 载 ， 再 重新 加 载 (这 个 功能 适用 于 任何 版 本 的 Excel)。 用 
忌 标 任意 切换 工作 泗 、 工 作 表 ， 可 以 看 到 状态 栏 的 内 容 变化 ， 如 图 18-9 所 示 。 
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Excel2010 空 味 识 作 古 ,xlsm:Sheet3 
图 18-9 ”加 载 宏 中 的 事件 编程 
从 这 个 实例 可 以 看 出 ， 加 载 宏 中 的 事件 代码 ， 它 的 作用 范围 是 整个 Excel 应 用 程序 ， 而 
不 限 于 某 个 工作 : 秒 司 





18.3 ”修改 加 载 宏文 件 


里 然 加 载 宏 处 于 加 载 状 态 时 ， 用 户 看 不 到 加 载 宏文 件 的 工作 表 结 构 ， 但 是 通过 VBA 还 
可 以 访问 和 修改 工作 表 和 单元 格 。 

实际 上 ，Excel VBA 中 的 Workbook 对 象 有 一 个 IsAddin 属性 ， 如 果 是 一 般 的 工作 注 ， 
该 属性 默认 为 False; 如 末 是 一 个 加 载 安 ， 该 属性 为 True。 

如 果 要 对 加 载 宏 的 工作 表 进 行 修改 ， 可 以 在 VBA 的 属性 窗口 中 把 Addin 属性 设置 为 
False， 即 可 看 到 加 载 宏文 件 的 工作 表 和 单元 格 ， 适 当 修 改 数据 后 ， 骨 把 该 属性 设置 为 True， 
又 看 不 到 工作 表 和 单元 格 了 ， 如 图 18-10 所 示 。 

加 载 宏 最 初 也 是 一 个 工作 沙文 件 ， 因 此 也 具有 文档 属性 。 把 加 载 宏 的 IsAddin 属性 设 
置 为 False 后 ， 在 Excel 中 选择“ 文件 ”一 “信息 ”一 “属性 ”一 “ 高 级 属性 ”命令 ， 如 图 
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18-11 所 示 ， 弹 出 文档 属性 对 话 框 。 


-rr 


日 辐 VBAPFG ect (ExcelAddin?0170805 my 二 
. 日- La Mierosott EExcel 对 象 
… 思 Shentl (Sheet!) 

… 转 | Sheat2 (heat2) 

-图 ] sheet3 (Sheet3) 
i | | Thi st orkbook 
， 折 -多 类 棋 
: 辕 LlsEwent 
外 VBAProject (PERSONAL. XLSB) 











ThisWorkbeok Vorkboolk 
按 字 母 序 ” 按 分 类 序 
EnablehatoRecower 
Enervyptl onPr ow dor 
EnvelopeVisible |False 
Final False 
ForceFullCalceulation False 
Hi gh 1 ehtChanee sOnSeraFalse 
Tnactivelisthorderyisl rae 
[Ishadin 
KeepChianeeli st ory 了 站 世间 
ListChanees0nilewsheet False 
Fassword 事 事 市 市 二 训 下 可 
FersonalViewListSettir True 
FarsonalVi ewPrirntSettiTrue 
Freci SionhsDi spl ayed |False 



































图 18-10 ”修改 加 载 宏 的 IsAddin 属性 


在 属性 对 话 框 中 ， 适 当 修 改 各 项 ， 
载 宏 ”对 话 框 中 ， 如 图 18-12 所 示 。 

下 次 在 Excel 中 加 载 该 加 载 安 时 ， 
图 18-13 所 示 。 


ExcelAddin20170805.xlamn 压 性 


| Exceladdin20170805 


| ryueitu_ YEA 








ExcelBddin2O 1 TO .x arm - Excel 


信息 


ExcelAddin20170805 
E: s DrfficeyB 站 天 巡 典 = 口 ffice 和 BB 开 居 好 惠 证 济 > 寞 谱 件 x Excel 加 苇 志 
保护 工作 簿 EE 
接 喜 其 闻 上 可 以 对 此 工作 管 所 伏 的 更 长 尖 型 。 RE 
| 在 工作 全 上 方 的 谱 档 
面板 中 所 四 司 性 ， 


| “| 在 洛 市 此 交 忻 之 前 , 请 主 哥 芝 名 诗 以 下 内 裕 : 
性 吝 问 题 | 。 日文 村 属性 ， 作 者 的 持 名 和 法 允 此 径 


版 本 


本 找 不 到 此 文件 的 上 一 个 版 本 


选择 在 Web 上 坦 看 此 工作 艇 时 用 户 可 以 看 到 的 内 容 . 


图 18-11 ”加载 宏 的 文档 属性 对 话 框 
尤其 要 注意 修改 “备注 ”， 因 为 该 属性 会 出 现在 “加 


在 “加 载 项 ”对 话 框 中 可 以 预览 到 加 载 宏 的 备注 ， 如 


Exceladd' nan 70805 
YBAJ 攻 站 演示 用 的 hn 载 去 ， 必 者 : 刘 林 富 


图 18-12 ”修改 加 载 宏 文件 的 备注 属性 图 18-13 ”显示 加 载 宏 的 备注 文本 


18.4 使 用 VBA 操作 加 载 宏 


Excel 应 用 程序 可 以 包含 多 个 加 载 宏 


宏 ，Excel 的 所 有 加 载 安 用 Application.Addins 对 象 集 


合 表示 ， 其 中 ， 任 一 加 载 宏 是 一 个 Addin 对 象 。 
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加 载 宏 不 是 Workbook 对 象 ， 因 此 遍历 工作 短 时 不 会 遍历 到 加 载 宏文 件 。 
通过 VBA 操作 加 载 宏 对 象 ， 可 以 实现 加 载 宏 属性 的 读 写 、 加 载 宏 的 日 动 加 载 和 缀 载 等 
操作 。 


18.4.1 加 载 安 的 重要 属性 


Addin 对 象 和 其 他 VBA 对 象 一 样 ， 既 可 以 用 名 称 来 引用 访问 ， 也 可 以 用 索引 值 来 访问 。 

例如 ， 一 个 加 载 宏 文件 是 ExcelAddin20170805.xlam， 在 VBA 代码 中 可 以 用 Application. 
AddIns.Item("ExcelAddin20170805") 来 访问 ， 也 可 以 用 Application.AddIns.Item(3) 来 访问 ， 
括号 中 的 3 表示 这 个 加 载 宏 在 “加 载 宏 ” 对 话 框 的 “可 用 加 载 宏 ” 列 表 框 中 的 序号 ， 表 示 从 
上 数 第 3 个 加 载 宏 。 

下 面 的 实例 读 取 一 个 加 载 宏 的 重要 属性 。 

源 代码 : 实例 文档 79.xlsm/ 加 载 宏 的 属性 


1] Sub Testl1() 

之 Dim a As Excel.AddIin 

3 Set a = Application.AddIns.Item("ExcelAddin201710802") 
4. Debug.Print a.FullName 

2 Debug.Print a.Name 

6 Debug.Print a.Installed 

了 Debug.Print a.Path 

8 End Sub 


代码 分 析 : 第 4 ~ 7 行 代 但 依次 打印 加 载 安 的 完全 路 径 、 名 称 、 加 载 状态 、 路 径 文 件 夹 。 
运行 上 述 过 程 ， 立 即 窗口 打印 结果 如 图 18-14 所 示 。 


E:\0fficeVBA 开 发 经 典 \ExcelAddin20170805. xlam 
ExcelAddin20170805. xlam 


True 
E:\OfficeVBA 开 发 经 典 





图 18-14 ”打印 加 载 宏 的 属性 


注意 : 使 用 名 称 访问 加 载 宏 时 ,括号 内 不 要 加 文件 扩展 名 。 例 如 ，Application.Add- 
Ins.Item("ExcelAddin20170805.xlsm") 就 是 错误 的 。 


另 外 ，Installed 属 性 是 一 个 可 读 写 的 属性 ， 在 VBA 中 运行 Application.AddIns. 
Item("ExcelAddin20170805").Installed=False ， 束 会 日 动 扼 载 该 加 载 宏 ,设置 为 True 时 为 加 载 
状态 。 

加 载 宏 一 旦 被 印 载 ， 在 “加 载 宾 ”对 话 框 的 “可 用 加 载 安 ” 列 表 框 中 这 个 加 载 宏 前 面 就 
会 取消 勾 选 ， 而 且 在 VBA 工程 中 看 不 到 该 加 载 宏 的 工程 。 
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18.4.2 ”加 载 友 的 遍历 


可 以 使 用 循环 过 历 到 每 个 加 载 宏 的 属性 。 下 面 的 实例 打印 所 有 加 载 宏 的 完全 路 径 、 加 载 
源 代码 : 实例 文档 79.xlsm/ 加 载 宏 的 属性 


1 Sub Test2{) 

之 Dim a As Excel.AddIin 

村。 For Each a In Application.AddIins 

4. Debug.Print a.FullName, a.Installed 
3 Next a 

6 End Sub 


本 书 配 套 资 源 中 的 ExcelAddinManager 工具 可 以 斌 写 所 有 加 载 宏 的 属性 。 该 工具 知 要 在 
Excel 打开 的 前 提 下 使 用 ， 如 图 18-15 所 示 。 


古本 E 
标量 人 
| rceraarnans E:"0ifice TEA\ERC 0 2017 B73 13: 51 
eladineol rean EE: VOT1 Th 天安 开罗 
正 ; Css TRIIE 2a0177873 1 11 
I eT 
| 


人 
iio |Uihest 

| 于 区 二 则 颇 -一 
le C FT 








18-15 FxcelAddinManager 面 


18.4.3 VBA 代码 中 调用 加 载 安 中 的 过 程 和 辆 数 


一 般 情 况 下 ，Excel 加 载 宏文 件 提 供给 用 户 ， 用户 可 以 在 工作 表 中 使 用 其 中 的 自 定义 函 
数 ， 也 可 以 在 工作 表 中 显示 加 载 安 中 的 用 户 窗 体 等 。 有 些 场合 让， 还 需要 在 其 他 工作 短 的 
VBA 代码 中 调用 加 载 宏文 件 中 的 过 程 和 图 数 。 

代码 中 调用 加 载 安 中 的 过 程 和 图 数 有 以 下 两 种 途径 。 

D 使 用 Run 方法 进行 器 工程 调用 过 程 。 

DD 在 VBA 工程 中 添加 对 加 载 宏 的 外 部 引用 。 

为 了 方便 人 举例， 首先 创建 一 个 名 称 为 ExcelAddin20171005.xlam 的 加 载 宏 文件 ， 然 后 在 
该 加 载 宏 的 VBA 工程 中 插入 一 个 标准 模块 ， 重 命名 模块 名 称 为 Common， 然 后 在 该 模块 中 
编写 一 个 公有 过 程 TwoGirl 用 于 显示 一 个 用 户 窗 体 。 

源 代码 : ExcelAddin20171005.xlam/Common 


1。 Public Sub TwoG1irl 1(} 
A UserForml .Show 
3. End Sub 
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然后 接 看 编写 一 个 公有 虹 数 IsLeapYear， 用 于 判断 是 否 国 年 。 


源 代 码 : ExcelAddin20171005.xlam/Common 


1 Public Function IsLeapYearlyear As Integer) As Boolean 
ra Dim result As Boolean 

3 Ift Year Mod 100 = 0 Then 

4. Ift vyear Mod 400 = 0 Then 
Ds result = True 

6 Else 

1 result = False 

8 End If 

- Else 

10. Ift vyear Mod 4 = 0 Then 
a result = True 

之 。 Else 

1 3 result = False 

14. End I 

15. End If 

16. IsLeapYear = result 


li1. End Function 


因为 任何 VBA 工程 的 默认 工程 名 称 都 是 VBAProject， 为 了 加 以 区 别 ， 修 改 上 述 加 载 宏 
的 工程 名 称 为 Project ExcelAddin20171005， 如 图 18-16 所 示 ， 并 且 设 置 VBA 工程 密码 为 
123456。 

接 下 来 新 建 一 个 工作 秒 ， 男 存 为 “实例 文档 114.xlsm”， 在 该 工作 秒 的 标准 模块 中 编写 
如 下 过 程 ， 目 的 是 用 Application 的 Run 方法 调用 加 载 宏 中 的 过 程 和 晴 数 。 

源 代码 : 实例 文档 114.xlsm/m 





1 Sub Testl1() 

pa Application.Run "ExcelAddin20171]002.xlam!Common -TWOGIIT] 

= MsgBox Application.Run("ExcelAddin201]1 11]005.xlam!Common.IsLeapYear", 2018) 
4. End Sub 


代码 分 析 ， 由 于 是 跨 工 程 调 用 ， 所 以 Run 方法 后 的 参数 中 需要 规定 加 载 宏 的 文件 名 、 
模块 名 、 过 程 名 。 运 行 Testl 过 程 后 ， 弹 出 加 载 宏 中 的 用 户 窗 体 ， 以 及 得 出 2018 年 不 是 疼 
年 的 结论 ， 如 图 18-17 所 示 。 


| 通用 | 保护 | 


工程 名 种 徊 ) : 
Projoet Execolhddirne0lT 


帮助 文件 名 外) : 


杀 件 编 悍 基数 四) : 








图 18-16 ”修改 加 载 宏 的 VBA 工程 属性 图 18-17 使 用 Run 方法 调用 其 他 VBA 工程 的 过 程 和 函数 
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另外 一 个 方式 就 是 在 测试 工作 簿 的 VBA 工程 中 添加 加 载 宏 文件 的 外 部 引用 ， 现 在 为 实 
例文 档 114.xlsm 的 VBA 工程 添加 引用 。 在 VBA 编辑 器 中 选择 “工具 ”一 “引用 ”命令 ， 
在 引用 对 话 框 中 单 击 “浏览 ”按钮 ， 定 位 到 ExcelAddin20171005.xlam 的 加 载 宏 文件 ， 会 看 
到 Project_ExcelAddin20171005 复 选 框 处 于 勾 选 状态 ,说明 引用 成 功 ， 如 图 18-18 所 示 。 

然后 在 实例 文档 114.xlsm 的 标准 模块 中 继续 编写 另 一 个 过 程 。 

源 代 码 : 实例 文档 114.xlsm/m 


1] Sub Test2() 

二 [Project ExcelAddinz20171003] .TwoG1irl 

:PP MsgBox [Project ExcelAddin201171]00J1.IsLeapYear (2020) 
4. End sub 


运行 Test2 过 程 ， 成 功 调用 到 加 载 宏 中 的 过 程 和 了 哺 数 ， 弹 出 窗 体 并 返回 2020 年 是 国 年 ， 
如 图 18-19 所 示 。 


引用 - VBAProject 


可 使 用 的 引用 必 ) : 


1 和 


ual Basic For hpplications 
ft Exeel 15.0 Object Libyrar 
Xee ject Li ra 


Type Librarw 
le control tvpe librarw 
to 上 Mieration a: 


ei DILL pertorm er 
ReportineExcelClientLitb 


rm 和 |[ | 


roject Excelhddin201T100s5 
定位 : FE:h0fficeyBA 开 发 经 巾 %0ffice 1HA 开 发 经 巾 资 头 % 原 代 奖 
语言 : 英语 /美国 英语 





图 18-18 引用 加 载 宏 文件 图 18-19 工程 引用 的 方式 调用 加 载 宏 


18.4.4 “完全 删除 加 载 安 


Excel 的 “加 载 宏 ”对 话 框 并 未 提供 删除 加 载 宏 的 按钮 ， 因 此 ， 如 果 想 彻底 移 除 其 他 人 
发 来 的 加 载 宏 ， 可 以 在 Excel 未 打开 的 情形 下 ， 把 该 加 载 宏文 件 从 磁盘 中 彻底 删除 挥 。 

然后 重 局 Excel， 在 “加 载 宕 ”对 话 框 中 ， 勾 选 或 取消 色 选 该 加 载 项 ， 弹 出 如 图 18-20 
所 示 的 对 话 框 。 


明日 名 - -= ‘1 - Exce 
误 性 天女 摄 六 页 面 布 局 名 式 EA 市 网 视 固 开 岳 工具 加 茧 顺 Rib bonimlEditer 
rE 
二 了 也 这 Be 了 图: 
Visus| Basic 起 加 过 项 COM lr | 
和 志 安 宇和 性 
代表 加 村 项 | 二 


D 























图 18-20 ”加 载 宏文 件 已 删除 
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此 时 , 单 击 “ 是 ”按钮 ,该 加 载 宏 就 永久 不 会 出 现在 加 载 宏 列 表 中 了 。 

从 前 面 的 讨论 可 以 看 出 ， 加 载 宏 的 设计 和 制作 ， 内 容 非 常 丰 晤 ， 涉 及 Excel VBA 的 多 
个 层面 ， 因 此 一 个 加 载 宏 的 设计 水 平 ， 是 VBA 水 平 的 一 个 重要 体现 。 

但 是 ， 加 载 宏 文件 由 于 本 质 上 还 是 一 个 工作 短文 件 ， 其 代码 安全 性 很 低 ， 因 此 在 实际 开 
发 中 ， 加 载 宏 设 计 只 适合 于 VBA 初学 者 ， 不 适合 开发 商业 化 插件 。 


习题 


1. Excel 的 内 置 加 载 安 “分 析 工 具 库 ”具有 很 多 数据 分 析 方 面 的 功能 ， 默 认 情 况 下 该 加 
载 安 处 于 未 加 载 状态 。 请 编写 程序 ， 能 让 该 加 载 项 目 动 处 于 加 载 状 态 ， 实 现 效 末 如 图 18-21 
所 示 。 


Bacbacz 
ExcelAddin2013 
Exceladdin20170803 


Exceladdin20170805 








图 18-21 习题 1 图 
2. 编写 一 个 计算 指定 年 份 的 六 十 甲子 的 自 定义 函数 ， 然 后 把 该 函数 保存 于 加 载 宏文 件 
中 ， 在 任意 工作 表 中 都 可 调用 该 图 数 ， 如 图 18-22 所 示 。 
Ed "| ;| xx v 后 | = 六 十 甲子 (Ad) 


二 a 
1 | 年 份 xs 十 甲子 
| 1894 甲午 


1949 己 
2017[= 六 十 甲子 (&4) | 















































18-22 习题 2 图 
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六 十 甲子 由 天 干 和 地 支 两 部 分 组 成 ， 例 如 1894 年 是 甲午 年 。 天 干部 分 每 10 年 循环 一 
次 ， 地 支 每 12 年 循环 一 次 ， 天 干 地 文 完全 一 样 需要 经 过 60 年 。 

3. 本 书 源 文件 中 有 一 个 SplitText.xlam 加 载 安 文件 ， 处 于 加 载 状态 时 在 “加 载 ” 宏 对 话 
框 中 显示 为 : 


分 割 数字 
刘 永 富 制作 的 数字 分 割 函数 


如 图 18-23 所 示 。 


分 四 | 数字 
刘 永 宣 制作 的 数字 分 割 函 数 





图 18-23 ”习题 3 图 
请 想 办 法 把 图 中 红色 框 中 的 显示 信息 修改 成 你 日 己 希 望 的 文字 内 容 。 


学 习 编程 的 基本 目的 就 是 要 解决 现实 存在 的 问题 ， 


经 暴 编 程 实例 


本 半 设 计 了 8 个 规模 和 难度 适中 的 编程 案例 。 


19.1 人 角 合 狼 想 


问题 揪 述 : 角 谷 议 夫 是 日 本 的 一 位 着 名 学 者 ， 他 提出 了 两 条 极 简单 的 规则 ， 输 入 一 个 任 
意 日 然 数 N， 如 果 N 是 偶数 ， 就 把 这 个 数 除 以 2 ; 如 果 NN 是 奇数 岗 变 为 3*N+1， 这 个 规则 


一 直 重 复 执行 ， 


最 终 都 会 变 为 1〈 称 此 为 角 谷 猜想 )。 
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为 了 更 好 地 巩固 Excel VBA 知识 ， 


例如 ，KN 的 初始 值 是 11， 它 的 变化 路 


生 是 11、34、17、52 、26、13、40、20、10、5、16、8、4、2、1。 


请 编写 一 个 程序 ， 给 定 


一 个 任何 自然 数 ， 输 出 其 变化 路 径 。 


关键 技术 : VBA 语法 基础 、 循 环 结构 、 选 择 结构 。 

实现 路 线 : 使 用 InputBox 对 话 框 允 许 用 户 输入 任何 自然 数 ， 把 上 述 变换 规则 放 在 
Do...Loop 循环 体 中 ， 如 采 变 成 1， 就 跳出 循环 体 。 在 循环 体 中 一 边 变 换 ， 一边 打印 。 

源 代 码 : 角 谷 猜想 .xlsm/ 角 谷 猜想 


过。 


Sub Testl 1() 


Dim 1 As Integer 
i = InputBox(" 请 输入 一 个 正 整 数 ") 
Do While 工 > 1 
Ift 工 Mod 2 = 1 Then 
1 二 3 十 ] 
Else 
i=1i /2 
End If 
Debug.Print 1 
Loop 


MsgBox "运行 结束 ! " 


13. End Sub 


代码 分 析 : 第 4 行 代码 采用 的 是 Do ... Loop 循环 


， 当 i 为 1 时 自动 跳出 循环 。 
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19.2 单元 格 文字 连接 


问题 描述 : 很 多 情况 下 需要 把 单元 格 区 域 的 所 有 内 容 连 接 成 一 个 长 的 字符 串 ，Excel 本 
身 没 提供 这 个 功能 ， 请 编写 一 个 程序 ， 当 用 户 选 择 一 个 单元 格 区 域 时 ， 该 区 域 连 接 后 的 文本 
日 动 显示 在 窗 体 的 文本 框 中 。 

要 求 单元 格 文字 连接 时 ,左右 相 邻 的 单元 格 用 制 表 位 连接 ， 上 下 相 邻 的 单元 格 用 换行 符 
连接 。 期 望 的 效果 如 图 19-1 所 示 。 





图 19-1 期 望 的 效果 

关键 技术 : 字符 串 的 人 处理、 单元 格 区 域 的 双 层 循环 、 窗 体 和 控件 、 事 件 过 程 。 

实现 路 线 : 核心 代码 是 利用 单元 格 区 域 生 成 长 的 字符 串 这 个 图 数 ， 该 图 数 使 用 双 层 For 
循环 ， 一 边 循环 一 边 连接 。 

当 用 户 选 择 一 个 区 域 时 ， 触 发 工作 表 的 SelectionChange 事件 ， 当 用 鼠标 选择 单元 格 时 ， 
随时 更 新 窗 体 上 文本 框 中 的 内 容 。 

以 下 代码 是 用 于 把 单元 格 区域 转 换 成 字符 串 的 函数 。 

源 代 码 : 单元 格 文字 连接 .xlsm/ 文字 连接 


1] Public Function CellJoinl(sel As Range) As String 

A Dim I As Integer, cc As Integer 

本 For = 1 To sel.Rows.Count 

4. For C= 1 To sel.columns.Count 

Ys CellJoin = CellyJoin & sel.Ccellsl(r, c).Value & vbTab 
6. Next c 

1 CellJoin = CellyJoin & vbhNewLine 

8 Next 工 

号 End Function 


代码 分 析 : 第 3 ~ 8 行 代 码 采 用 的 是 双 层 For 循环 ， 而 不 是 For Each 循环 。 外 层 循 环行 ， 
内 层 循 环 列 。 列 和 列 之 间 的 内 容 用 制 表 位 连接 ， 换 行 时 用 换行 竺 连接 。 

以 下 是 ThisWorkbook 事件 模块 中 的 代码 。 

源 代码 : 单元 格 文字 连接 .xlsm/ThisWorkbook 


1. Private Sub Workbook OPpen () 
a UserForml .Show 
3. End sub 


4 . 


可 
6. 


19.3 
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典 编 程 实例 ss 


Private Sub Workbook SheetSelectionChange (ByVal sh As Object, 
As Range) 


UserForml .TextBoxl .Text = 


End Sub 


代码 分 析 : 当 工 作 簿 一 打开 就 显示 用 户 窗 体 ， 并 且 当 和 鼠标 在 单元 格 区 域 发 生 选 择 时 ， 立 
即 更 新 文本 框 中 的 内 容 。 


学 生成 绩 评 定 和 登 蕊 


La 


一 个 班 的 学 生 上 机 测验 ， 提 交 后 的 原始 文件 如 图 19-2 所 示 。 


192.168.0. 
192,.1eE8, 0, 
192.168.0. 
1932.1688.0. 
192.168.0., 
192.168.0., 


192,168.0., 


192.168.0. 
192.168.0., 
192.168.0. 
192.168.0. 
192.168.0. 
192.168.0. 
192.1eE8.0. 
192.168.0. 
192.168.0. 
192.168.0. 
192.168.0., 
192.1E8.0. 


192.168.0. 


192.168.0., 
192.188.0. 
192.188.0, 
192.188.0, 


10 环境 171182051-171182051 一 李 理 . txt 
123 环境 171-171132002- 毕 千 化 , txt 


12 环境 171-171182052- 宋 丽 匣 . txt 
13 环境 171-171182041- 张 淹 . txt 
14 环境 171-171182018- 叫 益 . txt 
15 环境 171-171182021- 马 人 本 .txt 
170 环境 171-17118201 扩 黄 刘 .txt 
170_ 环境 171-171182017 一 刘 聪 ,txt 
19 环境 171-171182030- 奉 鸳 涕 .txt 
201_ 环境 171-171182039- 杨 飞 , txt 
20 环境 171-171182038- 杨 班 . txt 
21_ 环境 171-171182047 一 志 国 才 . txt 


234_ 环境 171-1711820d4 拓 起 尚 上 月 .txt 
252 环境 171-171182040- 表 志 强 . txt 


27_ 环境 171-171182037- 许 字 浩 . txt 
29 环境 171-171182014- 李 狼 环 . txt 
30 环境 171-171182008- 廓 正 达 . txt 
31_ 环境 171-171182013- 兰 不 刚 . txt 
32_ 环 境 -17118200- 何 晨 宇 . txt 

38 环境 171-171182028- 乔 去 远 .txt 
3 环境 171-171182042- 张 带 . txt 

41 环境 171-171182015- 梁 乐 . txt 
43_ 环 境 171-171182007- 高 承 永 . txt 
44 环境 171-171182049- 赵 偿 森 . txt 
46_ 环 境 171-171182005- 杜 喜欢 . txt 


Sheet1 Sheet2 sheet3 (+) 


图 19-2 


B 
管 题 藻 来 
CEBADDEDEDBEBDEEABCD 


COBABCCADABCADEEALDD 
CDEAACCAAABECADEBAEBED 
COBABCEDADEEADEBEADCLG 
CDEABCEBDAEEEADEEACDE 
CDPBABCEDADBEADBEADCL 
CDBACCCACDBAAGEEDBLE 
CDEBABCEDBARBAADDEADER 
CDBADCCDALEAADEEAEDTD 
hDEEEDBDADCEADBAADCL 
COBABABLDDEEADEEACDE 
LODBEECEDADEEADEEADGL 
LODBEBCEDAEEEADCGEADGL 
COBABCCDADECADEEADGCL 
CODEAECEDADECADEEACDG 
CDBADAEBDDDBEADGAACDE 
OEEEDBDADCEADEAADCL 
LDBEBCEDADBEADBEADGA 
LDBABCEBDADBEADBEACDE 
LDEEEDEDADCEADEAADCC 
CDBAECEBAAAECADEEABETD 
CDBABCEDADBEADBEACDC 
COBABCECADEEADEEADECL 
CODBADGCDAAEAADEEABDD 
COBASBDGDDDEEADDEADEL 


原始 数据 文件 


文字 连接 .CellJoin (Target) 


上 
学 生 站 有 | 得 分 
李 形 


D 


1001 17119205 人 本 弄 ,Tat 


?9 





ByVal Target 


请 使 用 字符 串 处 理 方面 的 技术 ， 从 A 列 中 把 学 生 姓 名 提取 到 C 列 中 。 此 外 ， 本 次 测验 
每 题 5 分 ， 且 这 些 题目 的 标准 答案 是 CDBABCBDADBBADBBADCC。 请 


根据 也 列 的 答题 情况 计算 其 得 儿 


旦 厅 


J 


， 得 分 结果 放 在 DD 列 。 


关键 技术 : 因数 设计 、 字 符 串 鹤 取 、 字 符 所 历 和 比较 、 累 加 自 法 。 
实现 路 线 : B 列 中 ， 姓 名 左 侧 是 减 号 ， 右 侧 是 小 数 点 ， 因 此 使 用 InstrRev 图 数 握 取 字 符 


串 中 最 后 一 个 减 号 的 位 置 pos1， 以 及 最 后 一 个 小 


骨 配 合 两 个 位 置 就 可 以 截取 到 姓名 。 
得 分 评定 方面 ， 利 用 字符 串 的 过 历 ， 依 次 比较 和 学生 作答 的 每 一 个 选项 与 标准 答案 的 每 一 
个 选项 ， 如 来 两 个 选项 相同 就 给 总 分 加 5 分 ， 否则 不 加 分 。 
源 代码 : 成 绩 登 记 .xlsm/m 


本 
3 
二 


Public Function GetName (flile As String) As String 


Dim Posl As Integer, 
VBA.Strings.InSstrRev (file, 
VBA.Strings.InstrRev (file, 


PoDsl = 
Posz2 = 


Pos2 As Integer 


ps 


NE ™ 


点 的 位 置 pos2， 那 么 接 下 来 用 Mid 困 数 
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GetName = VBA.Strings.Mid (file, 


可 posl + 1, 
606. End Function 

1 

8 


posz2 一 PoslL - 1) 


- Public Function Score (An3s As String) As Integer 


Const Key As String = "CDBABCBDADBBADBPBADCC™" 
~ Dim 1 As Integer 
10. For 1 = To 20 
Ee If Midl(Ans, i, 1) = Midl(Key, i, 1) Then 
La SCOI = Score + 9» 
13。 End If 
14. Next 1 


15. End Function 


写 好 以 上 两 个 自 定义 函数 后 ， 在 单元 格 C2 中 输入 公式 
然后 回 下 月 动 填 充 ， 如 图 19-3 所 示 。 


中 输入 公式 


让 J 
[3 


Ho 


. 1 BS. 
.1BS, 
.1BS, 
. 1B8, 
. 1 BS, 
. 1 BS, 
. 1BS. 
. 1BS. 
. 1 BS. 
.1BS. 
.1BS. 
.1BS. 
.1BS. 
.1BES. 
. 1BS. 
.1BS. 
. 1BS. 
.1BS. 
. 1BES, 
. 1BS, 
.1BS, 


=Score(B2) ， 


0. 


万 


学 生 提 立交 忻 

10 环境 171182051-171182051- 李 理 , txt 
.123 环境 171-171182002- 毕 秀 华 . +xt 

.12 环境 171-171182052- 宋 丽 仑 .trt 

,13 环境 171-171192041- 张 送 . txt 

. 14 环境 171-171182018- 忠 荔 . txt 


D 
D 
0 
0 
0.15 环境 171-171182021- 马 人 人 本. txt 
D. 170 环境 171-171182010- 苦 剂 . txt 
D. 170 环境 171-171182017- 浊 | 陪 .txt 
0.19 环境 171-171182030- 素 侈 灌 . txt 
0. 201_ 环境 171-171182038- 构 飞 . txt 
D0. 20_ 环 境 171-171182038- 杨 旗 . txt 
0. 
D 
D 
D 
D 
D 
D 
0 
D 
D 


21 环境 171-171182047- 志 国定 .txt 


.234 环境 171-1711820d46- 赵 尚 胸 .txt 
.252 环境 171-171182040- 表 志 强 . txt 
. 27_ 环 境 171-171182037- 许 宇 湛 . txt 
.29 环境 171-171182014- 李 此 环 . txt 
. 30_ 环 境 171-1711820098- 缉 下 这 . txt 
.3 环境 171-171182013- 兰 慧 刚 . txt 
. 32 环境 -17118200- 何 晨 字 .txt 

. 39_ 环 境 171-171182028- 卉 志 远 . txt 
.3 环境 171-1711820d42- 张 琵 . txt 


图 19-3 ”工作 表 中 使 用 VBA 自 定义 函数 


19.4 汇总 历年 奖牌 榜 


问题 描述 : 


A 19-4 所 示 。 
现在 的 任务 是 ， 提 取 每 个 工作 短 中 中 国 的 排名 、 奖 牌 数 并 单独 整理 出 来 ， 并 且 按 照 年 份 
降序 排列 。 期 望 的 效果 如 图 19-5 所 示 。 


EE 
一 


CL 
全 朝 
35 


DD IC IE Ci 


10 
dl 





D E 
很 斤 福 垢 
39 29 


1 


=GetName (2 


车 末 
CBEEADDEDBDEBEDEEAECD 
CDEAALCADABCADEEACDD 
CDEBAALCALABLADEBEAEBD 
CDBABCEDADEBADBEADCC 
CDBAB.EDABEBADEEACDE 
CDBABLEDADEBADEEADCG 
CDEACCCACDEALCCEDECE 
CDEARLEDBABAADDEADEE 
CDEADCCDAALELLDEELEDD 
ADEEREDEDADCEADEAADCGC 
CDEARBAEBDDDCEBADEEACDG 
CDEEBCEDADEEBADEEADCC 
CDEEBCEDAEEBADCEADCC 
CDEABCCDADECADEEADCC 
CDEABLEBDADECADEEACDG 
CDEADAEDDDEBADCALCDG 
ADEERDEDADCBADEAADCGG 
CDEEBLEDADEBADEEADCA 
CDEABCEDADEEBADEEACDC 
ADEEEDEDADGBADBAADGG 
CDEBABLBAAABLADEEAEBD 





文件 夹 下 面 有 9 个 工作 籍 ， 每 个 工作 籍 中 有 一 
1984 一 2016 年 总 共 9 届 奥 运 会 的 前 10 名 奖牌 排行 榜 。 其 中 ， 


! 国 


i 
下 上 上 下 的 


四 到 四 加 四 加 加 囊 叫 汪 国 


中 
中 匡 
中 
中 
中 匡 
中 
中 
中 
中 





图 19-5 


“=GetName(A2) ， 


2004 年 第 28 届 雅 由 


期 望 的 整 


个 工作 表 ， 分 别 记载 了 


奥运 会 的 


TT 
生 牌 祖 牌 铜 鹅 总 数 年 从 


rn 2016 年 第 31 旦 巴西 各 运 会 
B7 2012 年 第 


100 2z008 年 第 29 导 北京 甸 


Es 72004 年 第 29 局 著 内外 运 会 

59 2000 年 第 27 届 悉尼 奥运 会 

50 1996 年 第 26 届 亚 特 兰 去 鳞 运 
54 1992 年 第 25 届 巴 村 专 那 时 运 全 
2B 1988 年 第 24 届 识 城 奥运 会 

32 1984 古 第 23 屋 洛 飞 矶 粤 运 会 


合 效果 
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关键 技术 : 单元 格 的 查找 和 值 的 提取 、 文 件 选择 对 话 框 、 单 元 格 数据 排序 。 

实现 路 线 : 这 是 一 个 多 工作 泗 的 汇总 问题 ， 由 于 每 个 工作 往 中 “中 国 ” 的 排名 不 是 固定 
的 ， 记 录 行 是 变化 的 ， 因 此 需要 从 助 Range 的 Find 方法 在 国家 名 称 列 中 搜索 “中 国 "， 然 后 
使 用 Offset 以 及 Resize 扩展 到 整 条 记录 ， 把 这 条 记录 复制 到 整合 工作 和 注 中 即 可 。 

如 采 其 中 一 个 工作 和 注 顺 利 地 提取 完成 ， 那么 其 余 9 个 工作 注 的 提取 也 就 是 外 面 登 一 层 循 
环 而 已 。 由 于 需要 打开 多 个 工作 每 ， 因 此 还 可 以 使 用 文件 选择 对 话 框 进行 多 选 。 

源 代码 : 汇总 历届 奖牌 榜 / 多 工作 湾 汇 总 


1 Sub Testl]{() 

2 Dim wbk As Excel .Workbook 

3 Dim China As Excel .Range 

4. Dim 1 As Integer 

与 i = 二 2 

6 Sheetl.UsedRange.ClearContents 

7 Sheetl.Range ("Al") .Resize(, 6) .Value = Arrayl(”" 排名 "，" 国家 " 金牌 - 
" 银 有 牌 "，" 铜牌 "，" 总数") 

8. Set wbk = Application.Workbooks.Open (ThisWorkbook.Path & "AN 历届 奥运 会 奖牌 
榜 \2004 年 第 28 届 雅 典 奥运 会 .x1sx") 

- Set China = Nothing 

10. Set China = wbk .Worksheets (1) .UsedRange.Columns (2) .Find (What :=" 中 国 ", 
LookAt :=xlWhole) 

Ep If China Is Nothing Then 

生效 Debug.Print "没有 找到 。" 

13.。 Else 

1 4. Sheetl.Range ("A & 1).Resizel(, 6) .Value = China.offset(, -1) .Resize 

(， 6) .Value 
1 End If 
16- whk.Close False 


1i. End Sub 


代码 分 析 : 以 上 过 程 只 提取 了 一 个 工作 短 中 的 目标 记录 ， 为 了 批量 打开 每 个 工作 短 ， 需 
要 改写 为 如 下 过 程 。 


1 . Sub Test2() 

Dim flg As Office.FileDialog, f As Variant 

Ss Dim wbk As Excel .Workbook 

4. Dim China As Excel .Range 

i Dim 1 As Integer 

0. Application.ScreenUpdating = False 

1. i = 二 2 

8. Sheetl.UsedRange.ClearContents 

-a Sheetl.Range ("Al") .Resizel(, 1) .Value = Arrayl(”" 排名 " Pe 国家 " 0 金牌 i 
" 银牌 "，" 铜牌 "，" 总 数 "，" 年 份 ") 

10. 

11. Set ig = Application.FileDialog (msoFileDialogFilePicker) 

a flg.AllowMultiSelect = True 

13. flg.Filters.cCclear 

14. flg.Filters.Add "Excel 文件 “" KL" 

1 If flog.Show Then 

16-。 For Each f In igq.SelectedItems 

11. Set wbk = Application.Workbooks.oOpen (f) 


18. Set China = Nothing 
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19, 


20 - 
2 1 - 
之 之 - 
之 本 。 


2 二。 
之 
26 。 
-i 
pi 
9 
30. 
Ss 


Set China = wbhk.Worksheets (1) .UsedRange.Columns (2) .Find (What:= 
"中 国 "， LookAt :=x1lWhole) 
If China Is Nothing Then 
Debug .Print "没有 找到 。" 
Else 
Sheetl.Range("A™”" & 1).Resizel(, 6) .Value = China.offset(, 1). 
Resizel(, 6) .Value 
Sheetl.Range ("GO & 1).Value = China.Parent.Name 
End I 
whk.Close False 
i = 二 二 十 1 
Next I 
End If 
Sheetl1.Columns ("A:G") .AutoF1it 
Sheetl .UsedRange.Sort Keyl:=" 年 份 "， Orderl:=xlDescending, Header:=xlYes 


32. End Sub 


代码 分 析 : 第 30 行 代码 是 将 整合 完 的 工作 表 调 整合 适 的 列 宽 ， 第 31 行 代 人 码 将 数据 按照 
年 份 降序 排序 。 
本 例 是 一 个 典型 的 多 工作 湾 、 多 工作 表 数 据 汇总 实例 ， 代 码 中 用 到 了 本 书 中 讲 过 的 多 个 


19.5 早退 员工 高 亮 显示 


问题 摘 述 : 由 打卡 机 导出 的 员工 出 勤 记 录 包 含 序 号 、 员 工 姓 名 、 打 卡 时 间 三 列 数据 。 现 
在 要 求 把 早退 的 员工 ( 早 于 17:00:00 下 班 的 ) 记录 用 黄色 填充 色 标 识 出 来 ， 并且 把 当天 所 有 
早退 员工 单独 提取 到 王 列 。 期 望 完成 的 效果 如 图 19-6 所 示 。 


打卡 时 间 
201771D79 
2D1T TD 
2017/:10/9 
2017/10r9 
2017/10/9 
2017/10r9 
2017/10/9 
20]T/10r 9 
2017/10/9 
2017/10/9 
2017/1079 
2017/1079 
201771D079 
2017/1Ors 1 
2017/:10/9 
2017/109 
2017/:10/9 
2D1T TD 
201711079 
2D1TTA TD 
2017 DB 16 
2D1T DO 
2017/10/9 
2D17 TD 
2017/1079 
2017/10/9 
2017/1079 
2017/10/9 


co -4 | 串 乡 





图 19-6 期望 完成 的 效果 


关键 技术 : 日 期 的 比较 、 循 环 中 的 伴随 变量 。 
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实现 路 线 : 显然 ， 根 据 C 列 从 上 到 下 人 裔 历 ， 用 C 列 单 元 格 数值 与 17:00:00 比较 ， 如 采 
属于 早退 ， 就 把 该 行 设置 填充 色 。 


源 代 码 : 早退 员工 高 亮 显示 .xlsm/m 


1 Sub Testl1() 

2 Dim 1 As Integer, k As Integer 

3 k= 1 

4. For 1 = To Sheetl.Range ("cl") .End (xlDown) -Row 

与 If Sheetl.Range("C™" & i).Value < #107972017 5:00:00 PM# Then 

6 Sheetl.Range ("A & 1 & ":C™ & 1).Interior.Color = vbhYellow 
1 k= kk + 1 

8 。 Sheet1l .Rangde (下 ”& k).Value = Sheetl.Range("B™" & 1I) .Value 
End If 


代码 分 析 由 于 早退 的 员工 不 是 连续 的 ， 因 此 还 需要 使 用 伴随 变量 k， 当 遍历 到 的 是 早 
退 员工 就 让 下 目 动 加 1， 然后 把 B 列 中 的 姓名 移动 到 列 中 。 


19.6 ”一 次 困 数 用 于 单元 格 的 过 历 


Excel VBA 编程 中 ， 单 元 格 的 遍历 技术 是 重 中 之 重 。 然 而 ， 在 实际 工作 中 遇 到 的 课题 复 
森 多 变 ， 经 营 为 了 如 何 遍 历 单元 格 而 绞 尽 脑汁 ， 从 而 导致 单 元 格 的 近 历 技术 成 为 广大 VBA 
学 习 者 进一步 提高 的 瓶颈 。 本 节 介 绍 一 种 简单 而 又 行 之 有 效 的 方法 : 将 一 次 函数 的 思想 融入 
单元 格 遍 历 中 。 

单元 格 的 遍历 的 实质 其 实 是 遍历 单元 格 的 地 址 ， 或 者 居 
历 单元 格 所 在 的 行 号 、 列 号 。 下 面 首先 介绍 一 次 图 数 思 想 用 
于 一 维 循环 。 

工作 表 的 了 B 列 中 有 一 些 人 的 姓名 ， 这 些 内 容 虽 然 不 连续 ， 
但 是 间隔 是 相等 的 ， 有 规律 ， 如 图 19-7 所 示 。 

如 果 要 裔 历 B 列 中 的 姓名 ， 大 多 数 人 会 不 假 思 索 地 写 出 
如 下 代码 。 图 19-7 等 间隔 的 单元 格 内 容 

源 代 码 : 一 次 函数 用 于 单元 格 遍 历 .xlsm/m 





1 sub Testl]{() 

之 Dim Ir As Integer 

3 For Ir = 3 To 9 Step 2 

二 Debug.Print Rangel("B" & IT) -Value 
二 Next 工 

6 End Sub 


然而 ， 这 种 方式 里 然 直 观 、 易 异 ， 但 是 涉及 单元 格 数值 移动 、 单 元 格 与 其 他 集合 对 和 象 数 
据 交 换 等 操作 时 将 会 很 不 方便 。 这 是 因为 VBA 中 不 允许 同时 在 多 个 集合 对 象 中 进行 遍历 。 
举 个 例子 ， 如 把 B 列 的 姓名 提取 到 C2:C5 单元 格 区域 中 。 由 于 目标 区 域 的 起 止 行 号 、 步 长 
值 均 和 源 数 据 区 域 不 一 致 ， 此 时 不 得 不 在 循环 中 使 用 伴随 变量 。 
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1 Sub Test2{() 

过 Dim 工 As Integer, p As Integer 

3 p= 2 

4. For I = 3 To 9 Step 2 

-Rh Range (CC & p).Value = Range("B™" & Ir).Value 
6 p= p+1 

i Next 工 

8 


End Sub 


上 述 代 人 码 可 以 顺利 地 把 B 列 的 数据 移动 到 C 列 中 ， 根据 这 个 思路 也 可 以 把 单元 格 的 数 
据 移动 到 数组 中 。 

造成 必须 使 用 伴随 变量 的 原因 是 循环 体 的 起 止 值 和 步 长 值 不 国定。 实际 上 ， 固 定 步 长 
的 For 循环 形成 了 一 个 等 差 数 列 ， 例 如 上 例 ， 变 量 Tr 的 先后 取 值 为 3、5、7、9。 根 据 一 次 也 
数 或 者 等 差 数列 的 知识 ， 可 以 把 tr 的 取 值 改写 成 y=kx+b 的 形式 ， 这 里 的 x 是 月 然 数 列 (从 1 
开始 ),，y 就 是 r， 系 数 k 就 是 步 长 。 因 此 3、5、7、9 就 可 以 改写 为 2x+1， 这 里 的 x 就 是 从 
1 开始 的 连续 日 然 数 1、2、3、4。 

根据 这 个 规律 ，C2:C5 单元 格 区 域 中 的 2、3、4、5， 也 可 以 改写 为 x+1。 

此 时 原始 数据 区 域 和 目标 区 域 都 采用 x 作为 循环 变量 ， 就 产生 了 融 为 一 体 的 效果 。 


1 Sub Test31{) 

pa Dim x As Integer 

3 For X= 1 To 4 step 1 

4. Range("C™ & XX+ 1).Value = Range("B™" & 2 * 和 二 1).Value 
a Next 芯 

6. End Sub 


这 里 ， 我 们 回头 比较 一 下 Testl 、Test2 、Test3 这 三 个 过 程 的 代码 ， 相 比 之 下 显然 Test3 
更 加 优雅 美观 富有 严谨 的 数学 思维 。 

ee 本 六 介绍 的 一 次 半数 思想 的 核心 内 容 就 是 任何 等 差 数 列 均 可 用 卓然 数 的 线性 

“为 了 加 深 条 理解 和 能 够 在 实际 工作 中 熟练 运用 该 思想 ， 下 面 举 一 个 行 向 数据 移动 至 列 向 区 
域 的 例子 。 

本 例 试 图 把 第 2 行 中 的 四 个 汉字 分 别 发 送 到 C 列 有 边框 线 的 四 个 单元 格 中 ， 如 图 19-8 
所 示 。 





by 
[5 


用 | 
2 
3 
4 
5 
6 
7 
8 





图 19-8 ”单元 格 数据 的 转移 
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根据 图 示 ， 原 始 数 据 的 各 列 列 号 是 2、5、8、11， 相 应 的 线性 关系 是 3x-1; 目标 区 域 的 
行 号 是 5、7、9、11， 相 应 的 线性 关系 是 2x+3。 因 此 可 以 快速 写 出 如 下 代码 。 


1 Sub Test4{() 

2 Dim x As Integer 

村。 For X= To 4 step 1 

= Rangel('C™ & 2 < 和 + 3).vVvalue = Cells(2, 3 *XxX—-- 1).Value 
二 Next X 

6 End Sub 


可 以 看 出 ， 不 管 原始 区 域 、 目 标 区 域 的 起 止 是 多 少 ，For 循环 的 起 止 值 是 固定 不 变 的 ， 
在 循环 体 中 的 语句 块 直 接 使 用 线性 关系 即 可 ， 非 常 省 事 而 且 准 确 。 

此 外 ， 一 次 函数 变换 思想 还 可 以 方便 地 用 于 遍历 卸 形 单元 格 区 域 。 

下 面 的 实例 试图 把 工作 表 上 面 12 个 英文 字母 发 送 到 市 有 框 线 的 C12:E15 单元 格 

原始 区 域 分 析 : 各 行 号 为 3、5、7、9 (线性 关系 : 2r+1,T 为 1 ~ 4)， 各 列 号 为 2、5、8( 线 
性 关系 : 3c-1，c 为 1~3)。 

目标 区 域 分 析 : 各 行 号 为 12、13、14、15 (线性 关系 : rt11, TI 为 1 ~ 4)， 各 列 号 为 3、 
4、5 (线性 关系 : ct2，c 为 1 ~ 3)。 如 图 19-9 所 示 。 





图 19-9 一 次 消 数 变换 用 于 二 维 循环 
根据 以 上 线性 关系 分 析 ， 编 写 如 下 代码 。 


1 Sub Testo5 () 

ra Dim Ir As Integer, cc As Integer 

3 For = To 4 step 1 

4 For c= 1 To 3 step l 

5. Cells{rti+ 11, c+ 2).Value = Cells{2 * ri+l, 3** cc 1).Value 
6. Next c 

| Next 工 

8 End Sub 


由 以 上 几 个 例子 可 以 看 出 ， 使 用 一 次 函数 变换 后 ， 循 环 部 分 的 代码 非常 容易 构造 ， 达 到 
了 事半功倍 的 效果 。 
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如 果 想 更 进一步 7 了解 单元 格 区 域 的 高 级 变形 技术 ， 可 以 在 优酷 网 搜索 作者 发 布 的 
“Excel 高 级 变形 ”视频 。 


19.7 


2 |absealutEe 
3 hccelerator 


4 |hccess 
5 Action 


单词 表 按 媳 学 苹 让 忌 


工作 表 Sheetl 中 有 711 个 按 字 母 排序 的 英文 单词 ， 如 图 19-10 所 示 。 
请 按照 首 字母 分 类 汇总 ， 依 次 统计 A ~ Z 每 个 首 字母 的 单词 总 数 ， 并 且 根 据 汇 总 结果 
绘制 篮 状 柱 形 图 。 汇 总 结果 以 及 图 表 均 放 在 Sheet2 中 ， 期 望 效 果 如 图 19-11 所 示 。 


”FRR 
有 里 讨 由 泽 文 


B hctivate 


了 hctive 


8 ictivesheet 
9 Mctiveworkbook 


10 sdd 
11 laddin 
l2 hddins 


13 iverage 


IBackgeround 
3 |Backward 


|Bar 

| Bars 
2 IBefore 
23 |Eegin 
2 |Below 


29 IBetween 


2b Bitnap 
27 IBlack 
28 BLUE 





绝对 


单词 频率 统计 图 


BB tC DE F HH Il J kK LL MNO PA R $5 TU WY YW XX Y 王 


Tl 
n 
n 
n 
n 
n 
可 
kl 
n 
| 
p 
n 
n 
a 
Fy 
辽 
忆 


图 19-10” 按 字母 排序 的 纵向 单词 表 图 19-11 ”期望 的 整理 效果 

关键 技术 : 字符 与 ASCII 值 、 数 组 与 单元 格 、 图 表 绘 制 。 

实现 路 线 : 由 于 字母 A 的 ASCI 什 是 65, Z 的 ASCI 值 是 90， 定 义 一 个 整 型 数组 
Words(65 To 90)， 用 来 存储 每 个 字母 的 单词 总 数 。 

然后 在 单词 表 中 ， 从 上 到 下 遍历 每 个 单词 ， 遍 历 到 单词 后 提取 其 首 字母 ， 然 后 把 首 字 母 
转换 成 ASCI 值 ， 对 应 的 数组 元 素 自 加 1。 

源 代码 : 单词 表 分 析 .xlsm/ 首 字 母 分 类 汇总 


1 
ed 
3 
4. 
-ne 
在- 
1 
8 
9 


10. 
Ll. 


Sub Testl{() 


Dim Words (6 To 90) As Integer 

Dim FirstLetter As String * 1 

Dim 1 As Integer 

For 1 = 2 To /12 
FirstLetter = Left (Sheetl.Range ("A™" & 1).Value, 1) 
Words (Asc (FirstLetter)}) = Words (Asc (FirstLetter)) + 1 

Next 1 

For 1 = To 26 


Sheet2 .Cells(1，i) .Value = Split(Sheet2.Cells(1, i).Address, "$") (1) 
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1]2. Next 1 
13. Sheet2.Range ("A2:22") .Value = Words 
14. Sheet2.UsedRange.HorizontalAlignment = Excel.Constants.xlCenter 
Is Sheet2.Columns ("A:2") .AutoF1it 
16. 


li. End Sub 


代码 分 析 : 第 5 ~ 8 行 代码 用 来 亡 历 单词 表 。 第 7 行 
的 数组 元 素 日 加 1。 
第 10 ~ 12 行 代码 用 于 向 Sheet2 的 首 行 写 人 A ~Z 这 


代码 对 号 入 座 ， 根 据 自 字 母 把 对 应 


26 个 字母 ， 以 方便 绘制 柱 形 图 。 


源 代码 : 单词 表 分 析 .xlsm/ 首 字 母 分 类 汇总 

1 Sub Test2{() 

2 Dim CO As Excel .ChartObject 

3 Dim CT As Excel.Chart 

4. Dim rg As Excel.Range 

3 Set rg = Sheet2.Range ("AS:220") 

6 Set CO = Sheet2.Chartobjects.Add (Left:=rg.Left, Top:=rg.Top, Width:=rg. 
Width, Height:=rg.Height) 

i. co.Name = " 柱 形 图 " 

8 Set CT = CO.Chart 

3 With CT 

10. .ChartType = XlColumnClustered 

11. .SetSourceData Source:~=~Sheet2.Range ("Al:22"), PlotBy:=xlRows 

12. .HasTitle = True 

13. .ChartTitle.Text = "单词 频率 统计 图 " 

14. .SeriesCollection(l1) .Name = " 出 现 次 数 " 

1 End With 


16. End Sub 


代码 分 析 : 代码 中 的 rg 是 一 个 区 域 ， 其 作用 是 让 生成 的 图 表 与 这 个 区 域 对 齐 。 


19.8 ”交叉 表 汇 总 一 一 


”人 金 夸 五 国 ”(BRICS ) ， 


双边 贸易 关系 


引用 了 巴西 (Brazil)、 俄 罗斯 (Russia)、 
(China ) 和 南非 (South Africa) 的 英文 首 字 母 。 


印度 (India)、 中 国 


问题 描述 : 工作 表 中 A2:A6 以 及 B1:F1 是 五 个 国家 的 简称 ， 表 格 中 的 数字 是 两 个 国家 


的 双边 贸易 数据 ( 非 大 实数 据 )， 例 如 ，B3 单元 格 表 示 俄 罗斯 出 口 到 巴 


元 格 表 示 巴 西 出 口 到 印度 的 贸易 额 ， 
19-12 所 示 。 
现在 要 求 把 两 个 国家 互相 的 贸易 额 相 
加 ， 整理 成 一 列 。 也 就 是 沿 着 主 对 角 线 两 数 
相 加 ， 例 如 ,计算 中 国 和 印度 的 双边 贸 
额 ， 就 是 计算 单元 格 D5 与 单元 格 C4 之 和 。 
实现 路 线 : 技术 难点 在 于 如 何 罗 列 上 所 有 


如 图 





西 的 贸易 额 ，D2 单 





C D 
| 
> 


i 
IETF 
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图 19-12 金 砖 五 国 双 们 贸易 数据 表 ( 非 真 实数 据 ) 
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的 双边 关系， 如 果 用 一 般 的 先行 后 列 裔 历 ， 会 引起 重复 计算 或 见 余 计算 。 本 实例 只 需要 遍历 
和 矩形 的 下 三 角 即 可 ， 然 后 把 上 三 角 的 数据 加 进来 即 可 。 特 别 要 注意 的 是 两 个 需要 相 加 的 数据 
恰好 处 于 主 对 角 线 两 侧 ， 也 就 是 Cells(ij) 要 和 Cells(j,D 进行 相 加 。 

源 代码 : 交叉 表 汇 总 - 双边 贸易 关系 .xlsm/m 





1 Sub Testl{() 

i Dim 1 As Integer, 1] As Integer, kk As Integer 

3 Kk = 1 

4. For 1 = 2 To 6 

oe For ] = 2 To 6 

本 It 1 < J] Then 

1 KEKk= k+l1 

8 Range("H™” & k).Value = Cells(i, 1) .Value & Cells(l, 1]).Value 
9. Range ("I & k).Value = Cellsl(1I，]) .Value + Cells(j, i).Value 
10. End If 

11. Next J 

12. Next 1 


13. End Sub 


代码 分 析 : 代码 中 的 i 和 j 分别 遍历 行 、 列 ， 变 量 k 是 伴随 变量 ， 用 于 在 结果 区 域 输出 。 
第 6 行 代 但 的 下 判断 非常 重要 ， 加 上 这 个 判断 可 以 避免 重复 计数 。 
上 述 过 程 的 运行 结果 如 图 19-13 所 示 。 


国家 对 贸易 总 额 
BR ¥529, 897. 00 
BI ¥391, 110. 00 

#321, 953. 00 
¥367, 756. 00 


#306, 490. 00 
¥160, 378. 00 
¥123, 648. 00 
¥256, 034. 00 
¥367, 582. 00 
#521, 153. 00 





图 19-13 汇总 结果 


A.l1 ExcelVBA 实用 语句 


A.1. 


A.1. 


VBA 编程 昔 用 笛 料 | 


附录 A 






本 廊 按 照 Application、Workbook、Worksheet、Window、Ranege 五 大 类 Excel 主要 对 象 ， 
列举 平时 最 和 常用、 最 实用 的 语句 。 


1 ”Application 对 象 实用 语句 


Application. 
Application. 
Application. 
Application. 
Application. 
Application. 
Application. 
Application. 
Application. 
Application. 
Application. 
Application. 
Application. 
Application. 


EnableEvents = False 
DisplavyAlerts = False 
ScreenUpdating = False 
StatusBar = "MyText™ 
WindowSstate = xlMaximlized 
Dialogs (xlDialogOpen) -Show 
OnTime "171713322:00” “Proc™" 
SendKeys "”{f6}", “Proc™ 
AddIns(1).Installed = True 
COMAddIns (1) .Cconnect = True 
Workbooks.Close 
WorksheetFunction 

Qulit 


Version 


2 Workbook 对 象 实 用 语句 


ThisWorkbook 
ActjveWorkbook 
Application.Workbooks.Add Template:="E: \MyResume.xltm" " 基于 模板 新 建 一 个 工作 簿 


Application.Workbooks.Open Filename:="E:\abc.xlsx" 


ActiveWorkbook.Save 


ActiveWorkbook.Close False 


' 关闭 事件 

“关闭 提醒 对 话 框 

' 关闭 屏幕 刷新 

' 更 改 状态 栏 文字 

' 最 大 化 Excel 窗口 

' 显示 " 打开" 对 话 框 
' 定时 执行 过 程 

' 按键 执行 程序 

' 加 载 第 1 个 加 载 宏 
' 加 载 第 1 个 COM 加 载 项 
' 关闭 所 有 工作 短 

' 使 用 工作 表 函 数 

' 退出 Excel 


"Excel 版 本 号 


' 宏 所 在 的 工作 笨 
' 活动 工作 簿 


' 打开 工作 簿 
' 保存 工作 每 
' 关闭 但 不 保存 工作 簿 
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A.1. 


A.1 


A.1. 


For Each wbk In Application.Workbooks 
ActiveWorkbook.FullName 
ActiveWorkbook.Sheets.Count 


ActijveWorkbook. Parent 


3 ” Worksheet 对 象 实 用 语句 


ActiveSheet 


' 遍历 所 有 工作 得 

' 活动 工作 簿 的 完全 路 径 
' 工作 簿 中 表 的 总 数 

' 返回 Application 


' 活动 工作 表 


Set wst = ActiveWorkbook.Worksheets.Add (After:=ActiveWorkbook.Worksheets (2)) 


' 插入 一 个 新 工作 表 
ActijveSheet.Delete 
ActijveSheet.Name = "NewName™ 
ActijveSheet .Visible = xlSsheetVisible 
ActiveSheet.Copy: ActiveWorkbook.SaveAs "“E:\new.Xlsx" 


， 放 在 第 2 个 工作 表 之 后 


' 删除 当前 工作 表 
' 更 改 表 名 
' 显示 工作 表 


' 当前 工作 表单 独 另 存 为 工作 筹 文件 
ActiveSsSheet.Move After:=Worksheets (3) 当前 工作 表 移 动 到 第 3 修 表 之 后 


ActiveSheet.ScrollArea = "Al:G8" 1 设置 工作 表 的 可 滚动 范围 
ActiveSheet. Parent ' 返回 所 在 的 工作 短 


.4 ”Window 对 象 实 用 语句 


ActiveWindow.DisplayFormulas = True 
ActiveWindow.DisplayGridlines = True 
ActijveWindow.DisplayHorizontalSscrollBar = True 
ActiveWindow.DisplayRuler = True 
ActiveWindow.DisplayWorkbookTabs = False 
ActiveWindow.DisplayFormulas = True ' 工作 表 中 显示 公式 
ActiveWindow.View = XxlPageBreakPreview 


ActiveWindow.TabRatio = 0.8 


5 Range 对 象 实 用 语句 


Range ("B3") 或 者 Cells (3,2) 
ActiveCell 

Selection.Value = Selection.Value 
ActiveSheet .UsedRange 
Range.CurrentRegion 
ActjveSheet.Cells 

Range .offset (n) 

Range .Offsetl(, n) .Address 
Range.Resize(3, 4) .Address 
Range.End (xXlDown) 

Range .Parent 
Range.Address(False, False) 
Range.Formula 


Range .Font 


' 显示 公式 编辑 栏 
' 显示 网 格 线 

' 显示 滚动 条 

' 显示 标尺 

' 隐藏 工作 表 标签 


' 分 页 预览 


' 工作 表 标 签 区 域 宽度 与 水 平 滚动 条 区 域 宽度 比例 为 8:2 


' 单元 格 区 域 

' 活动 单元 格 

' 去 除 所 选区 域 的 公式 ,保留 值 
' 工作 表 中 使 用 过 的 区 域 
"Range 的 连续 区 域 

' 工作 表 中 所 有 单元 格 

' 向 上 下 偏 移 n 行 

' 向 左右 偏 移 n 行 的 地 址 
' 当前 区 域 变更 为 3 行 4 列 
' 最 下 面 的 单元 格 
“返回 所 在 的 工作 表 对 象 
' 单元 格 区 域 的 相对 地 址 
' 单元 格 中 的 公式 字符 串 

' 单元 格 字体 属性 
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Range.Characters ' 单元 格 中 的 字符 
Range.Interior ' 单元 格 的 填充 属性 
Range .Value ' 单元 格 的 值 

Rangde .RowHeight ' 行 高 

Range .ColumnWidth ' 列 宽 

Range .HorizontalAlignment ' 单元 格 水 平 对 齐 方式 


Range 


-VerticalAlignment 


' 单元 格 垂直 对 齐 方式 


Range.ClearContents ' 清空 单元 格 内 容 
Range.ClearFormats ' 清除 单元 格格 式 
Range.ClearContents ' 清空 单元 格 的 批注 


Range.Cut Destination:=Rangel ' 把 Range 剪 切 到 Rangel 
' 把 Range 复制 到 Rangel 
=Excel .XlDeleteShiftDirection.xlSshiftUp 


' 删除 单元 格 ， 下 方向 上 移动 


=Excel .XlInsertSshiftDirection.xlSshiftToRight 


Range.Copy Destination:~=Rangel 


Range.Delete Shift: 


Range.Insert Shift: 


Range 


. EntireRow. Delete 


' 插入 单元 格 ， 左 侧 单 元 格 向 右 移动 
' 删除 整 行 


Ranmnge .EntireColumn.Delete ' 删除 整 列 
Range .Find ' 查找 

Rangde .Rep1lace ' 着 换 

Range .Sort ' 排序 
Range.Merge ' 合并 单元 
Range .UnMerge ' 取消 合并 单元 格 


A.2 VBA 胃 数 用 法 示例 


在 VBA 代码 中 ， 之 所 以 能 够 使 用 大 量 实用 的 VBA 函数 ， 是 因为 每 个 VBA 工程 都 有 一 


通过 对 象 浏览 句 ， 可 以 查看 到 VBA 库 中 的 所 有 子 类 


引用 - VBAProject 


个 内 置 的 VBA 引用 库 ， 如 图 A-1 所 示 。 








Nicrosofti Excel 15.0 Object Libyrar 
[WOLE Automation 


[| AccountProtect 1.0 Type Library 


浏览 8)... 


帮助 00 | | 


[ hetive DS Type Library 

[ActiveNovie control type librarvy 

LActiveX DLL to perform Migration o: ~ 
AHa Rar nt 1sFrasll |1i antT i 


1 Lom ll 


Visual Basic 
定位 : 
语言 : 





} 


For hpplicatl ons 
ce Proaram Files\Common Files\microsoft shared\VB} 


英语 /标准 


图 A-1 VBA 工程 引用 对 话 框 
和 上 困 数 ， 如 医 | A-2 所 示 。 
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| 类 
9 <P dr 
网 Collection 1 
ErrObjeect 

Global 

ColorConstants 
se Constants 
#2 Conversi on 


FileSystem = bs 


人 Datelime 网 和 UserForms 


Financial = Minhetivate 
et Informati on uy Ase 
Wi Interacti on ey scB 
EeyLodeCLonstants sc 
二 Math = tn 
LTE 0% Heap 
SystemCol orbonstarts J ClByMams 
epP FormhowLonstants 
ep Vipplinstyle 
a VCial emilar 
a ViallType 
nF Viomparelethod 


2 MMT Ts mB -下 


Library VEA 


2 
图 A-2 ”对 象 浏览 器 
为 了 方便 查询 和 使 用 VBA 国 数 ， 下 面 列 出 咀 数 用 法 示例 和 人 徐 单 注解 。 





VBA.Abs (-9) ' 返回 9 

VBA.AppActivate "Adobe Acrobat Pro™ ' 根据 窗口 标题 ， 激活 别 的 应 用 程序 窗口 
VBA.Asc (" 刘 ") ' 返回 -15883 

VBA.AscB (" 刘 ") ' 返回 6524， 汉 字 第 一 个 字 节 的 数码 
VBA.AscW (" 刘 ") ' 返回 21016，, 十 进 制 ,5218 为 十 六 进 制 
VBA.Atn (1) ' 返回 0.7853981, 反正 切 
VBA.CBool (0) ' 返回 False,， 转换 为 布尔 值 
VBA.CDate (12345.5) ' 返回 1933-10-18 下 午 12:00:00 
VBA.CDb1 (12.03) ' 返回 12.03 

VBA.Choose (2, 5, 6, 7, 8) ' 返回 6, 从 后 边 的 参数 中 按 序号 挑选 
VBA.Chr (98) ' 返回 bb 

VBA.Chr$ (98) ' 返回 bb 

VBA.ChrW (25105) ' 返回 我 ， 根 据 十进制 ASCII 值 求 汉字 
VBA.CInt (1.36) ' 返回 1 ， 会 去 小 数 

VBA.CLng (10.2) "返回 10 
VBA.ColorConstants.vbhGreen “返回 65280， 颜 色 常 数 

VBRA.CSng (12) ， 返回 12 


VBA.Conversion.0Qct (12) 


VBA 


.CoOoNnversion.Hex (32) 


MsgBox &H20 


' 返回 14, 十 进 制 转 为 八进制 
' 返回 20, 十 进 制 转 为 十 六 进 制 


' 返回 32， 以 gH 开头 的 是 十 六 进 制 数 


VBA.Cos (3.14) ' 返回 -0.99999873172754 
VBRA.CStr (12) ' 返回 字符 串 12 
VBA.CurDir ' 返回 当前 工作 目录 

VBA. Date ' 返回 当前 日 期 


VBA.DateAdd ("m", 3, #5/19/2012#) 
VBA.DateAdd ("yyyy", -3, #5/19/2012#) ' 减 去 3 年 ， 返回 2009-5-19 

VBA.DateAdd ("d", 13, #5/19/2012#) ' 加 上 13 天， 返回 2012-6-1 
VBA.DateDiff("d", #4/5/2012#, #7/6/2012#) ' 两 个 日 期 相差 的 天 数 ， 返回 92 
VBA.DatePart ("d", #4/25/2012#) ' 返回 日 期 的 天 部 分 25 

VBA.DateSerial (2012, 4, 5) ， 由 分 散 的 数字 组 合成 日 期 ， 返回 2012/04/05 
VBA.DateValue ("February 12, 1969") 1 由 字符 串 变 成 日 期 ， 返回 1969/02/12 


" 日 期 的 加 减 ， 在 原 有 日 期 加 上 3 个 月 ， 返回 2012-8-19 
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VBA.Day (#7/6/2012#) ' 返回 天 6 

VBA.Exp (3) 'e 的 3 次 方 。 返 回 20.0855 
VBA.Fix (34.56) ' 取 整 ， 返回 34 
VBA.Format (5459.4, "##,##0.00") ' 格式 化 字符 串 ， 返 回 5, 459.40 
VBA.FormatDateTime (Now (), vbGeneralDate) ' 格式 化 日 期 返回 2012/05/20 10:52:55 
VBA.FormatNumber (3.45, 3) ' 格式 化 数字 ,返回 3.450 
VBRA .FormatPercent (0.7, 4, vbTrue) ' 转换 为 百分比 ,返回 70.0000 
VBA.Hour (#5/20/2012 5:09:02 AM#) ' 返回 小 时 5 
VBA.IIf(34 <> 45, 1, 0) ' 返 回 1 
VBA.Information.IsDate (45) ' 是 否 是 日 期 ， 返 回 False 
VBRA. InputBox("Bodyn， "Title™, ™“0O™) ' 输入 对 话 框 
VBA.InSstr(4, "ryueifu2009@yahoo.co.jp", "u"™) ' 返回 7 

VBA.InSstrRev ("yahoo.co.Jp", "0") ' 译 回 8 

VBA.Int (-8.47) ' 返回 -9 

VBA.IsArray (Array(3, 4, 5, 6)) ' 反 回 True 
VBA.IsEmpty (Empty) ' 返回 True 
VBA.IsEmpty (ab) ' 返回 True 

VBA.IsDate (#5/20/2012 5:09:02 AM#) " 柑 回 True 
VBA.IsError (c = Sin(3)) ' 返回 False 
VBA.ISM1issing 判断 是 否 缺 失 和 参数 
VBRA.IsNul1 (Null) ' 返回 True 
VBA.IsNumeric ("235") " 返回 True 
VBA.IsNumeric (Now{()) ' 返回 False 

VBA.Join (Array ("ab™"™, "cd™), "™**™") ' 返回 ab**cd 
VBA.KeyCodeConstants .vbKeyA ' 返回 65 

VBA.Kill ' 删除 文件 

VBA.LCase ("Ryueifu"™) ' 返回 ryueifu 
VBA.Left ("ryueifu", 3) ' 返回 ryu 

VBA.LeftB ("ryueifu", 4) ' 返回 ry 

VBA.Len ("ryueifu"™) ' 柑 回 7 

VBA.LenB ("ryueifu") ' 返回 14 

VBA.Log (10) ' 返回 2.30258 
VBA.LTrim (™ ryu ™") "返回 ryu / 
VBA.Math.Sagn (-6) ' 返回 -1 
VBA.Mid("ryueifu", 3, 3) ' 设 回 uei 

VBA.Minute (#5/20/2012 5:09:02 AM#) "返回 9 

VBA. MkDir ' 创建 文件 夹 

VBA.Month (#5/20/2012 5:09:02 AM#) "返回 5 
VBA.MonthName (8) ' 逝 回 8 月 

VBA. Now ' 返回 当前 日 期 时 间 
VBA.Randomize ' 随机 数 种 子 

VBA. Rnd ' 返回 随机 小 数 
VBA.Replace ("ryueifu™, "wu™, "“U", 2) ' 返回 yUeifU 

VBA.RGB (35, 56, 7) ' 返回 473123 
VBA.Right ("ryueifu", 3) ' 择 回 ifu 

VBA.RmDir ' 删除 路 径 

VBA.Round (7.8) ' 返回 8 

VBA.Round (4.4) ' 返回 4 

VBA.RTrim (" rvyueifu ”) ' 授 回 ryueifu 
VBA.Second (#5/20/2012 5:09:02 AM#) ' 返回 秒 2 


vba.Interaction.Shell("C:\WINDOWS\MCALC.EXE",，,，1)" 启动 外 部 程序 

VBA.Sin (1.57) 返回 0.999999682931835 
"Startn & VBA.Space(5) & "end" 扳 回 start end 
VBA.Split("r y ue i", ™ ™) (2) 返回 

VBA.Sqr (45) 返回 6.70820393249937 
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VBA.StrComp ("ryu", "yu", vbhBinaryCompare) ' 返回 -1 

VBA.StrComp ("yu", "ryu", vbBinaryCompare) ' 返回 1 

VBA.StrComp ("ryu", "Ryu", vbhBinaryCompare) ' 返回 1 

VBA.StrComp ("ryu", "Ryu", vbhTextCompare) "返回 0 

VBA.StrConv ("ryu eifu", vbhProperCase) ' 返回 Ryu Eifu 
VBA.String (3, "42") ' 返回 444 
VBA.Strings.SsStrReverse ("ryueifu") ' 返回 ufieuyr 

nm = "gqiao™ 

VBA.Switch(nm = "Liu”, 1], nm = "wang", 2, nm = "qiao", 3) ' 返回 3 
VBA.Tan (0.785) '" 返回 0.999203990105043 
VBA. Time ' 返回 当前 时 间 

VBA. Timer ' 从 零点 到 现在 的 秒 数 
VBA.TimeSerial (4, 6, 7) ' 数字 组 合 为 时 间 ， 返回 4:06:07 
VBA.TimeValue ("4:35:17 PM") ' 字符 串 组 合成 时 间 ， 返 回 16:35:17 
VBA.Trim (” ryueifu ") ' 返回 ryueifu/ 
VBA.TypeName (23) ' 返回 Integer 
VBA.TypeName (False) ' 返回 Boolean 

VBA.UCase ("ryueifu") ' 返回 RYUEIFU 

VBA.Val ("45") "返回 45 

VBA.Val (#12:05:00 PM#¥) ' 返回 12 

VBA.VarType (5) ' 板 回 2 

VBA.VarType (True) ' 返回 11 

VBA.Weekday (#5/20/2012#, vbhSsunday) "返回 1 

VBA.WeekdayName (3, False, vbsunday) ' 返回 星期 二 

VBA.Year (#5/20/2012#) ' 返回 年 2012 





本 市 列 出 书 中 尚未 涉及 的 疑难 话题 ， 以 学 员 小 V 和 刘 老 师 对 话 的 形式 ， 对 一 些 看 似 相 

实则 有 别 的 术语 进行 辨析 和 探讨 。 

小 V: Excel VBA 中 的 Range、Cells 、Rows 、Columns 各 代表 什么 含义 ? 

刘 老 师 : Range 、Cells 、Rows 、Columns 都 是 Range 类 型 的 对 象 ， 而 且 这 些 对 和 象 与 其 父 
级 对 象 有 关 ， 如 果 它 们 的 父 级 对 象 是 工作 表 ， 那 么 基准 是 工作 表 的 Al 单元 格 ; 如 果 它 们 的 

父 级 对 象 是 一 个 单元 格 区 域 ， 那 么 基准 是 以 单元 格 区 域 堪 上 角 。 

Cells 表示 父 级 对 象 的 所 有 单元 格 ，CellsG) 表示 父 人 i 个 单元 格 。 以 如 图 A-3 
所 示 的 数据 表 为 例 ，Range("B3:G12").Cells(9).Value 将 返回 “辽宁 ”， 因 为 从 左 到 右 然 后 从 上 
到 下 数 ， 第 9 个 就 是 D4 单元 格 。 




































































‘201 ey of4 过 a 
2017/9/5 ”黑龙江 ”数码 相机 
20177976 电 饭 铝 


2017/9/7 ; 绅 须 刀 


2017/9/7 看。 数码 相机 

2017/9/8 电 饭 锅 

20177978 电 饭 锅 

2017/9/9 湖 合式 机 电脑 耗材 





图 A-3 示例 数据 表 
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Rows 对 象 表 示 有 所 有 行 ， 也 与 其 父 级 对 象 有 关 ，ActiveSheet.Rows 表示 工作 表 的 所 有 行 ， 
Range("B3:G12").Rows 表示 数据 区 域 的 所 有 行 ，Rows 后 面 的 参数 可 以 是 字符 串 ， 也 可 以 是 
数字 。 例 如 Range("B3:G12").Rows("2:4").Select 自动 选中 数据 区 域 中 的 第 2 ~ 4 行 ， 而 不 是 
工作 表 的 第 2 ~ 4 行 。Range("B3:G12").Rows(4).Select 表示 自动 选中 区 域 中 的 第 4 行 。 

Columns 与 Rows 对 象 行为 完全 一 样 ， 只 不 过 摘 述 的 是 列 。Columns 的 参数 可 以 是 列 标 
字母 表示 的 字符 串 ， 也 可 以 是 一 个 整数 。Range("B3:G12").Columns("C:E").Select 自动 选中 
数据 区 域 的 第 3 ~ 5 列 (D3:F12)， 而 不 是 工作 表 的 3-5 列 ， 如 图 A-4 所 示 。 














5800 


3200 
B000 
5600 
3400 
折 旨 2800 
者 3400 
新 疆 4200 
湖北 ”” 台 式 机 4400 


图 A-4 选中 区 域 中 的 列 
Range("B3:G12").Columns(2).Select 表示 选 和 中 放 据 区 式 的 沉 2 列 。 
那么 Range("B3:G12").Range("B2:D4").Select 这 一 句 将 会 选中 哪 一 个 区 域 呢 ?请 读者 
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小 V: Row、Column、Count 这 3 个 术语 代表 什么 含义 ? 

刘 老 师 : Row 和 了 Rows 仅仅 一 字 之 差 ， 却 有 天 坏 之 别 。Rows 前 面 讲 过 ， 表 示 一 个 对 象 
的 所 有 行 ， 属 于 Range 对 象 。 而 Row 表示 算 形 区 域 左 上 和 角 单 元 格 的 行 号 ， 是 一 个 整数 。 例 
如 ，MsgBox Range("B3:G12").Row 返回 数字 3， 因 为 B3 单元 格 在 工作 表 的 第 3 行 。 

Column 和 Columns 也 是 这 样 的 关系 ，Column 仅仅 表示 列 写 。Range("B3:G12").Column 
返回 数字 2。 

Count 这 个 术语 通常 接 在 集合 对 象 之 后 ， 表 未 个 数 。 例 如 ，Worksheets.Count 表示 工作 
表 的 个 数 ，Shapes.Count 表示 图 形 的 个 数 。 

同时 ，Count 也 可 以 接 在 Range、Cells 、Rows 、Columns 这 些 Range 对 象 之 后 。 

当 Count 接 在 Range 或 Cells 之 后 ， 表 示 单 元 格 区 域 中 单元 格 的 个 数 ; 当 接 在 Rows 或 
Columns 之 后 ， 表 示 单 元 格 区 域 的 总 行 数 或 总 列 数 。 

1. Sub Test () 

2 Debug.Print Range ("B3:G12") .Count 
3 . Debug.Print Range ("B3:G12") .Cells.Count 
4 Debug.Print Range ("B3:G12") .Rows .Count 


Debug.Print Range("B3:G12") .Columns.Count 
End Sub 
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以 上 4 句 代 人 码 的 打印 结 末 是 60、60、10、6。 
下 面 利 用 上 述 内 容 制 作 一 个 实时 查看 所 选单 元 格 信息 的 工具 ， 在 ThisWorkbook 模块 中 
粘贴 如 下 代码 。 


1. Private Sub Workbook SheetSelectionChange (ByVal sh As Object, ByVal Target 
As Randge) 

Application.StatusBar = "地址 " & Target.Address (False， False) & "” 行 数 " 
& Target.Rows.Count & ™ 列 数 " t& Target.Columns.Count & ™ 行 号 " & Target. 
Row & ” 列 吕 " & Target.Column & " 单元 格 数 " & Target.Cells.Count & 
i 非 空 单元 格 " & Application.WorksheetFunction.CountA(Target) & 
加 空 单元 格 ”上 Application.WorksheetFunction.CountBlank (Target) 

3. End Sub 


然后 只 要 用 鼠标 在 单元 格 中 进行 选择 ，Excel 状态 栏 就 立即 给 出 选中 区 域 的 信息 ， 如 
图 A-5 所 示 。 











单 号 ”下 单 日 期 吝 户 地 址 商品 名 各 销售 额 商品 类 别 
AOOL 5800 “电脑 耗材 
AOO2 黑龙 江 | 数码 3200 旅游 

aA003 |EoTDr/ore 电 饭 名 6000 家 用 电器 
AOO4 17f9/7| 广东 着 | 扰 5600 其 他 类 
AOOS | “新 疆 3400 未 有 具 

A006 ”|2017/9/7|1 ”新 疆 ”| 数码 相机 1 2800 旅游 

A007 2017/9/8 湖北 电 馈 祝 到 400 家 用 电器 
AO008 “2017/9/8 “新疆 电 饭 机 4200 “家 用 电器 
A009 2017/9/9 湖北 合式 机 4400 “电脑 耗材 


Sheet2 | Sheet3 | 


= [a 引号 3 
= = 


| = 全 和 | 





二 1 


非 空 单元 格 12 空 
图 A-5 利用 事件 过 程 获取 所 选区 域 信息 
小 V: For 循环 会 陷 人 和 死 循环 吗 ? 
刘 老 师 : 一 般 情 况 下，While 循环 以 及 Do 循环 的 循环 条 件 一 下 为 True， 或 者 在 循环 体 

内 忘记 书写 Exit Do， 会 导致 死 循环 。 

For 循环 造成 的 死 循环 非常 少见 ,但 是 也 有 ， 如 ， 在 循环 体内 修改 循环 变量 的 值 ， 可 能 
造成 循环 变量 始终 达 不 到 循环 的 终止 值 。 例 如 下 面 的 过 程 ， 循 环 变量 只 要 大 于 $ 就 立刻 自 减 
2， 成 为 4。 


1。 Sub Testl() 
wd Dim 1 As Integer 
Ee For 1 = 1 To 10 
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4 It 1 > 3 Then 
5 i = 一 2 
6. End If 

1 Debug.Print 1 
8 Next 1 

于 End Sub 


运行 上 述 过 程 后 ， 立 即 窗口 会 一 下 打印 4 和 5， 隐 入 死 循环 。 

小 V: VBA 语句 和 单元 格 中 的 公式 ， 哪 一 个 优先 计算 ? 

刘 老 师 : VBA 语句 和 单元 格 公式 哪 一 个 优先 计算 ， 这 取决 于 Excel 的 计算 方式 。 

如 果 Excel 的 计算 方式 是 目 动 的 ， 那 么 当 单 元 格 发 生 改 变 时 ， 首 先 更 新 公式 的 计算 结 
果 ， 然 后 运行 VBA 语句 ; 如 果 Excel 计算 方式 是 手动 的 ， 那么 即使 单元 格 发 生 改 变 ， 公 式 
也 不 会 自动 重 算 。 


用 于 计算 B2 的 平方 ， 如 图 A-6 所 示 。 
然后 把 Excel 的 计算 方式 设置 为 手动 重 算 ， 如 
图 A-7 所 示 。 





让 备 改 与 公式 计算 ， 性 能 和 途 误 处 理 相关 的 选项 . 
计算 选项 
工作 逢 计算 心 辐 启用 渤 民 计算 0 


滞 言 © 二 所 A 最 多 渤 代 次 数 00) 
i 总 除 模 拟 运 算 志 外 . 自动 重臣 (D) 最 大 性 莽 [ 
| 自 定 电 功 能 区 
| 快速 访问 工具 栏 
] jp 正面 
| 信任 中 心 回 R1C1 引用 样式 [R} 心 
] 贺 公式 记 忆 式 能 入 (OD 
在 汉 水 由 使 用 过 宪 站 
| 征用 SetpwvotData 国 数 获 职 数据 庄 视 表 引 用 (中 i 


保存 工作 秒 前 至 新 计算 QW 


司 用 公式 


错误 村 可 
图 允许 后 台 错 误 翌 查 ( 卓 


_ 重新 该 间 名 上 略 壬 刁 [ 吕 } 
ee 


错误 检查 规则 


圆 所 合 公 式 导致 错误 的 单元 格 册 人口 圆 幅 蜂 了 区 域 中 的 羊 元 格 的 公式 上 加) 忆 
表 中 不 一 到 的 计算 HaRGSO 包 信 公式 的 未 锁定 单元 格 ( 

图 包 语 以 两 位 数 雪 未 的 年 份 的 单元 格 鸣 癌 加 引用 宝 单 元 格 的 二 LU) 已 

圆 交 本 格式 的 数字 或 者 前 面 有 后 号 的 数字 [H} 必 。 辆 去 中 畏 六 的 无 效 邹 握 呈 号 

与 区 域 中 的 其 他 公式 不 一 到 约 必 式 [N) 中 





图 A-7 设置 计算 方式 
VBA 过 程 如 下 。 


1 Sub Testl]{() 

pe Range ("B2") -Value = 13 

3 Range ("D2") .Value = Range ("C2") .Value / 10 
+ End Sub 


代码 分 析 : 第 2 行 代码 更 改 B2 为 13, 但 由 于 Excel 是 手动 计算 方式 ， 所 以 C2 不 会 立 
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即 发 生 改 变 , 仍然 保持 400， 因 此 D2 的 值 就 是 
40， 如 图 A-8 所 示 。 

如 采 当 初 Excel 的 计算 方式 是 日 动 计算 方式 ， 
那么 运行 该 代码 后 ，D2 的 值 应 该 是 16.9。 图 A-8 使 用 了 未 更 新 的 旧 值 

小 V: Excel VBA 编程 过 程 中 ,使 用 代码 名 称 和 使 用 工作 表 名 称 ， 哪 一 个 更 好 ? 

刘 老 师 : 所 请 的 代码 名 称 ， 实 际 上 就 是 工作 禾 、 工 作 表 的 模块 名 称 ， 工 作 注 的 模块 名 称 
默认 为 ThisWorkbook， 工 作 表 的 默认 代码 名 称 和 工作 表 名 称 一 样 ， 但 是 用 户 可 以 修改 。 

在 书写 代码 方面 ， 使 用 代码 名 称 更 简洁 ， 例 如 Worksheets("Sheet2") 可 以 人 简写 为 Sheet2 。 

但 是 推荐 使 用 工作 表 名 称 方式 ， 如 果 用 VB6 或 者 VSTO (Visual Studio Tools for Office) 
操作 Excel 时 ， 代 码 名 称 一 点 儿 也 用 不 上 。 

小 V: 在 Excel VBA 编程 中 ,倒序 循环 一 般 用 在 什么 场合 ? 

刘 老 师 : 倒序 循环 一 般 用 于 集合 对 象 中 成 员 的 删除 和 增加 ， 例 如 工作 表 的 删除 、 行 列 的 
删除 ， 工 作 表 的 插入 、 行 列 的 插 和 人 等 操作 。 因 为 在 循环 体内 进行 成 员 的 增删 ， 会 引起 每 个 成 
员 索 引 的 重新 排列 ， 使 用 倒序 循环 可 以 有 效 避 人 免 索 引 的 错位 。 

例如 下 面 的 工作 表 共 有 8 列 数据 ， 现 在 知 要 把 俩 数列 删除 皖 ， 也 就 是 把 B (下 单 日 期 )、 
D (商品 名 称 )、F (商品 类 别 )、H (部 门 ) 这 些 列 删 除 挥 ， 如 图 A-9 所 示 。 






































| 昔日 rm 0 贡生 和 ET 
2017/9/4 | 辽宁 记 z 5800 电脑 耗材 ; 
2017/9/5 黑龙 江 3200 旅游 
2017/9/6 辽宁 6000 家 用 电器 
20D17/9/7 广东 着 顷 ， 5600| 其 他 类 
2017/9/7 新 疆 3400 家 具 
2017/9/7 新 疆 2800 旅游 
201779/8| 湖北 i 3400 家 用 电器 
2017/9/8 新 疆 4200 家 用 电器 唐 
201779/9 湖北 了 4400 电脑 耗材 张 3 
201779x10| 辽宁 数 ) 5400 家 用 电器 
2017/9/11 山东 Ei 2000 电脑 耗材 
2017/9x11 广东 上 须 - 6000 其 他 类 
201779x11 广东 5600 家 用 电器 
2017/9/12 黑龙 江 ”书柜 5200 家 具 
2017/9/13 | 新 杜 J 5600 其 他 类 
2017/9x13 山东 起 包 3800 家 县 
2017/9/14 辽宁 i 2600 电脑 耗材 
2017/9715 青海 i 5800 电脑 耗材 
2017/9x15 陕西 | 3000| 家 用 电器 
2017/9716 辽宁 | 须 - 4800 其 他 类 
2017/9/16 辽宁 这 记 4600 电脑 耗材 i 
201779/x17 黑龙 江 3900 旅游 
2017/9/18 广东 3200 旅游 


图 A-9 原始 数据 表 





正 序 循环 的 代码 如 下 。 


1 Sub Testl{() 

之 Dim cc As Integer 

bE For C= 2 To 8 Step 2 

和 4 ActiveSheet .Columns (c) .Delete 
3 Next cc 

6 End Sub 


运行 该 过 程 ， 工 作 表 效果 如 图 A-10 所 示 。 
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B C D 
| 客户 地 址 商品 名 称 商品 类 别 销售 员 
辽宁 笔记 本 ”电脑 耗材 潘 振 沪 
旅游 唐 丹 
家 用 电器 曹 学 起 
其 他 类 起 国 素 
家 具 趟 国 环 
旅游 唐 丹 
刘 臣 
层 丹 
张强 
董 子 仲 
曹 学 起 
部 性 机 
曹 学 绩 
王 吴 
王 旦 
刘 功 
赵 国 率 
郑 惟 机 
王 吴 
董 子 仲 
许 很 川 
曹 学 引 
数码 相机 旅游 曹 学 引 


图 A-10 正 序 循 环 处理 的 结果 
显然 结 采 不 是 预期 的 那样 ， 修 改 成 倒序 循环 即 可 解决 。 





Sub Test2() 
Dim C As Integer 
For C= 8 To 2 Step -2 
ActiveSsheet.Columns (cc) .Delete 
Next cc 
End sub 


运行 结果 略 。 
小 V: 在 利用 For Each 遍历 矩形 区 域 时 ， 可 否 改 写成 For i 循环 的 形式 ? 
刘 老 师 : 完全 可 以 。For Each 循环 遍历 矩形 区 域 时 ， 遍 历 的 顺序 是 先行 后 列 ， 也 就 是 先 


从 左 回 右 这 爵 第 一 行 ， 然 后 回 下 转 到 第 2 行 。 


那么 Range.Cells() 的 作用 就 是 表示 Range 的 第 i 个 单元 格 ， 遍历 顺序 与 For Each 结构 


相同 。 


例如 ， 要 把 工作 表 中 B3:E9 这 个 区 域 的 名 单 ， 全 部 转移 到 G 列 中 ， 如 图 A-11 所 示 。 













































































图 A-11 和 抑 形 区 域 变形 为 单列 
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下 面 的 过 程 使 用 了 伴随 变量 上 ， 用 于 回 G 列传 递 数据 。 


1 Sub Testl () 

之 Dim II 可 As Range, kk As Integer 

3 For Each rg In Range("B3:E9") 

4. K = k+l1 

2 Range ("G™ & k).Value = rg.Value 
6 Next rg 

1 End Sub 


也 可 以 改 为 下 面 的 版 本 ,作用 相同 。 


1 Sub Test2() 

2 Dim 1 As Integer 

3 For i = 1 To Range("B3:E9") .Cells.Count 

4. Range ("G™ & 1).Value = Range("B3:E9") .Cells (1) .Value 
a Next 1 

6 End Sub 


小 V: 除了 循环 结构 外 ， 还 有 哪些 情况 导致 VBA 程序 运行 后 不 能 结束 ? 
刘 老 师 : 在 编程 过 程 中 ， 如 下 几 种 情况 也 会 导致 VBA 程序 无 限 运 行 。 
(1 ) 错误 处 理 。 


1 Sub Testl () 

2 On Error GoTo Errl 
EE 忆 三 

4 。 b=a/ 0 

要 Exit Sub 

6 Errl1: 

1 Resume 

8 End Sub 


过 程 中 ， 当 出 错 后 会 跳 转 到 Errl 标号 中 ， 但 该 标号 中 的 Resume 语句 会 重新 跳 转 到 


出 错 行 ， nh 
(2) GoTo 语句 。 


Sub Testl]{() 


Linel: 


GoTo Linel 


1 
2 
:人 8 Debug.Print Now 
4 
a End Sub 


上 述 过 程 ， 打 印 当 前 时 间 后 ， 跳 转 到 Linel 标号 行 ， 也 造成 了 死 循环 。 
(3) 递归 调用 过 程 。 


1 Sub Testl () 

pa Debug.Print Now 
3 Call Testl 

= End Sub 


上 述 Testl 过 程 ， 在 其 内 部 调用 和 月 身 ， 也 造成 了 死 循环 。 
小 V: 使 用 Excel VBA 能 制作 哪些 智力 方面 的 游戏 程序 ? 


附录 A VBA 编程 常用 资料 ”5657 


刘 老 师 : Excel VBA 这 门 语言 最 大 的 特点 就 是 可 以 把 工作 表 、 单 元 格 当 作 程序 设计 的 组 
成 部 分 ， 这 是 其 他 任何 语言 都 无 法 比拟 的 。 借 助 现 成 的 工作 表 、 单 元 格 可 以 设计 很 多 智力 游 
戏 ， 例 如 槛 类 游戏 、 拼 图 游戏 、 扑 殉 游 戏 、 俄 罗斯 方块 等 。 

通过 智力 游戏 的 制作 ， 可 以 提高 逻辑 思维 能 力 、 算 法 构思 、 创 新 能 力 ， 而 且 能 提高 编程 
开发 人 员 对 Excel VBA 程序 整合 、 界 面 布 局 、 流 程 设计 诸多 方面 的 能 力 ， 特 别 是 通过 游戏 编 
程 ， 能 够 切实 领会 到 工作 短 、 工 作 表 事件 编程 的 内 涵 ， 以 及 窗 体 和 控件 的 使 用 技巧 。 

本 书 配套 资源 中 ， 有 作者 利用 Excel VBA 开发 的 智力 游戏 方面 的 作品 ， 所 有 作品 的 
VBA 工程 密码 都 是 123456， 方 便 读 者 侍 鉴 、 观 摩 、 评 价 和 指正 。 


